Delphi UniGui中如何监听Session的开始与结束

本文整理自网络，侵删。

 
UNIGui中的UniServerModule模块有一个SessionManager(TUNIGuiSessionManger类)的属性，通过 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;

下面是一个完整的代码单元：

unit ServerModule;
 
interface
 
uses
  SysUtils, System.IOUtils,uniGUIServer, uniGUIMainModule, uniGUIApplication,UIdCustomHTTPServer,System.Classes;
 
type
  TUniServerModule = class(TUniGUIServerModule)
    procedure UniGUIServerModuleCreate(Sender: TObject);
  private
    { Private declarations }
  procedure OnSessionStart(Sender: TIdHTTPSession);
  procedure OnSessionEnd(Sender: TIdHTTPSession);
  protected
    procedure FirstInit; override;
  public
    { Public declarations }
  end;
 
function UniServerModule: TUniServerModule;
 
implementation
 
{$R *.dfm}
 
uses
  UniGUIVars, Main;
 
function UniServerModule: TUniServerModule;
begin
  Result:=TUniServerModule(UniGUIServerInstance);
end;
 
procedure TUniServerModule.FirstInit;
begin
  InitServerModule(Self);
 
end;
 
procedure TUniServerModule.OnSessionEnd(Sender: TIdHTTPSession);
var
  ls :TStringList;
begin
   //
   ls := TStringList.Create;
 
   if TFile.Exists(UniServerModule.StartPath+'sys.log') then
   begin
     ls.LoadFromFile(UniServerModule.StartPath+'sys.log');
   end ;
   ls.Add('go exit');
   ls.SaveToFile(UniServerModule.StartPath+'sys.log');
   ls.Free;
end;
 
procedure TUniServerModule.OnSessionStart(Sender: TIdHTTPSession);
var
  ls :TStringList;
begin
   //
   ls := TStringList.Create;
 
   if TFile.Exists(UniServerModule.StartPath+'sys.log') then
   begin
     ls.LoadFromFile(UniServerModule.StartPath+'sys.log');
   end   ;
   ls.Add('go enter');
   ls.SaveToFile(UniServerModule.StartPath+'sys.log');
   ls.Free;
end;
 
procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject);
begin
  UniServerModule.SessionManager.Sessions.OnSessionStart := OnSessionStart;
  UniServerModule.SessionManager.Sessions.OnSessionEnd := OnSessionEnd;
end;
 
initialization
  RegisterServerModuleClass(TUniServerModule);
end.


――――――――――――――――

原文链接：https://blog.csdn.net/shuiying/article/details/9121505
 

相关阅读 >>

Delphi 中将tmemorystream转换为'string'

Delphi 防止程序重复打开运行

Delphi android实例-红外线操作(xe10.2+小米5)

Delphi 禁止用键盘左右箭头，去切换pagecontrol页签

Delphi 判断素数的简单例子

webbrowser里网页根据文字判断来点击链接

Delphi 记录鼠标点击坐标

Delphi xe7 rest获取天气实例

Delphi fmx 获取控件句柄

Delphi xe将图标和图像添加为资源

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi UniGui中如何监听Session的开始与结束