Unigui获取连接的客户端列表

最新推荐文章于 2026-05-10 13:42:27 发布

转载最新推荐文章于 2026-05-10 13:42:27 发布 · 3.3k 阅读

收录于

Delphi

当前文章被收录于：

Delphi

31 篇文章 0 人学习

订阅专栏查看详情

Unigui

当前文章被收录于：

Unigui

23 篇文章 13 人学习

订阅专栏查看详情

当前文章被以下社区和专栏收录：

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;
end;