Thread freigeben, wenn er festklebt :)

**4dk2**

Ist zwar schon nen bisl älter das Thema, aber ich hab auch genau den Fall,
und da hier auch nur nach den Auslösern fürs Hängen gesucht wurde, Frage ich nochmal

Ich möchte einen Thread abschießen, der nicht mehr reagiert.
Warum der hängt, soll egal sein

Z.b. es wrid im thread ne funktion aus einer DLL aufgerufen die dann in einer Schleife festhängt,
und auf die DLL hat man keinen Einfluss.

Die Wege fürs normale beenden sind mir bekannt, funktionieren aber nicht.

Was ich bisher mache:
1.FreeOnTerminate setzen, in der Hoffnung das er sich irgendwann mal beendet, im Fehlerfall.
2.Thread Normal terminieren, im Timeout Fall /Fehler
3.Neuen Thread erstellen der die Aufgabe übernimmt

Bei meiner Simulation, kommt beim beenden des Programmes der Destructor von dem Toten Thread NICHT zum tragen.

Alternativ hab ich schon nachgedacht, den Programm Zustand zu merken und Programm neuzustarten

Was mich interesstiert:
-Möglichkeit den Thread zu killen,
-TerminateThread(

MSDN link), funktioniert nicht, bzw vielleicht hab ichs falsch implemtniert? S.u.

Mein ThreadTerminate das net geht:

zusammenfalten · markieren

Delphi-Quellcode:

			    FWorker.Terminate;

    StartTimeout(tmpTO,'StopThread_tmpTO',3000);

    //das hier sollte man natürlcih net tun wenn FreeOnTerminate gesetzt ist...

    while not FWorker.Finished and not isTimeout(tmpTO) do

    begin

      Application.ProcessMessages;

    end;

    //FORCE KILL:

    if isTimeout(tmpTO) then

    begin

      System.SetLastError(ERROR_SUCCESS);

      iThreadExitCode:=0;

      if not GetExitCodeThread(FWorker.ThreadID,iThreadExitCode) then

      begin

        sMsg:=SysErrorMessage(GetLastError); //== 'Das Handle ist ungültig' , ist es aber nicht windows :P

        showmessage('Fehler1');

      end;

      System.SetLastError(ERROR_SUCCESS);

      bOK:=TerminateThread(FWorker.ThreadID,iThreadExitCode);

      if bOK then

        showmessage('OK');

      else

      begin

        showmessage('Fehler2')

        sMsg:=SysErrorMessage(GetLastError); //kein OS error vorhanden

      end;

    End;

Thread freigeben, wenn er festklebt :)

AW: Thread freigeben, wenn er festklebt :)

Forumregeln