delphi2009（Lazarus）中indy10 的Idtcpserver断开客户端连接报错问题的解决办法

最新推荐文章于 2020-05-03 10:52:34 发布

ccnccyj

最新推荐文章于 2020-05-03 10:52:34 发布

阅读量3.6k

点赞数 1

分类专栏：技术类

本文链接：https://blog.csdn.net/ccnccyj/article/details/42241641

版权

技术类专栏收录该内容

6 篇文章 0 订阅

订阅专栏

我们常用IdTCPServer.Active := false;来关闭Idtcpserver，但这样会出卡机，并且操作也不会成功，后来，我改为这样：

procedure TfrmMain.ActStopExecute(Sender: TObject);
var
i: integer;
AList: TList;
begin
AList := IdTCPServer.Contexts.LockList;
try
    for i := AList.Count - 1 downto 0 do
    begin
      TIdContext(AList.Items[i]).Connection.Disconnect;
    end;
finally
    IdTCPServer.Contexts.UnlockList;
end;

end;

也就是说不要用IdTCPServer.Active := false;这种方式来断开Idtcpserver。