Hola elmago00.
Acabo de probar el código de
LoPiTaL y funciona perfectamente, sólo faltaba un
begín del
while (omisiones que suelen pasar cuando publicamos algún código).
La prueba:
Código Delphi
[-]
procedure ConvertBinFileToTxtFile(od: TOpenDialog; const Destino: TFileName);
var
LStream: TMemoryStream;
miVar: longWord;
miStr: string;
todasMisStrings: TStringList;
I: integer;
begin
if not od.Execute then Exit;
LStream:= TMemoryStream.Create;
todasMisStrings:=TStringList.Create;
try
LStream.LoadFromFile(od.FileName); LStream.Seek(0,soBeginning);
miStr:='';
I:=0;
while (I < LStream.Size-1) do
begin
LStream.ReadBuffer(miVar, sizeOf(longWord));
miStr:=miStr+IntToHex(miVar,8);
miStr:=miStr+' '; if (I mod 32) = 0 then begin
todasMisStrings.Add(miStr);
miStr:=''; end;
inc(I,4); end;
todasMisStrings.SaveToFile(Destino);
finally
LStream.Free;
todasMisStrings.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ConvertBinFileToTxtFile(OpenDialog1, 'C:\miArchivoDestino.txt');
end;
Saludos