Ayuda: Necesito refrescar la aplicación MIENTRAS se copian archivos muy grandes

[[egostar]]

Hola amigo

Lo que pasa es que el ProcessMessage esta sin efecto ya que eso se usa para rutinas de loop, yo creo que se podria hacer algo como leer por bloques y copiarlos al otro archivo y en ese loop si tendría efecto el ProcessMessage.

Salud OS

[Black_Ocean]

Empezado por egostar

Hola amigo

Lo que pasa es que el ProcessMessage esta sin efecto ya que eso se usa para rutinas de loop, yo creo que se podria hacer algo como leer por bloques y copiarlos al otro archivo y en ese loop si tendría efecto el ProcessMessage.

Salud OS

Gracias por tu respuesta,

Si me pudieras explicar y enseñar un poco aquello que me dices te lo agradecería bastante.

De antemano, gracias.

[[egostar]]

Bueno en la ayuda de delphi viene este ejemplo

Código Delphi [-]
var
  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
  if OpenDialog1.Execute then                               { Display Open dialog box }
  begin
    AssignFile(FromF, OpenDialog1.FileName);
    Reset(FromF, 1);  { Record size = 1 }
    if SaveDialog1.Execute then                              { Display Save dialog box}
    begin
      AssignFile(ToF, SaveDialog1.FileName);  { Open output file }

      Rewrite(ToF, 1);  { Record size = 1 }
      Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
        + ' bytes...');
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
        Application.ProcessMessages; //Aquí lo pondría yo 
      until (NumRead = 0) or (NumWritten <> NumRead);
        CloseFile(FromF);
        CloseFile(ToF);
    end;
  end;
end;

Lo que no se es como se comportaria en tiempo de copiado, es cosa de que lo pruebes.

Salud OS

[jachguate]

La solución mas natural, me parece, es el uso de CopyFileEx, que permite introducir una función CallBack, que será llamada constantemente de vuelta por la rutina de copia a través de la que el proceso que llama (tu aplicación) es notificada del avance de la copia.

Entonces, podrías actualizar la interfaz de usuario para reportar el progreso de la copia.

Por otro lado, si lo que querés es que la aplicación siga utilizándose mientras la copia se realiza, podes lanzarla en otro hilo.

Hasta luego.

[Khronos]

Yo creo que se puede solucionar mucho mejor con un thread.

Código Delphi [-]
type
   TCopyThread = class (TThread)
       protected
        procedure execute; override;
   end;
 
var
Copiar: TCopyThread;
 
implementation
 
procedure TCopyThread.execute;
begin
Copiar.FreeOnTerminate:=true;
 
CopyFile(PChar('C:\Ejemplo_fuente.exe'), PChar('C:\Ejemplo_destino.exe'), False);
end;

Añades esto en tu formulario. Para ejecutarlo:

Código Delphi [-]
begin
Copiar:= TCopyThread.create(true);
Copiar.execute;
end;

Salu2 espero que te sirva.

[[cHackAll]]

Código Delphi [-]
function Thread(hWnd: Cardinal): Cardinal; stdcall;
begin
 CopyFile('C:\Ejemplo_fuente.exe', 'C:\Ejemplo_destino.exe', False);
 SendMessage(hWnd, WM_USER, 0, 0);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 CreateThread(nil, 0, @Thread, Pointer(Handle), 0, PDWORD(0)^);
end;

Tu aplicación recivirá el mensaje WM_USER cuando la copia finalice (ejemplo).

Quien dá mas??

Saludos

[Black_Ocean]

Gracias a todos por su ayuda. Probaré los métodos que me han señalado.

Saludos y como siempre muy amables