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;
Unigui获取连接的客户端列表
最新推荐文章于 2023-12-17 08:57:46 发布