Transformación de fichero binario ebcdic-ibm a un txt

[[duilioisola]]

Prueba con este código:

Código Delphi [-]
var
  F1: TextFile;
  b: Byte;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.Filename);
    Reset(F1);
      while not Eof(F1) do begin
        Read(F1, b);

        // Hacer algo con este Byte
        HacerAlgoCon(b);

      end;
    end;
    CloseFile(F1);
  end;
end;

Tomado de ejemplo de Seoane: http://www.clubdelphi.com/foros/showthread.php?t=60337