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 批量给每个字符加括号

Delphi如何判断系统是否安装了flash插件

Delphi twebbrowser静音

Delphi编写提取exe文件的ico图标

Delphi 一个线程安全的轻量级的日志类

Delphi检测用户超过5分钟没有操作键盘或鼠标

Delphi 外挂编写的几个api函数

Delphi 如何让scrollbox的内容与滚动条一起实时滚动

Delphi时间格式错误

用Delphi编写聊天程序

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

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