Hallo zusammen,
ich möchte einen thread beenden den ich zuvor hiermit gestartet habe:

markieren

Delphi-Quellcode:

T:=TNetThread.create(false);
T.Resume;

der thread führt folgendes aus:

markieren

Delphi-Quellcode:

procedure TNetThread.Execute;
  begin
...
while not terminated do
Winsock_listen; //steht für die listen funktion von winsock
end;

beendet sollte er hiermit werden:

markieren

Delphi-Quellcode:

T.Suspend;
T.Terminate;
T.free;

Dies funktioniert allerdings nicht, der thread bleibt in der schleife hängen, auch wenn der benutzte socket mit
closesocket(s); beendet wird.
Dieser wird auch tatsächlich geschlossen!
Bitte um hilfe. Danke schonmal an alle Hilfsbereiten!

Du musst das Terminate setzen,
Dann warten bis der Thread Terminiert ist.
Das Suspend ist dann meiner Meinung nach Überflüssig.

mfG

Markus

EDIT: Alternativ machst du FreeOnTerminate auf true und gibst dann das Temrinate-Kommando.

Ein Thread hat selbstständig mitzukriegen, wann er terminiert wird. Von daher ist ein .Suspend eher kontraproduktiv: es hält den Thread an. Lässt du es weg, läuft er weiter, kriegt nen Listen-Timeout und springt aus der While-Schleife raus. Wenn danach nix mehr kommt, killt sich der Thread.

Zitat von markusj:

Das Suspend ist dann meiner Meinung nach Überflüssig.

Nein das ist nicht nur überflüssig sondern genau der Fehler da wenn du den Thread pausierst dann tut der ganz genau gar nichts also terminiert er sich auch nicht.

Aber in deinem Fall ist es wahrscheinlich besser so: (was markusj schon angeschnitten hat)

markieren

Delphi-Quellcode:

T:=TNetThread.create(false);
T.FreeOnTerminate := true;
T.Resume;

Dann brauchst du zum beenden nur noch:
T.Terminate; Dann wird er nämlich automatisch freigegeben

//edit: Mist zu spät aber wo war die rote Box?

*hüstel*
Ich schreib SUSPEND! nicht RESUME ...
Wenn er den Thread einschläfert, kann der nicht merh reagieren ... SUSPEND = Einfschläfern ...

mfG

Markus

Danke für die Hilfe!
Das T.FreeOnTerminate := true; hat geholfen