List of connected clients

[adragan]

Is it possible to get a list of connected clients ( IP/SessionId )

and eventually "kill" one of the sessions ?

[dieger]

Is it possible to get a list of connected clients ( IP/SessionId )

and eventually "kill" one of the sessions ?

 

 

try

 

http://forums.unigui.com/index.php?/topic/1290-sessions/page__p__8766__hl__session__fromsearch__1#entry8766

 

 

or

 

procedure TMainForm.UniBitBtn1Click(Sender: TObject);
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;

[adragan]

Thanks !

[SISBLU Software]

UniServerModule.SessionManager.Sessions.SessionList.LockList;

SessionList.LockList no exist

 

[asapltda]

The unlock has been removed and the information is displayed

procedure TFMENU.UniButton6Click(Sender: TObject);
var
 I: Integer;
 ASessionList: TList;
begin
 ASessionList := UniServerModule.SessionManager.Sessions.SessionList;
 try
   for I := 0 to ASessionList.Count - 1 do
   begin
     UniMemo_IPConectadas.Lines.Add(TUniGUISession(ASessionList[i]).UniApplication.RemoteAddress);

   end;
 finally
   //UniServerModule.SessionManager.Sessions.SessionList ;
 end;
end;