欢迎来到天天文库
浏览记录
ID:20386670
大小:43.00 KB
页数:7页
时间:2018-10-13
《[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===
此文档下载收益归作者所有