FTP Client

[ste_ett]

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.