Indy10线程池BUG：Idyarn线程使用Synchronize导致TerminateAllYarns挂死的解决办法

最新推荐文章于 2021-07-08 15:08:16 发布

FoxMale007

最新推荐文章于 2021-07-08 15:08:16 发布

阅读量2.2k

点赞数

分类专栏： delphi 文章标签： integer each list

本文链接：https://blog.csdn.net/applebomb/article/details/1891340

版权

delphi 专栏收录该内容

11 篇文章 0 订阅

订阅专栏

写了个线程池程序。用TerminateAllYarns来结束线程，每次老是界面挂死在此段代码。
起初以为是代码同步或互斥问题，查了半天没找到。于是跟踪原代码进去，发现原来是这段代码导致了死循环：

------------------IdScheduler.pas--------------

procedure TIdScheduler.TerminateAllYarns;
var
i: Integer;
begin
while True do begin
    // Must unlock each time to allow yarns that are temrinating to remove themselves from the list
    with FActiveYarns.LockList do try
      if Count = 0 then begin
        Break;
      end;
      for i := 0 to Count - 1 do begin
        TerminateYarn(TIdYarn(Items[i]));
      end;
    finally FActiveYarns.UnlockList; end;
    //TODO: Put terminate timeout check back
    Sleep(500); // Wait a bit before looping to prevent thrashing
end;
end;

一旦idyarn调用对应线程使用了Synchronize，则必须有一段程序插到主线程去运行才能继续。结果主线程执行到此TerminateAllYarns时，就开始没完没了的置stop标志了。于是主线程就挂死在此了。

改进办法是：
在for i := 0 to Count - 1 do begin前加入Application.ProcessMessages;令主线程喘口气运行子线程的Synchronize代码，这样就不会在此没完没了的stop死循环了。

不过这样又得注意一个问题，就是一旦Application.ProcessMessages允许事件冒泡，那么可能重复触发TerminateAllYarns导致在FActiveYarns.LockList时死锁，因此设置判断避免TerminateAllYarns重复触发