Codigo Hexadecimal

[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.

[ecfisa]

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 [-]
{
 Agregué el parámetro "od" por que ConvertBinFileToTxtFile no es método del Form,
 y el parámetro "Destino" para darle mas versatilidad al procedimiento  
}
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); //Supongo que od es un Diálogo para seleccionar un archivo....
    LStream.Seek(0,soBeginning);
    miStr:='';
    I:=0;
    while (I < LStream.Size-1) do
    begin
      LStream.ReadBuffer(miVar, sizeOf(longWord));
      //8 es el nº de caracrteres hexadecimales que deseas para la conversión - 4 bytes= 8 caracteres hex.
      miStr:=miStr+IntToHex(miVar,8);  
      miStr:=miStr+' ';  //Añadimos el espacio que deseabas
      if (I mod 32) = 0 then //Cada 32 bytes, añadimos una nueva línea
      begin
        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(Destino);
  finally
     LStream.Free;
     todasMisStrings.Free;
  end;
end;

{ Llamada de ejemplo }
procedure TForm1.Button1Click(Sender: TObject);
begin
  ConvertBinFileToTxtFile(OpenDialog1, 'C:\miArchivoDestino.txt');
end;

Saludos