目录
一、bug症状
二、Bug存在的版本
三、Bug解决方案
一、bug症状
在使用indy的TIdTCPServer控件时，我们打开服务时会设置控件属性Active为True，关闭服务时自然是设置控件属性Active为False。当我们打开TIdTCPServer服务，如果有一些客户端已经连接上，此时如果我们需要关闭TCP服务时，自然会设置控件属性Active为False,，大概率会导致程序死机，非常恼人。此时需要手工关闭进程才可以重新启动。这样使用起来就很不方便，当然我们也可以通过别的办法回避（我们先一个一个线程关闭，然后再让Active设置为False就可以回避这个问题）。导致这个问题的原因是有几个客户端连接，就会有几个对应的服务线程服务客户端，此时TIdTCPServer在设置Active为False的时候并没有清除干净这些线程，线程列表清除有Bug，就会导致程序死机。
二、Bug存在的版本
我修复的是下面的版本，其它版本是否存在问题不得而知，同学们可以根据这个版本对比自己的版本进行修复！
修复后文件下载连接：IdScheduler.pas
delphi版本：
Indy版本：
三、Bug解决方案
查找indy的源程序文件IdScheduler.pas单元，在这个文件单元中，对文件进行修改，修改前和修改后的代码如下：
修改前代码（为了看清楚，我是用的是截图）：
procedure TIdScheduler.TerminateAllYarns;
vari: Integer;LList: TIdYarnList;
beginAssert(FActiveYarns<>nil);while True do begin// Must unlock each time to allow yarns that are terminating to remove themselves from the listLList := FActiveYarns.LockList;tryif LList.Count = 0 then beginBreak;end;for i := LList.Count - 1 downto 0 do beginTerminateYarn({$IFDEF HAS_GENERICS_TList}LList.Items[i]{$ELSE}TIdYarn(LList.Items[i]){$ENDIF});end;finallyFActiveYarns.UnlockList;end;IndySleep(500); // Wait a bit before looping to prevent thrashingend;
end;
修改后代码：
procedure TIdScheduler.TerminateAllYarns;
vari: Integer;LList: TIdYarnList;
beginAssert(FActiveYarns<>nil);while True do begin// Must unlock each time to allow yarns that are terminating to remove themselves from the listLList := FActiveYarns.LockList;tryif LList.Count = 0 then beginBreak;end;for i := LList.Count - 1 downto 0 do beginTerminateYarn({$IFDEF HAS_GENERICS_TList}LList.Items[i]{$ELSE}TIdYarn(LList.Items[i]){$ENDIF});//sensor 2019-06-12LList.Delete(i); //增加了这一句，因为上面循环使用的是 downto 所以可以直接删除！！！！end;finallyFActiveYarns.UnlockList;end;IndySleep(500); // Wait a bit before looping to prevent thrashingend;
end;