Delphi Unigui获取连接的客户端列表


本文整理自网络,侵删。

 
Unigui获取连接的客户端列表

var
  I : Integer;
  ASessionList: TList;
  ASession : TUniGUISession;
begin
  memo1.Clear;
  ASessionList:=UniServerModule.SessionManager.Sessions.SessionList.LockList;
  try
        for I := 0 to ASessionList.Count-1 do
        begin
        ASession := TUniGUISession(ASessionList[I]);
        if not ASession.IsTerminated then
          memo1.Lines.Add( ASession.UniApplication.RemoteAddress );
        end;
  finally
        UniServerModule.SessionManager.Sessions.SessionList.UnlockList;
  end;

https://blog.csdn.net/shuiying/article/details/8967738

相关阅读 >>

Delphi 和微软的 azure 云存储

Delphi禁止tedit, tmemo右键上下文弹出菜单

Delphi settextbuf

Delphi 数据模块池

Delphi tdictionary使用范例

Delphi 删除目录下指定类型文件

Delphi 实现文件占坑

Delphi 批量生成 a到z 字母

Delphi如何获取qq2010聊天窗口句柄

Delphi tms web core 在线pdf教程

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...