Codigo Hexadecimal

[kdemia]

hola.. bueno queria saber a ver si alguien me puede ayudar, necesito saber como hacer para exportar el codigo hexadecimal de un archivo a un archivo .txt, yo lo que hago es abrir el archivo con editores hexadecimales y copiar todo a un .txt, se copia sin espacios y sin nada, y todo a la primera linea.. necesito hacer eso pero automatizado solamente tocando un button.

desde ya muchas gracias

[rgstuamigo]

Si te estoy entendiendo bien >¿ lo que deseas es hacer una copia de tu archivo hexadecimal pero con la extension TXT? o ¿hay que hacer alguna conversion respectiva?
Explicate un poco mejor...
Saludos...

[LoPiTaL]

Diría que deseas abrir un archivo binario y representarlo en un archivo de texto plano.

Si es así te cuento cómo lo haría yo:

·Abriría el archivo binario.
·Leería de 4 bytes en 4 bytes guardándolo en variables de tipo longWord.
· Usaría la función intToHex para que me devuelva un string con los caracteres hexadecimales del longWord leído.
·Guardaría esa string en el archivo.
·Seguiría para todos los bytes.

Ya que estas tratando de 4 bytes en 4 bytes y guardando en un txt, puedes darle el formato que quieras. Cada 4 bytes introduces un espacio y te resuelves el problema de "se copia sin espacios" , cada 32 bytes introducir un salto de línea y te resuelves el problema de "aparece todo en la primera línea", etc.... He incluso si quieres ya hacértelo genial, pues antes de hacer el salto de línea, muestras los valores en caracteres, de la misma forma que hacen los editores hexadecimales.

Espero te sirva.
Un saludo,
LoPiTaL

[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