Fórum Leitura de arquivos Binários e conversão para Hexadecimal. #260874
01/12/2004
0
Obrigado.
Raczy
Curtir tópico
+ 0Posts
02/12/2004
Diogoalles
www.elivaldo.com.br
abraço
Diogo.
Gostei + 0
02/12/2004
Massuda
Gostei + 0
02/12/2004
Marcelo Saviski
procedure (...)
function ConvertBinary(Stream: TStream): string;
var
I: Integer;
Count: Longint;
Buffer: string;
begin
SetLength(Buffer, Stream.Size);
SetLength(Result, Stream.Size);
Stream.Read(Buffer[1], Length(Buffer));
BinToHex(PChar(Buffer), PChar(Result), Length(Result));
end;
var
Stream: TStream;
Buffer, Text
begin
Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
Memo.Text := ConvertBinary(Stream);
finally
Stream.Free;
end;
end;OBS: Não testei,
essa função BinToHex está na unit Classes
...
depois que vc testar responda se funcionou ou não, que ai a gente tenta arrumar.
Gostei + 0
03/12/2004
Raczy
Mas de qualquer forma, muito obrigado.
Valeu.
Gostei + 0
03/12/2004
Aroldo Zanela
Coloque um fragmento do arquivo para que possamos trabalhar sobre o mesmo.
Gostei + 0
03/12/2004
Marcelo Saviski
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)