Binario a Texto

[ecfisa]

Empezado por gusspagano

Hola,

Bueno, al parecer se guardan los valores ASCII pues el manual no dice otra cosa, y en cuanto a lo que hay que leer es Word (palabras de 16 bits), ahora, es esto suficiente para convertir a texto??, que función puedo usar??

Hola gusspagano.

Ateniendome a lo que me comentas, una forma de leerlo sería:

Código Delphi [-]
var
  FileWord: file of Word;
  s: string;
  W: Word;
begin
  AssignFile(FileWord, 'C:\TU_RUTA\TU_ARCHIVO.BIN');
  try
    Reset(FileWord);
    with TStringList.Create do
    try
      while not Eof(FileWord) do
      begin
        s:= '';
        repeat
          Read(FileWord, W);
          s:= s + Chr(W);
        until (W = 13) or Eof(FileWord);
        if not Eof(FileWord) then TS.Add(s);
      end
    finally
      // El contenido ya está en TS. 
      // Como ejemplo copio a un Memo y luego libero TS
      Memo1.Lines:= TS;
      TS.Free
    end
  finally
    CloseFile(FileWord)
  end
end;

Saludos.