安全的结束delphi线程tthread

安全的结束delphi线程tthread

2012-11-07 15:00 580人阅读 评论(0) 收藏 举报

在使用delphi做开发时，使用线程可以从TThread继续，然后覆盖execute方法，这样我们的线程类就OK了，在execute写上要处理的代码就可以。当线程的执行从execute退出时线程也就结束了，这能正确的释放建立tthread时的一些资源，如果加while not terminated do...end中执行，调用terminate其实也是一个道理。delphi中线程结束代码如下：

  try
    if not Thread.Terminated then
    try
      Thread.Execute;
    except
      Thread.FFatalException := AcquireExceptionObject;
    end;
  finally
    FreeThread := Thread.FFreeOnTerminate;
    Result := Thread.FReturnValue;
    Thread.DoTerminate;
    Thread.FFinished := True;
    SignalSyncEvent;
    if FreeThread then Thread.Free;
    EndThread(Result);

  end;

EndThread时线程即被结束。通过代码看到如果execute发生异常也是能正常释放资源的，因为外层有个更大的tryf。假如我们通过terminatethread结束线程那么是不会执行finally中代码的，资源便不会释放。进程中加载的dll也不会收到线程结束的通知。如果长期这样结束，会导致创建线程时报"thread creation error. 系统内存不足，无法处理此命令"。