TThread abfragen, ob beendet

[Christian.Ossi]

Delphi-Quellcode:

FTPUpload = Class(TThread)
Protected
Procedure Execute; Override;
Private
HTTPSocket: TIdHTTP;
 FTPSocket: TIdFTP;
    Datei1: ShortString;
    Datei2: ShortString;
      Neu1: ShortString;
      Neu2: ShortString;
Public
Constructor Create(Const FDatei1,FNeu1,FDatei2,FNeu2: ShortString);
 Destructor Destroy; Override;
End;

Delphi-Quellcode:

Constructor FTPUpload.Create(Const FDatei1,FNeu1,FDatei2,FNeu2: ShortString);
Begin
HTTPSocket:=TIdHTTP.Create(Nil);
FTPSocket:=TIdFTP.Create(Nil);
Datei1:=FDatei1;
Neu1:=FNeu;
Datei2:=FDatei2;
Neu2:=FNeu2;
Inherited Create(False);
End;

Destructor FTPUpload.Destroy;
Begin
HTTPSocket.Free;
FTPSocket.Free;
Inherited;
End;

Delphi-Quellcode:

Procedure FTPUpload.Execute;
Begin
FreeOnTerminate:=True;
FTPSocket.Username:=FTPACCESS.Strings[0];
FTPSocket.Password:=FTPACCESS.Strings[1];
FTPSocket.Host:=FTPACCESS.Strings[2];
FTPSocket.Connect;
Try
FTPSocket.Put(Datei1,Neu1,False);
If Datei2 <> '' then FTPSocket.Put(Datei2,Neu2,False);
Finally
FTPSocket.Disconnect;
End;
End;
DeleteFile(Datei1);
If Datei2 <> '' then DeleteFile(Datei2);
End;