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