Einzelnen Beitrag anzeigen

Christian.Ossi

Registriert seit: 23. Mai 2004
Ort: Greußen
91 Beiträge
 
Delphi 2006 Architect
 
#7

Re: TThread abfragen, ob beendet

  Alt 23. Mai 2006, 08:50
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;
Christian Rose
© Christian.Ossi
  Mit Zitat antworten Zitat