unigui监听会话开始和结束

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;