TThread abfragen, ob beendet

[Christian.Ossi]

Thread-Klasse

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;

Klassenbefehl der nicht funktioniert (Methodenbezeichner erwartet)

While Not FTPUpload.Terminated Do Application.ProcessMessages;

[Luckie]

FTPUpload heißt deine Klasse. Aber wie heißt die Objektvariable mit der Instanz der Klasse?

Delphi-Quellcode:

var
  Upload: FTPUpload;
begin
  Upload := FTPUplod.Create(...);
  While Not Upload.Terminated Do Application.ProcessMessages;

Normalerweise Bezeichnte man Klassen auch mit einem großen "T" am Anfang: TFTPUpload. Bei der Deklaration lässt man es dann einfach weg:

Delphi-Quellcode:

var
  FTPUpload: TFTPUpload;

[Christian.Ossi]

Natürlich - klar!

Ist ja beim Form genauso - mein Fehler sorry