Habe es jetzt in einen Thread gepackt
Jedoch macht er nicht was im Thread steht?!?!
Deklarition
Delphi-Quellcode:
FTPUpload = Class(TThread)
Protected
Procedure Execute; Override;
Private
{ Private-Deklarationen }
Target: ShortString;
Remote: ShortString;
Public
{ Public-Deklarationen }
End;
Aufruf
Delphi-Quellcode:
FTPThread:=FTPUpload.Create(False);
FTPThread.Target:='Datei.txt';
FTPThread.Remote:='Datei1.txt';
Thread
Delphi-Quellcode:
Procedure FTPUpload.Execute;
Begin
Sleep(44);
If FTPACCESS.Text <> '' then
Begin
HF.FTPSocket.Username:=FTPACCESS.Strings[0]; //FTPACCESS enthält die Zugangsdaten
HF.FTPSocket.Password:=FTPACCESS.Strings[1];
HF.FTPSocket.Host:=FTPACCESS.Strings[2];
HF.FTPSocket.Connect;
Try
HF.FTPSocket.Put(Target,Remote,False);
Finally
HF.FTPSocket.Disconnect;
End;
End;
DeleteFile(Target);
End;
EDIT: HF ist mein Hauptfenster (also das Stamm-Formular) --> da hab ich ja die
Indy-Objekte liegen