Als erstes musst du eine neue Klasse erzeugen, die du von TThread ableitest.
Delphi-Quellcode:
type
TFTPThread= class(TThread)
public
procedure Execute; override;
end;
Delphi-Quellcode:
procedure TFTPThread.Execute;
begin
// Befehle für den Thread
// z. B. das Hochladen der Datei
end;
Im Deklarierungsteil musst du den Thread anlegen.
Delphi-Quellcode:
var
FTPThread: TFTPThread;
Dann im Event den Thread starten.
Delphi-Quellcode:
FTPThread := TFTPThread.Create(true);
FTPThread.Resume;
// Durch das Resume wird der Thread gestartet
// Alternativ ein false als Parameter nehmen,
// dann wird der Thread sofort gestartet und das "Resume" wird nicht gebraucht
FTPThread.Destroy; // Destructor aufrufen
Das war's mal ganz kurz.
