Delphi线程的终止

标签：

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

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

procedure TTestThread.Execute();
var
    i : Integer;
begin
    FreeOnTerminate := True;
    for i:=1 to 200000 do
        Inc(Answer, Round(Abs(Sin(Sqrt(i)))));
end;

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

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

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

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()的声明如下

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

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

TerminateThread(MyHosedThread.Handle, 0);

　　如果选择使用这个函数，应该考虑它的负面影响。

　　首先，此函数在Windows NT与Windows95/98下面并不相同。在Windows95/98下，这个函数能够自动清除线程所占用的栈；而在Windows NT下，这进程被终止之前栈仍被保留。

　　其次，无论线程代码中是否有 try... finally 块，这个函数都会使线程立即停止执行。这就意味着，被线程打开的文件没有被关闭、有线程申请的内存没有被释放等情况。而且，这个函数在终止县曾的时候也不通知DLL，当DLL关闭时，这也容易出现问题

Delphi线程的终止

标签：

原文地址：http://www.cnblogs.com/xumenger/p/4420863.html