Zitat von
glkgereon:
Das Problem: Der Thread läuft weiter. und weiter. und weiter.
Irgendwie müsste der Thread vor dem CT.Free abgeschossen werden. denn CT.Free free't ja nicht den Thread selbst (so scheint es mir zumindest).
Ich würde bei dem Thread FreeOnTerminate auf True setzen. Und wenn die Zeit um ist, einfach die Schleife verlassen und eine Fehlermeldung bringen. Der Thread hört dann nicht auf, aber das Hauptprogramm läuft weiter. Und wenn der Thread fertig ist sollte der Thread den Speicher selbstständig freigeben. (Allerdings dürfstest du dann kein Free aufrufen.)
Wenn du in deinem Thread dann noch mehr machen lassen willst, als sich nur zu verbinden, kannst du am Ende deines jetzigen Codes eine Abfrage reinschreiben:
If Terminated then exit;
Und in der Schleife schreibst du:
Delphi-Quellcode:
while (not CT.Terminated) do
begin
FOnSleep;
if (GetTickCount>T) or (Fidtcp.Connected) then begin
CT.Terminate;
Break;
end;
Sleep(50);
end;
//CT.Free; -> kein Free da FreeOnTerminate
except
halinchen
P.S. Hoffe diesmal ohne Fehler...
