unigui监听会话开始和结束
通过TUNIGuiSessionManger类的相关属性可以来监听web会话的开始与结束。
如:UniServerModule.SessionManager.Sessions.OnSessionStart := OnSessionStart;
UniServerModule.SessionManager.Sessions.OnSessionEnd := OnSessionEnd;
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;