Codigo Hexadecimal

[LoPiTaL]

A ver, yo usaría streams para leer de un archivo binario, ya que te hace transparente todo el jaleo de abrir y cerrar el archivo, así como un TStringList para guardar las líneas, ya que tb te permite llamar a SaveToFile ahorrándote tener que abrir y cerrar el archivo destino. Te quedaría más o menos así:

Código Delphi [-]
procedure ConvertBinFileToTxtFile;
var
  LStream: TMemoryStream;
  miVar: longWord;
  miStr: string;
  todasMisStrings: TStringList;
  I: integer;
begin
  if not od.Execute then Exit;  //Supongo que od es un Diálogo para seleccionar un archivo....

  LStream:=TMemoryStream.Create;
  todasMisStrings:=TStringList.Create;
  try
    LStream.LoadFromFile(od.FileName);
    LStream.Seek(0,soBeginning);
    miStr:='';  //Inicializamos la str....
    I:=0;
    while (I < LStream.Count - 1)
      LStream.ReadBuffer(miVar, sizeOf(longWord));
      miStr:=miStr+IntToHex(miVar,8);  //8 es el nº de caracrteres hexadecimales que deseas para la conversión - 4 bytes= 8 caracteres hex.
      miStr:=miStr+' ';  //Añadimos el espacio que deseabas
      if (I mod 32)=0 then begin  //Cada 32 bytes, añadimos una nueva línea
        todasMisStrings.Add(miStr);
        miStr:='';  //Volvemos a empezar para la siguiente línea.
      end;
      inc(I,4);  //Incrementamos en 4 el valor de I
    end;
    todasMisStrings.SaveToFile('C:\miArchivoDestino.txt');
  finally
     LStream.Free;
     todasMisStrings.Free;
  end;
end;

Acabo de escribirlo de cabeza, no sé si dará algún error más, pero vamos, creo que el concepto que quería transmitir queda bastante claro.

Espero haberte ayudado,
Un saludo,
LoPiTaL

[kdemia]

Primero que nada, muchas gracias por tu tiempo LoPiTaL.

El único error que sale es q dice que no esta declarado el 'Count' de LStream.Count.. desp hay un par de errores de sintaxis como por ejemplo le falta el do begin al while

[LoPiTaL]

Cierto, no es Count es LStream.Size, jeje se me pasó!

Espero que te haya servido.
Un saludo,
LoPiTaL

[kdemia]

me salta el siguiente error: EReadError 'Stream Read Error', puse q guarde igual el archivo en finally y al principio del archivo se guarda el EOF ..

[LoPiTaL]

Diría que eso es porque te pasas del tamaño del archivo al leerlo de 4 en 4 bytes (el tamaño del archivo no es múltiplo de 4, por lo que en la últia lectura falla). Lee en lugar de 4 en 4, de 1 en 1 y así no fallará.

Un saludo,
LoPiTaL

[kdemia]

perfecto funciono perfectamente... muchas gracias LoPiTal te lo agradezco. sos un groso

[elmago00]

amigos, intente esto, pero la verdad no va siempre da read error. y lo cambie a 1, pero nada;

Código Delphi [-]
var
  LStream: TMemoryStream;
  miVar: longWord;
  miStr: string;
  todasMisStrings: TStringList;
  I: integer;
begin

  if not OpenDialog1.Execute then Exit;  //Supongo que od es un Diálogo para seleccionar un archivo....

  LStream:=TMemoryStream.Create;
  todasMisStrings:=TStringList.Create;
  try
    LStream.LoadFromFile(OpenDialog1.FileName);
    LStream.Seek(0,soBeginning);
    miStr:='';  //Inicializamos la str....
    I:=0;
    while (I < LStream.Size - 1) do
      LStream.ReadBuffer(miVar, sizeOf(longWord));
      miStr:=miStr+IntToHex(miVar,8);  //8 es el nº de caracrteres hexadecimales que deseas para la conversión - 4 bytes= 8 caracteres hex.
      miStr:=miStr+' ';  //Añadimos el espacio que deseabas
      if (I mod 32)=0 then begin  //Cada 32 bytes, añadimos una nueva línea
        todasMisStrings.Add(miStr);
        miStr:='';  //Volvemos a empezar para la siguiente línea.
      end;
      inc(I,1);  //Incrementamos en 4 el valor de I


  finally

     LStream.Free;
     todasMisStrings.Free;
  end;

intente este metodo, pues lo que quiero es leer el archivo en hexadecimal y luego modificar un cadena de ese archivo.