hola,
mi problema es que no logro comprenderlo y no puedo hacer que funcione, parece que es muy simple, pero bueno... espero de su ayuda.
esto está dentro de una unidad que la utilizo en un form.
cada vez que presiono un boton, se ejecuta en un thread para enviar una archivo.
Luego de que termina de enviar el archivo necesito saber que el archivo fue enviado.
Código Delphi
[-]
type
TonFinish = procedure(Sender: TObject) of object;
EnviarFila = class(TThread)
private
FonFinish : TonFinish;
protected
procedure Execute(); override;
public
constructor Create(dire:String;file1:String);
procedure pushfile(dire,file1:String);
published
property onFinish: TonFinish read FonFinish write FonFinish;
end;
procedure EnviarFila.pushfile();
begin
... envia el archivo....
if Assigned(FonFinish) then FonFinish(Self);
End;
type
TEnviarFila = class(EnviarFila)
procedure onFinish(Sender: TObject);
end;
procedure TEnviarFila.onFinish(Sender: TObject);
begin
... termino ....
end;
Gracias