13 replies to this topic

[c0lo]

Necesito copiar un archivo de un directorio a otro. Uso el clasico:

delphi

CopyFile(PChar(Dir + 'BackUp\Mari.dat'), PChar(Dir + 'Mari.dat'), false);

Pero yo quiero que cuando se termine de copiar al instante se elimine el directorio y el archivo. Y ademas ocurre que Mari.dat pesa digamos aprox 2Mb. asi que depende en la PC si ese copiado se hace rapido o lento.

delphi

  CopyFile(PChar(Dir + 'BackUp\Mari.dat'), PChar(Dir + 'Mari.dat'), false);
  DeleteFile(Dir + 'BackUp\Mari.dat');
  RemoveDirectory(PChar(Dir + 'BackUp'));

Pero como Mari es muy pesada, esa gordis pesa mas de lo debido, necesito estar seguro si se copio ya.. yo imagino meter un while y usar el clasico FileExists para verificar y si es asi q pase a hacer lo siguiente y asi ps.. nose si esta bien o estoy por el mal camino?

[escafandra]

delphi

  if CopyFile(PChar(Dir + 'BackUp\Mari.dat'), PChar(Dir + 'Mari.dat'), false) then
    if DeleteFile(Dir + 'BackUp\Mari.dat') then
       RemoveDirectory(PChar(Dir + 'BackUp'));

Saludos.

[c0lo]

Gracias escafandra pero igual, borra todo y no da la opurtunidad de que el archivo se copia del backup a el directorio..

[escafandra]

Pues lo he probado con un archivo de 45 Mb y funciona, tu sólo tratas de copiar 2Mb. 

Puedes probar con la variante CopyFileEx con una función CALLBACK que controla el progreso... Aquí puse un ejemplo de su uso.



Saludos.

[c0lo]

Imagino q mi problema esta que yo quiero hacer esto cuando estoy cerrando el programa y hay ciertas cosas que no se respeta.

delphi

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);//procedure TForm2.FormDestroy(Sender: TObject);
begin
  DeleteFile(launcherLS + 'Mari.dat');
  Sleep(500);
  if CopyFile(PChar(launcherLS + 'BackUp\Mari.dat), PChar(launcherLS + 'Mari.dat'), false) then
    if DeleteFile(launcherLS + 'BackUp\Mari.dat') then
       RemoveDirectory(PChar(launcherLS + 'BackUp'));
  Sleep(5000);
  Application.Terminate;
end;

Quizas e ahi mi error?

[escafandra]

¿Has hecho un debug paso a paso?. ¿Que pasa con los archivos?.
¿Los nombres y rutas son correctos?
¿Has cerrado los Handles del archivo antes de realizar las acciones de copia y borrado?

¿Porqué CopyFile y no usas MoveFile?


Saludos.

[Sergio]

Creo que esos "sleep" te sobrarian, esas instruciones son secuenciales, hasta que no borra o copia el fichero no te devuelve el control, con lo que *creo* que sobran los sleep pero te faltaria un "if deletefile", porque el fichero podria seguir en uso y no te darias cuenta sin un if al borrarlo.

Yo personalmente cuando quiero asegurarme de que un fichero existe y esta usable, intento conectarme a el en modo exclusivo a ver si me deja o no, y si me deja, el fichero esta libre:

delphi

try
   TmpFile:= TFileStream.create(Fic, fmOpenRead or fmShareExclusive);
   TmpFile.free;
   ShowMessage('Fichero libre');
except
  ShowMessage('Fichero en uso');
end;

[c0lo]

Lo que hago ahora es esto:

delphi

procedure TForm2.FormShow(Sender: TObject);
begin
   RenameFile(launcherLS + 'd3d9.dll', launcherLS + 'd3d9_.dll');
end;
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
    DeleteFile(launcherLS + 'd3d9.dll');
    RenameFile(launcherLS + 'd3d9_.dll', launcherLS + 'd3d9.dll');
    Application.Terminate;
  end;
  
  procedure TForm2.FormDestroy(Sender: TObject);
  begin
    DeleteFile(launcherLS + 'd3d9.dll');
    RenameFile(launcherLS + 'd3d9_.dll', launcherLS + 'd3d9.dll');
    Application.Terminate;
  end;

Cuando se abre el form que me renombre el archivo a otro nombre en la misma ubicacion, luego de esto cuando se cierre la aplicacion de cualquier forma... que me borre el archivo que puse otro un wrapper y que el archivo original que estaba q lo renombre a su origininal nombre. pero esto no pasa nose porque? cuando cierro el proceso no le da tiempo para hacer todo ya que se manda directo a cerrar sin hacer caso a mis sentencias?

[escafandra]

cuando cierro el proceso no le da tiempo para hacer todo ya que se manda directo a cerrar sin hacer caso a mis sentencias?

La opción de renombrar es la mejor...

¿Como cierras la aplicación? Application.Terminate Sobra, ¿No estarás llamando a ese procedimiento desde otro sitio?


Saludos.

[c0lo]

Escribo esto, porque como se cargan dos forms o mas y es mas seguro que se cierre todo el project completo o toda la aplicacion con todas sus ventanas que genero.

[escafandra]

Pues Application.Terminate es el origen de tu problema, esto hace que no se genere el evento OnClose...

Cámbialo por:

delphi

Application.MainForm.Close;

Saludos.

[Delphius]

Hola,

Escafandra, yo tengo una duda... en varios lados he leído que se estila usar MoveFile() por sobre CopyFile(). ¿Que tiene de especial MoveFile() por sobre CopyFile()? ¿Acaso MoveFile() no borra el contenido original una ves movido éste?

Saludos,

[escafandra]

Hola,

Escafandra, yo tengo una duda... en varios lados he leído que se estila usar MoveFile() por sobre CopyFile(). ¿Que tiene de especial MoveFile() por sobre CopyFile()? ¿Acaso MoveFile() no borra el contenido original una ves movido éste?

Saludos,

Momentos antes salir de vacaciones no he resistido conectarme...

Si usas CopyFile luego debes borrarlo. MoveFile es mejor no porque te ahorre borrar sino porque en realidad no copia, sólo renombra el archivo (la ruta completa) con lo que es mucho mas rápido, sobre todo si el archivo es muy pesado. Esto es así si estamos moviéndolo dentro de la misma unidad de disco, en otro casi si que copia y borra.


Saludos.

[Delphius]

Hola,

Muchas gracias por aclararme la duda y de darte el tiempo de una última conexión y pasada antes se salir de vacaciones. Ahora puedes disfrutar de tu viaje a la playa.

Saludos,