线程正确的退出等待方式 – QDAC数据访问组件网站

一个线程如果退出时，我们习惯写下如下代码：

AThread.Terminate;
...
AThread.WaitFor;
AThread.Free;

但在DLL中调用会在WaitFor的地方出现死等的现象，线程无法退出。

改为下面的代码可以解决：

AThread.Suspended:=False;//线程如果没运行强制运行
while not AThread.Started do//线程如果没有处于已启动状态，等待它启动完成
    Sleep(10);
AThread.Terminate;//通知线程结束
//等待线程退出
while not AThread.Finished do
    Sleep(10);
//释放线程对象
AThread.Free;

对于Delphi早期版本，TThread的Finished属性并没有公开，此时，我们需要一些非常手段来处理下。

如Delphi 2007，我们通过跟踪，可知道其FFinished的原始地址为Integer(Self)+16，即可以如此判断：

PBoolean(Integer(AThread)+16)^

登录