Codigo Hexadecimal

[kdemia]

osea segun lo que me dijiste hago esto

procedure TForm1.Button1Click(Sender: TObject);
var s: byte;
begin
if od.Execute then
begin
AssignFile (arc, od.FileName);
reset(arc);
while not EOF(arc) do
begin
read(arc, s);
str[0]:= str[0]+ inttohex(s);
end;
str.SaveToFile('cualquiercosa.txt');
end;
end;

s no es un longword porq cuando lo quiero leer no me deja, entonces lo pongo en byte, ahora... esta parte: -str[0]:= str[0]+ inttohex(s);- me dice -[DCC Error] Unit1.pas(39): E2250 There is no overloaded version of 'IntToHex' that can be called with these arguments-

:/

[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