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自带的indy控件实现md5加密

Delphi android gps服务

Delphi 检测用户超过多长时间没有操作键盘或鼠标

Delphi的idhttp报iohandler value is not valid错误的原因

Delphi firedac压缩和修复ms access数据库

Delphi 精确打印image画布

Delphi 颜色选取

快速查询posex与posrightex

Delphi代码实现窗口最小化，最大化，关闭消息发送

Delphi 的 tstringbuilder 可以完美实现jave ,c#的tstringbuilder功能

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

转载请注明出处：木庄网络博客 » Delphi Unigui获取连接的客户端列表