• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi线程的终止

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

转载自:https://www.cnblogs.com/xumenger/p/4440646.html

当线程对象的Execute()执行完毕,我们就认为此线程终止了。这时候,它会调用Delphi的一个标准例程EndThread(),这个例程再调用API函数ExitThread()。由ExitThread()来清除线程所占用的栈。

  当结束使用TThread对象时,应该确保已经把这个Delphi对象从内存中清除了。这才能确保所有内存占有都释放掉。尽管在进程终止时会自动清除所有的线程对象,但是及时清除已经不再使用的对象,可以使内存的使用效率提高。利用将FreeOnTerminate的属性设置为True的方法来及时清除线程对象时最方便的方法,这只需要在Execute()退出之前设置就行了。设置的方法如下

1
2
3
4
5
6
7
8
procedure TTestThread.Execute;
var
    i: Integer;
begin
    FreeOnTerminate:= True;
    for i:=1 to 2000000 do
        inc(Answer, Round(Abs(Sin(Sqrt(i)))));
end;

  这样,当一个线程终止的时候,就会触发OnTerminate事件,就会有机会在事件处理过程中清除线程对象了。

  提示:OnTerminate事件是在主线程的环境中发生的。这就意味着,在处理这个事件的过程中,你可以不需要借助于Synchronize()而自由地访问VCL

 

  要记住Execute()需要经常地检查Terminated属性的值,来确认是否要提前退出。尽管这将意味着当使用线程工作的时候,你必须关心更多的事情,但它能确保在线程结束时,能够完成必要的清除。下面是一段在Execute()增加处理操作的简单代码:

1
2
3
4
5
6
7
8
9
10
11
12
procedure TTestThread.Execute;
var
    i: Integer;
begin
    FreeOnTerminate:= True;
    for i:= 1 to 2000000 do
    begin
        if Terminated then
            break;
        inc(Answer, Round(Abs(Sin(Sqrt(i)))));
    end;
end;

  注意,在某些紧急情况下,你可以使用Win32 API函数 TerminateThread()来终止一个线程。但是,除非没有别的办法了,否则不要使用它。例如,当线程代码陷入死循环中。TerminateThread()的声明如下

1
function TerminateThread(hThread: THandle; dwExitCode: DWORD);

  TThread的Handle属性可以作为第一个参数,因此,TerminateThread()常这样调用

1
TerminateThread(MyHosedThread.Handle, 0);

  如果选择这个函数,应该考虑到它的负面影响。首先,此函数在Windows NT与在Windows95/98下并不相同。在Windows95/98下,这个函数能够自动清除线程所占用的栈;而在Windows NT下,在进程被终止前栈仍被保留。其次,无论线程代码中是否有try...finally块,这个函数都会使线程立即终止执行。这意味着,被线程打开的文件没有被关闭、由线程申请的内存也没有被释放等情况。而且,这个函数在终止线程的时候也不通知DLL,当DLL关闭的时候,这也容易出现enti问题


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi2009之TStringBuilder类[1]:Create发布时间:2022-07-18
下一篇:
Delphi中各个包中包含的控件发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap