TsgcHTTPServer › Ereignisse › OnAuthentication
Wird ausgelöst, wenn die Authentifizierung aktiviert ist, sodass die Anwendung Benutzer und Passwort prüfen und die Verbindung annehmen oder ablehnen kann.
property OnAuthentication: TsgcWSAuthenticationEvent;
// TsgcWSAuthenticationEvent = procedure(Connection: TsgcWSConnection; aUser, aPassword: String; var Authenticated: Boolean) of object—
OnAuthentication wird jedes Mal ausgelöst, wenn der Server eine Authentifizierungsanfrage von einem Client empfängt, vorausgesetzt Authentication.Enabled ist True und die Authentifizierungsmethode ist eines der integrierten Schemata (Basic, Session, URL). Die Parameter aUser und aPassword tragen die vom Client bereitgestellten Anmeldeinformationen; setzen Sie Authenticated auf True, um die Verbindung anzunehmen, oder auf False, um sie abzulehnen. Wenn die Anmeldeinformationen hier nicht validiert werden, wird als Fallback die integrierte AuthUsers-Liste verwendet. Verwenden Sie für benutzerdefinierte, von der Komponente nicht erkannte Schemata (zum Beispiel JWT-Bearer-Token) stattdessen OnUnknownAuthentication. Das Ereignis gilt für HTTP-Anfragen.
procedure OnAuthentication(Connection: TsgcWSConnection; aUser, aPassword: string;
var Authenticated: Boolean);
begin
if ((aUser = 'user') and (aPassword = 'secret')) then
Authenticated := True
else
Authenticated := False;
end;