Thread freigeben, wenn er festklebt :)

[mkinzler]

Bei Firebird geht das über die Monitoringtabellen (MON$STATEMENTS in diesem Fall)

[MyRealName]

Zitat:

Zitat von mkinzler (Beitrag 1295837)

Bei Firebird geht das über die Monitoringtabellen (MON$STATEMENTS in diesem Fall)

Kannst Du das mal etwas genauer erklären bitte?

[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 :lol:

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 :oops:

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:

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;

[jaenicke]

Wenn z.B. ein Socket gerade hängt, bekommst du den Thread nicht gekillt bevor das Timeout kommt.

An der Stelle wäre dann ein Multiprozessmodell wie in Google Chrome sinnvoll. Das wurde ja genau aus den Gründen eingeführt um hängende oder abgestürzte Tabs zu behandeln ohne dass der Browser selbst abstürzt. Das funktioniert in anderen Browsern ja bis heute nicht richtig.

Einen solchen externen Prozess kannst du in fast allen Fällen abschießen. Es gibt allerdings auch dafür Grenzen. Manchmal kann man nicht einmal einen solchen Prozess abschießen. Diese Fälle sind aber selten.

[Der schöne Günther]

Zitat:

Zitat von 4dk2 (Beitrag 1381955)

funktioniert nicht, bzw vielleicht hab ichs falsch implemtniert?

Windows hat sehr wohl recht - Du gibst ihm die Thread Id. Die WinApi-Mehtode

Delphi-Quellcode:

GetExitCodeThread

möchte aber ein Handle, nicht die ID.

[Dalai]

In Fortsetzung der Ausfürungen des schönen Günther: Dasselbe trifft auf TerminateThread zu. D.h. erst OpenThread rufen, um das Handle zu ermitteln und dann mit diesem weiterarbeiten (und nicht vergessen, CloseHandle am Ende aufzurufen).

Grüße
Dalai

[Luckie]

Es ist eben meist immer besser das Kind nicht erst in den Brunnen fallen zu lassen. Was sagt denn der Entwickler der DLL zu dem Problem?

[Der schöne Günther]

Zitat:

Zitat von Dalai (Beitrag 1381982)

D.h. erst OpenThread rufen, um das Handle zu ermitteln und dann mit diesem weiterarbeiten (und nicht vergessen, CloseHandle am Ende aufzurufen).

Nicht notwendig, wir haben hier doch einen

Delphi-Quellcode:

TThread

, und der hat direkt schon die Eigenschaft

Delphi-Quellcode:

Handle

.

[4dk2]

Delphi-Quellcode:

GetExitCodeThread(FWorker.Handle,iThreadExitCode)

gibt ok zurück
aber

Delphi-Quellcode:

TerminateThread(FWorker.ThreadID,iThreadExitCode) = false

Ich kann aber z.b. mit dem process Explorer von Sysinternals den toten Thread killen.
Dann muss es doch auch eine Interne Möglichkeit geben oder?

[jaenicke]

Ich vermute einmal du musst wie Dalai geschrieben hat mit OpenThread arbeiten. Ich bezweifle, dass das Handle, das standardmäßig in der Eigenschaft Handle liegt, das Zugriffsrecht THREAD_TERMINATE hat. Siehe Dokumentation.

Dir muss aber klar sein, dass die Verwendung von TerminateThread das ganze System instabil machen oder zum Absturz bringen kann, wenn man nicht ganz genau weiß was man da tut. Deshalb ja auch die dringende Warnung in der Dokumentation:

Zitat:

TerminateThread is a dangerous function that should only be used in the most extreme cases.

Insbesondere bei Verwendung von fremden DLLs, auf die man keinen Einfluss hat, wie du eingangs geschrieben hast, ist das hochkritisch.

Sollte das eine Business Anwendung sein, wäre das schon ein NoGo für deren Einsatz in vielen Fällen.