Ayuda a pasar este código a firemonkey.

[elmago00]

aprovecho, para preguntarles, se podrá recuperar el archivo con su extensión original.
pues al hacer el cambio en el archivo después de editarlo, no vuelve a funcionar, por que esta en hexadecimal.
¿se puede recuperar el archivo original, pero después de haberlo modificado?.

[ecfisa]

Empezado por elmago00

...
¿se puede recuperar el archivo original, pero después de haberlo modificado?.

Hola elmago00.

No me queda claro desde donde o a partir de qué pensas recuperar el archivo original, pero sin dudas agradecerás haber llamado a este procedimiento antes de modificar el ejecutable:

Código Delphi [-]
procedure BeforeDoingCrap(aFileName: TFileName);
begin
  if not CopyFile(PChar(aFileName),
                  PChar(ExtractFilePath(aFileName)+ChangeFileExt(ExtractFileName(aFileName),'')+'.BAK'),
                  True) then
    MessageBox(0,PChar('Error: ' + SysErrorMessage(GetLastError)), '', MB_ICONERROR);
end;

De este modo, si se estropea el ejecutable, basta con borrarlo y luego renombrar el archivo .BAK como .EXE.

Saludos

[[nlsgarcia]]

elmago00,

Empezado por elmago00

...se podrá recuperar el archivo con su extensión original pues al hacer el cambio en el archivo después de editarlo, no vuelve a funcionar, por que esta en hexadecimal...

Pregunto:

1- ¿Realizastes las correcciones al código indicadas en el Msg #18?, son vitales para la correcta carga y visualización del archivo en proceso.

2- ¿Que tipo de archivos estas modificando y por que lo haces de esta forma?

3- En el Msg #10 indicas que la aplicación esta hecha en FireMonkey y que tiene más de 40000 líneas de código, ¿Cual es el objetivo de esta aplicación?.

4- ¿Puedes detallar el proceso de modificación del archivo(s) en cuestión?

Espero sea útil

Nelson.

[elmago00]

hola,
este es el tipo de archivo. por favor descarguen el archivo para que lo vean ustedes mismos.

http://www.mediafire.com/download/xj.../inChipset.rar

quiero restaurarlo a su estado original, después de editarlo. es decir guardar cambios.

les adjunto una imagen para que ven la dirección modificar. y la verdad haber si me ayudan ya que reemplazo la cadena hexadecimal, pero la anterior no se borra,
sino que sigue delante de la otra. como si añadiera string y no reemplaza el hexadecimal, pues debo borrar los siguientes 47 caracteres. solo puedo especificar la dirección, pues el hexadecimal es diferente en todos los archivos. no puedo especificar el hexadecimal a reemplazar. solo la dirección.

es poco difícil verdad. debo entregrarlo en dos días jeje

[elmago00]

amigos alguna idea de como hacer todo esto? el tiempo se me agota jeje

[ecfisa]

Empezado por elmago00

amigos alguna idea de como hacer todo esto? el tiempo se me agota jeje

Hola elmago00.

Sigo sin entender desde donde queres restaurar el archivo original, pero ya te sugerí una idea. Te ejemplifico el uso:

Código Delphi [-]
...
procedure BeforeDoingCrap(const aFileName: TFileName);
begin
  CopyFile(PChar(aFileName),
           PChar(ExtractFilePath(aFileName)+ChangeFileExt(ExtractFileName(aFileName),'')+'.BAK'),
           True);
end;

procedure FixCrap(const aFileName: TFileName);
begin
  if MessageBox(0,'¿ Desea restaurar el archivo original ?','',MB_ICONQUESTION+MB_YESNO)=IDYES then
  begin
    Windows.DeleteFile(PChar(aFileName));
    if not MoveFile(PChar(ExtractFilePath(aFileName)+ChangeFileExt(ExtractFileName(aFileName),'')+'.BAK'),
       PChar(aFileName)) then
    MessageBox(0,PChar('Error: ' + SysErrorMessage(GetLastError)), '', MB_ICONERROR);
  end;
end;

procedure TForm1.btnLoadFileClick(Sender: TObject);
begin 
  BeforeDoingCrap('C:\Carpeta\notepad.exe'); 
  // En este punto tenes realizado el resguardo y podes hacer 
  // con el archivo original todas las aberraciones se se te ocurran 
  procedure DumpFile('C:\Carpeta\notepad.exe',16); 
end;


// Boton anti-pánico
procedure TForm1.btnFixClick(Sender: TObject);
begin
  FixCrap('C:\Carpeta\notepad.exe'); // Restaurar original desde copia
end;

Saludos

[elmago00]

quiero editar el archivo en hexadecimal y guardarlo todo. guardar todo el archivo hexadecimal pero ya modificado y en su extensión original.
para que funciono como antes con la modificacion hecha.

[Casimiro Notevi]

Empezado por nlsgarcia

elmago00,

Pregunto:

1- ¿Realizastes las correcciones al código indicadas en el Msg #18?, son vitales para la correcta carga y visualización del archivo en proceso.

2- ¿Que tipo de archivos estas modificando y por que lo haces de esta forma?

3- En el Msg #10 indicas que la aplicación esta hecha en FireMonkey y que tiene más de 40000 líneas de código, ¿Cual es el objetivo de esta aplicación?.

4- ¿Puedes detallar el proceso de modificación del archivo(s) en cuestión?

Espero sea útil

Nelson.

Esperando respuestas...

[elmago00]

Empezado por Casimiro Notevi

Esperando respuestas...

si hice las correcciones, eso ya esta solucionado, veo el archivo y lo guardo, esta solucionado.
el tipo de archivo se los pues en el link de descarga.
el objetivo ya lo e detallado en el anterior mensaje. asi como el proceso de edición del mismo.


saludos