Leitura de arquivos Binários e conversão para Hexadecimal.

Delphi

01/12/2004

Alguém sabe como fazer a leitura de arquivos binários e converte-los para hexadecimal?Quero fazer isso, mas nem fasso idéia de como começar...já procurei em alguns sites mas não achei nada.Se vocês souberem de algum site que tenha alguma dica sobre o assunto por favor me ajudem.

Obrigado.




Raczy

Raczy

Curtidas 0

Respostas

Diogoalles

Diogoalles

01/12/2004

existem componentes para isso, se não me engano no pacote TCF tem.

www.elivaldo.com.br

abraço
Diogo.


GOSTEI 0
Massuda

Massuda

01/12/2004

como fazer a leitura de arquivos binários e converte-los para hexadecimal?
Por acaso esses arquivos seriam para gravador de EPROM? Você pode obter programas prontos para isso, como estes da [url=http://www.keil.com/download/list/utility.htm]Keil Software[/url].


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

01/12/2004

Teste isso:

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
Raczy

Raczy

01/12/2004

Parece que o código que você passou não deu muito certo.
Mas de qualquer forma, muito obrigado.

Valeu.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

01/12/2004

Colega,

Coloque um fragmento do arquivo para que possamos trabalhar sobre o mesmo.


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

01/12/2004

Tente trocar o [color=green:379de7cb4a]PChar(Result)[/color:379de7cb4a] por [color=green:379de7cb4a]@Result[1][/color:379de7cb4a]


GOSTEI 0
POSTAR