OAuth2 | Authentification serveur

Lorsqu'un client OAuth2 demande une nouvelle Autorisation, le serveur affiche une page web où l'utilisateur doit autoriser la connexion puis se connecter. Cette page est fournie par la bibliothèque sgcWebSockets et est distribuée automatiquement lorsqu'un client demande une Autorisation.

 

 

Si l'utilisateur autorise l'accès, un formulaire de connexion s'affiche où l'utilisateur doit saisir son nom d'utilisateur et son mot de passe.

Ces données seront reçues lors de l'événement OnOAuth2Authentication, vous devez donc valider que le nom d'utilisateur/mot de passe est correct et si c'est le cas, définir le paramètre Authenticated à true.

 

procedure OnAuth2Authentication(Connection: TsgcWSConnection; OAuth2: TsgcHTTPOAuth2Request; aUser, 
  aPassword: string; var Authenticated: Boolean);
begin
  if ((aUser = 'user') and (aPassword = 'secret')) then
    Authenticated := True;
end;