RSS订阅 | 匿名投稿
您的位置:网站首页 > 组件 > 正文

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

作者:admin 来源: 日期:2017/3/15 19:03:03 人气: 标签:

我们常用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。

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料