delphi中indy10 的Idtcpserver断开客户端连接报错问题的解决办法

本文整理自网络，侵删。

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

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

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

相关阅读 >>

Delphi中如何控制webbrowser滚动条

Delphi 游戏测试call

Delphi 回车符 换行符

Delphi 公历转农历函数

Delphi获取硬件信息

Delphi 如何将memo或richedit保存为utf 8文本文件？

Delphi datasnap(midas)三层架构中，常用事件及其触发顺序

Delphi 获取文件夹路径最后一级文件夹目录名称

Delphi 获取内网所有ip地址

Delphi webbrowser 去除滚动条和边框

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi中indy10 的Idtcpserver断开客户端连接报错问题的解决办法