delphi - Only one session of same application, per user, at a time, in Intraweb -
i try investigate around intraweb delphi 2010. have web page inside crm application, , every time user flips customer, web page refreshed. sessions of "old" pages remain active, , "the edition limited 5 active sessions". how remove old sessions, when new session created, must of cause same application id, , current user.
i ended this. https://forums.embarcadero.com/thread.jspa?messageid=525644
procedure tiwservercontroller.iwservercontrollerbasenewsession (asession: tiwapplication; var vmainform: tiwbaseform); var i: integer; list: tlist; app: tiwapplication; begin list:=gsessions.locklist; try i:=0 list.count - 1 begin app:=tiwapplication(list[i]); if app <> asession begin gsessions.remove(app); app.free; end; end; gsessions.unlocklist; end; asession.data:=tiwusersession.create(nil); end;
Comments
Post a Comment