¿Se puede llamar a CopyFileEx desde una conversación secundaria?

Question

¿Es posible y correcto llamar a la función CopyFileEx y CopyCallback/ProgressRoutine (ProgressBar.Position se sincronizará) desde un hilo?

¿Puedo declarar la función CopyCallback/ProgressRoutine en una conversación? Aparece el error: "Variable required" en CopyFileEx en @ProgressRoutine.

Answer 1

Por supuesto que es posible. Se llamará a la función de devolución de llamada en el contexto del hilo que llama al CopyFileEx. Si necesita sincronizar algunos comandos de la interfaz de usuario, use el habitual TThread.Synchronize de Delphi, o cualquier otra técnica de sincronización entre hilos que desee.

La función de devolución de llamada no puede ser un método de la clase de subproceso. Debe coincidir con la firma dictada por la API, por lo que debe ser una función independiente. Cuando lo haya declarado correctamente, no necesitará usar el operador @ cuando lo pase al CopyFileEx.

function CopyProgressRoutine(TotalFileSize, TotalBytesTransferred: Int64; 
    StreamSize, StreamBytesTransferred: Int64; 
    dwStreamNumber, dwCallbackReason: DWord; 
    hSourceFile, hDestinationFile: THandle; 
    lpData: Pointer): DWord; stdcall; 

le puede dar el acceso a las funciones de devolución de llamada al objeto de procesos asociado con el parámetro lpData. Pasa una referencia al objeto hilo para ese parámetro cuando se llama CopyFileEx:

procedure TCopyThread.Execute; 
begin 
    ... 
    CopyResult := CopyFileEx(CurrentName, NewName, CopyProgressRoutine, Self, 
    @Cancel, CopyFlags); 
    ... 
end; 

Con acceso al objeto hilo, puede llamar a métodos en ese objeto, incluyendo su propia rutina de progreso, por lo que el siguiente podría constituir la totalidad de la función independiente. Puede delegar todo lo demás a un método de su objeto. Aquí he supuesto que el método tiene todos los mismos parámetros que la función independiente, excepto que omite el parámetro lpData porque se va a pasar implícitamente como el parámetro Self.

function CopyProgressRoutine; 
var 
    CopyThread: TCopyThread; 
begin 
    CopyThread := lpData; 
    Result := CopyThread.ProgressRoutine(TotalSize, TotalBytesTransferred, 
    StreamSize, StreamBytesTransferred, dwStreamNumber, 
    dwCallbackReason, hSourceFile, hDestinationFile); 
end;