Ayuda a pasar este código a firemonkey.

[[nlsgarcia]]

elmago00,

Empezado por elmago00

...¿Sera posible cambiar todas las cadenas hexadecimales, que tengan un mismo valor?...

Revisa la función ChangeFileHex del Msg #43, esta permite cambiar n ocurrencias de una cadena Hex por una nueva cadena Hex en un archivo.

Espero sea útil

Nelson.

[elmago00]

Si precisamente es la función. Q utilizo.
Seguramente algo no e hecho bien por que solo
Cambia una solí cadena, pero las otras siguen igual.
Es decir si yo tengo 6 cadenas hexadecimales de. 16. Bytes.
Solo cambia la primera cadena de 16 y las demás no.


Volvere a rebisar gracias de nuevo.

[elmago00]

no Nelson, sigue cambiando una sola cadena, veras si yo tengo esto.

2D 55 FD 85 CD 22 63 EE ED B7 EE 44 01 DD 44
2D 55 FD 85 CD 22 63 EE ED B7 EE 44 01 DD 44
2D 55 FD 85 CD 22 63 EE ED B7 EE 44 01 DD 44
2D 55 FD 85 CD 22 63 EE ED B7 EE 44 01 DD 44

solo cambia la primera cadena, y a veces la segunda o tercera, pero solo una. las otras siguen igual.

[[nlsgarcia]]

elmago00,

Empezado por elmago00

...sigue cambiando una sola cadena...

Te comento:

1- Reviso la función ChangeFileHex del Msg #43 y en lo que tenga una respuesta la publico.

2- Te sugiero publicar un link con el archivo que quieres modificar y el detalle de la modificación (Hexadecimal-Anterior y Hexadecimal-Nuevo).

Saludos,

Nelson.

[[nlsgarcia]]

elmago00,

Empezado por nlsgarcia

...Reviso la función ChangeFileHex del Msg #43 y en lo que tenga una respuesta la publico...

Te comento:

1- Revise la función ChangeFileHex del Msg #43 y funciona correctamente según lo esperado en pruebas realizadas en archivos de texto y binarios.

2- Te sugiero publicar un link con el archivo que quieres modificar y el detalle de la modificación (Hexadecimal-Anterior y Hexadecimal-Nuevo), para poder hacer pruebas con la data real.

Saludos,

Nelson.

[elmago00]

lo hago asi

Código Delphi [-]
 
var
    OldHex, NewHex, Filename : String;
 
 begin
OldHex := '35740203652537'; // cadena de 7
   NewHex := '25632322EFDDE7';
   FileName := 'dump.dll';   // 

   if ChangeFileHex(OldHex,NewHex,Filename) then
   begin

  Memo1.Lines.Add('Done!');
 
       end
   else
      begin
      ShowMessage('Error');
 
     end;

el archivo para esta cadena es este:
dump.rar

y si yo intento cambiar varias cadenas de 16 me cambia solo una, y las otras no.
entre menor es la cadena, mayor es el cambio que hace y viceversa.


gracias por tu tiempo.

[elmago00]

Veras que la cadena anterior aparece 6. Veces pero solo cambia 3 cadenas y las otras se mantienen.
Y si cambias cadenas de mayor tamaño solo cambia una.