TsgcWebSocketHTTPServer › Ereignisse › OnSessionStart
Wird ausgelöst, wenn eine HTTP-Sitzung gestartet und zur SessionList hinzugefügt wird.
property OnSessionStart: {$IFDEF INDY10_5_7} TIdHTTPSessionStartEvent {$ELSE} TOnSessionStartEvent {$ENDIF};
// {$IFDEF INDY10_5_7} TIdHTTPSessionStartEvent {$ELSE} TOnSessionStartEvent {$ENDIF} = procedure(Sender: TObject) of object
—
OnSessionStart wird ausgelöst, nachdem eine neue HTTP-Sitzung zur SessionList hinzugefügt wurde, entweder automatisch, wenn AutoStartSession True ist, oder explizit durch Aufruf von SessionList.CreateSession aus OnCommandGet. Verwenden Sie es, um sitzungsspezifische Datenstrukturen zu initialisieren, einen Audit-Trail auszugeben oder Caches für den neuen Benutzer aufzuwärmen. Die Ereignissignatur hängt von der zugrunde liegenden Indy-Version ab (INDY10_5_7-Bedingung); aktuelle Indy-Builds stellen die TIdHTTPSession-Instanz über Sender bereit. Dieses Ereignis wird nur ausgelöst, wenn SessionState True ist.
procedure OnSessionStart(Sender: TObject);
begin
Log('session started: ' + TIdHTTPSession(Sender).SessionID);
end;