[delphi]delphi 线程终止和退出

《[delphi]delphi 线程终止和退出》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、在Delphi中使用线程，当窗体关闭时，如果窗体中启用了线程，一般需要手动关闭，以释放资源。常用来结束线程的代码为：        PcmThrd.Terminate;        PcmThrd.WaitFor;即先触发Terminate方法，然后等待线程的结束。这种方法要求线程不能使用FreeOnTerminate:=True;，否则在WaitFor即将结束的时候会引发“无效句柄”的错误。这种方法在窗体关闭的时候会等待一段事件（因为WaitFor）。 因此，如果不是在主窗体中结束线程时，其实我们可以不必使用WaitFor。而是采用如

2、下方法：将FreeOnTerminate:=True;这样在窗体关闭的代码中直接调用        PcmThrd.Terminate;即可。注意：如果设置了    PcmThrd.OnTerminate:=SomeFunction;那么在调用PcmThrd.Terminate;前尽量将PcmThrd.OnTerminate:=nil，以免结束线程后SomeFunction中的变量出现空指针错误。当然，这不是绝对的，需要根据具体程序而定DELPHI线程的终止和退出　　1)自动退出：　　一个线程从execute()过程中退出，即意味着线程的

3、终止，此时将调用windows的exitthread()函数来清除线程所占用的堆栈。　　如果线程对象的freeonterminate属性设为true，则线程对象将自动删除，并释放线程所占用的资源。　　这是消除线程对象最简单的办法。　　2)受控退出：　　利用线程对象的terminate属性，可以由进程或者由其他线程控制线程的退出。只需要简单的调用该线程的terminate方法，并设直线程对象的terminate属性为true。　　在线程中，应该不断监视terminate的值，一旦发现为true，则退出，例如在execute()过程中可以这样

4、写：　　　whilenotterminateddo　　　　　begin　　　　　　　　........　　　　　end;　　　　　　　　　　3)退出的api函数：　　　关于线程退出的api函数声明如下：code　　　functionterminatethread(hthread:thandle;dwexitcode:dword);　　　不过，这个函数会使代码立刻终止，而不管程序中有没有　　　　　　　　　try....finally　　　机制，可能会导致错误，不到万不得已，最好不要使用。　　4)利用挂起线程的方法（suspend）　　利用挂

5、起线程的suspend方法，后面跟个free，也可以释放线程，例如：　　thread1.suspend;　//挂起　　thread2.free;　　　　//释放遇到的"Code:1400无效窗口句柄"的问题，关闭不了程序最近写程序，遇到的"Code:1400无效窗口句柄"的问题，关闭不了程序？！似乎是在线程里调用了主窗体的东西，使得释放的先后次序被打乱了，所以句柄有问题！但是要找到问题的根源太麻烦了，这时有招必杀技！大家要记好了，有类似的无法关闭程序的问题，一句搞定！ExitProcess(0);简单的说就是终止自己的进程！虽然是暴力了一

6、点，但是绝对有效！但是这种方法不会触发onclose之类的事件，可以说是不触发任何事件，无痛无痒地结束了进程，干净利落，所以要记得在结束之前保存必要的数据，做必要的操作，最好是释放一下内存，在Win下结束进程是非常不干净的，会有内存残留。获取线程状态FunctionCheckThreadFreed(aThread:TThread):Byte;vari:DWord;IsQuit:Boolean;beginifAssigned(aThread)thenbeginIsQuit:=GetExitCodeThread(aThread.Handle,

7、i);ifIsQuitthen//Ifthefunctionsucceeds,thereturnvalueisnonzero.//Ifthefunctionfails,thereturnvalueiszero.beginifi=STILL_ACTIVEthen//Ifthespecifiedthreadhasnotterminated,//theterminationstatusreturnedisSTILL_ACTIVE.Result:=1elseResult:=2;//aThread未Free，因为Tthread.Destroy中有执

8、行语句endelseResult:=0;//可以用GetLastError取得错误代码endelseResult:=3;end;快速关闭线程//=========ThrdMain.pas===