TsgcWebSocketHTTPServer › 事件 › OnSessionStart
当 HTTP 会话启动并添加到 SessionList 时触发。
property OnSessionStart: {$IFDEF INDY10_5_7} TIdHTTPSessionStartEvent {$ELSE} TOnSessionStartEvent {$ENDIF};
// {$IFDEF INDY10_5_7} TIdHTTPSessionStartEvent {$ELSE} TOnSessionStartEvent {$ENDIF} = procedure(Sender: TObject) of object
—
OnSessionStart 在新的 HTTP 会话被添加到 SessionList 后触发,可以是在 AutoStartSession 为 True 时自动触发,也可以是通过在 OnCommandGet 中调用 SessionList.CreateSession 显式触发。使用它可以初始化每个会话的数据结构、生成审计记录,或为新用户预热缓存。事件签名取决于底层 Indy 版本(INDY10_5_7 条件编译);较新版本的 Indy 通过 Sender 公开 TIdHTTPSession 实例。此事件仅在 SessionState 为 True 时触发。
procedure OnSessionStart(Sender: TObject);
begin
Log('session started: ' + TIdHTTPSession(Sender).SessionID);
end;