Thread freigeben, wenn er festklebt :)

**Stevie**

Zitat von Larry Osterman:

How many times does
it have to be said: Never
call TerminateThread.

Siehe

https://blogs.msdn.microsoft.com/old...14-00/?p=91811

**Dalai**

Zitat von 4dk2:

aber
TerminateThread(FWorker.ThreadID,iThreadExitCode) = false

Weil du immer noch die Thread ID benutzt statt des Handles.

Generell stimmt ich aber zu: Priorität sollte haben, zu verhindern, dass der Thread hängt. Warum er das tut, kann natürlich keiner sagen außer dir selbst.

Grüße
Dalai

**4dk2**

Danke für eure Hilfe, es Funktioniert jetzt.

zusammenfalten · markieren

Delphi-Quellcode:

			      iThreadID:=FWorker.ThreadID;

      hThread:=OpenThread(THREAD_TERMINATE or THREAD_QUERY_INFORMATION ,false,iThreadID);

      if hThread<>0 then

      try

        System.SetLastError(ERROR_SUCCESS);

        iThreadExitCode:=0;

        if not GetExitCodeThread(hThread,iThreadExitCode) then

          sMsg:=SysErrorMessage(GetLastError);

        System.SetLastError(ERROR_SUCCESS);

        bOK:=TerminateThread(hThread,iThreadExitCode);

        if bOK then

          sMsg:='OK'

        else

        begin

          sMsg:=SysErrorMessage(GetLastError);

        end;

      finally

        CloseHandle(hThread);

      end;

**Der schöne Günther**

PS: Ohne auf die Notwendigkeit von TerminateThread(..) einzugehen: Das ständige Zwischenspeichern des Rückgabewertes, SysErrorMessage usw. lässt sich vereinfachen: Schau dir mal den Aufruf System.SysUtils.Win32Check(..) an.

Thread freigeben, wenn er festklebt :)

AW: Thread freigeben, wenn er festklebt :)

AW: Thread freigeben, wenn er festklebt :)

AW: Thread freigeben, wenn er festklebt :)

AW: Thread freigeben, wenn er festklebt :)

Forumregeln

Stevie Registriert seit: 12. Aug 2003 Ort: Soest 4.008 Beiträge Delphi 10.1 Berlin Enterprise	#21 AW: Thread freigeben, wenn er festklebt :) 26. Sep 2017, 10:20 Zitat von Larry Osterman: How many times does it have to be said: Never call TerminateThread. Siehe https://blogs.msdn.microsoft.com/old...14-00/?p=91811 Stefan “Simplicity, carried to the extreme, becomes elegance.” Jon Franklin Delphi Sorcery - DSharp - Spring4D - TestInsight
	Zitat

Dalai Registriert seit: 9. Apr 2006 1.680 Beiträge Delphi 5 Professional	#22 AW: Thread freigeben, wenn er festklebt :) 26. Sep 2017, 15:00 Zitat von 4dk2: aber TerminateThread(FWorker.ThreadID,iThreadExitCode) = false Weil du immer noch die Thread ID benutzt statt des Handles. Generell stimmt ich aber zu: Priorität sollte haben, zu verhindern, dass der Thread hängt. Warum er das tut, kann natürlich keiner sagen außer dir selbst. Grüße Dalai
	Zitat

Der schöne Günther Registriert seit: 6. Mär 2013 6.110 Beiträge Delphi 10 Seattle Enterprise	#24 AW: Thread freigeben, wenn er festklebt :) 28. Sep 2017, 08:19 PS: Ohne auf die Notwendigkeit von TerminateThread(..) einzugehen: Das ständige Zwischenspeichern des Rückgabewertes, SysErrorMessage usw. lässt sich vereinfachen: Schau dir mal den Aufruf System.SysUtils.Win32Check(..) an.
	Zitat