unigui监听会话开始和结束

unigui监听会话开始和结束

通过TUNIGuiSessionManger类的相关属性可以来监听web会话的开始与结束。 

如：UniServerModule.SessionManager.Sessions.OnSessionStart := OnSessionStart;
UniServerModule.SessionManager.Sessions.OnSessionEnd := OnSessionEnd;

?

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TFrmMon.OnSessionStart(Sender: TIdHTTPSession); var RemoteIp,SessionID:string; begin   RemoteIP:= TUniGUISession(Sender).UniApplication.RemoteAddress;   SessionID:= TUniGUISession(Sender).SessionID; //根据ip和会话编号进一步处理。 end;   procedure TFrmMon.OnSessionEnd(Sender: TIdHTTPSession); var RemoteIp,SessionID:string; begin   RemoteIP:= TUniGUISession(Sender).UniApplication.RemoteAddress;   SessionID:= TUniGUISession(Sender).SessionID; //根据ip和会话编号进一步处理。 end;