About Users, Connections, Sessions, etc ..

[alasoft]

If somebody can guide me about this:

 

• 
   
  
• How to check how many users are connected to some UniGUI Application (can I check user IP ?)
  
• How to reject 'one more' connection (for example to allow up to say .. 100 connections, but no more)
  
• When a 'session timeout' happens .. does fire some event ? (to control 'abnormal' exit)
  
• It's possible to redirect some incoming connection from one UniGUI Application to another ?
   
  

I humbly request some guidance (while I'll trying to answer some of these by myself, of course :-)) .. thanks !!

 

Rober

[MariusTurnkey]

I would also like to have some guidance on the issues mentioned by Roberto.

 

Regards

Marius

[lema]

[*]How to check how many users are connected to some UniGUI Application (can I check user IP ?)

 

 

procedure TMainForm.UniButton1Click(Sender: TObject);
var
 I: Integer;
 ASessionList: TList;
begin
 ASessionList := UniServerModule.SessionManager.Sessions.SessionList.LockList;
 try
   for I := 0 to ASessionList.Count - 1 do
   begin
     UniMemo1.Lines.Add(TUniGUISession(ASessionList[i]).UniApplication.RemoteAddress);
   end;
 finally
   UniServerModule.SessionManager.Sessions.SessionList.UnlockList;
 end;
end;

 

[*]When a 'session timeout' happens .. does fire some event ? (to control 'abnormal' exit)

 

You can use UniMainModule.OnSessionTimeout and ExtendTimeOut to extend session for another xxx seconds

[dionel1969]

You can use UniMainModule.OnSessionTimeout and ExtendTimeOut to extend session for another xxx seconds

 

 

UniMainModule.OnSessionTimeout did not work for me in the "near" past while there was a ADO Proc running. To avoid that I had to use threads for calling ADO Proc and do some refreshing in the interface using unitimer.