delphi – 如何使用Indy TIdTCPServer跟踪客户端数量

概述我想知道Indy 9 TIdTCPServer的当前客户端连接数(在Delphi 2007上) 我似乎无法找到一个给出这个的属性. 我已尝试在服务器OnConnect / OnDisconnect事件上递增/递减计数器,但当客户端断开连接时,该数字似乎永远不会减少. 有什么建议么？ 当前活动的客户端存储在服务器的Threads属性中,该属性是TThreadList.只需锁定列表,读取其Count属 我想知道Indy 9 TIDTcpserver的当前客户端连接数(在Delphi 2007上)

我似乎无法找到一个给出这个的属性.

我已尝试在服务器OnConnect / Ondisconnect事件上递增/递减计数器,但当客户端断开连接时,该数字似乎永远不会减少.

有什么建议么？

解决方法 当前活动的客户端存储在服务器的Threads属性中,该属性是TThreadList.只需锁定列表,读取其Count属性,然后解锁列表：

procedure TForm1.button1Click(Sender: TObject);var  NumClIEnts: Integer;begin  with IDTcpserver1.Threads.LockList do try    NumClIEnts := Count;  finally    IDTcpserver1.Threads.UnlockList;  end;  ShowMessage('There are currently ' + IntToStr(NumClIEnts) + ' clIEnt(s) connected');end;

在Indy 10中,Threads属性被Contexts属性替换：

procedure TForm1.button1Click(Sender: TObject);var  NumClIEnts: Integer;begin  with IDTcpserver1.Contexts.LockList do try    NumClIEnts := Count;  finally    IDTcpserver1.Contexts.UnlockList;  end;  ShowMessage('There are currently ' + IntToStr(NumClIEnts) + ' clIEnt(s) connected');end;

总结

以上是内存溢出为你收集整理的delphi – 如何使用Indy TIdTCPServer跟踪客户端数量全部内容，希望文章能够帮你解决delphi – 如何使用Indy TIdTCPServer跟踪客户端数量所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。