alasoft Posted October 12, 2012 Posted October 12, 2012 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 Quote
MariusTurnkey Posted October 27, 2012 Posted October 27, 2012 I would also like to have some guidance on the issues mentioned by Roberto. Regards Marius Quote
lema Posted October 27, 2012 Posted October 27, 2012 [*]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 Quote
dionel1969 Posted October 27, 2012 Posted October 27, 2012 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. Quote
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.