Authentification REST de type Basic et login d’un utilisateur REST:authentification REST

Le point d’entrée de cette action est l’appui sur le bouton Connexion de l’IHM comme dans la capture d’écran ci-dessous :

images/Connexion.PNG

L’implémentation de la méthode appelée dans le cas de l’appui sur le bouton Connexion est présentée ci-dessous :

procedure THeaderFooterwithNavigation.btnLoginClick (Sender: TObject); 
begin 
 FClientControler.LoginUser(edtLogin.Text,edtPassword.Text); end; 
  • Les deux valeurs des zones de saisie sont passées en paramètre de la méthode TClientControler.LoginUser dont l’implémentation est présentée ci-dessous :

procedure TClientControler.LoginUser(login, password: string); 
var Authent:THTTPBasicAuthenticator; 
    aResult :TJsonResult; 
begin 
 FCurrentAction := twmLogin; 
 aResult := TJsonResult.Create(errSuccess); 
 HTTPBasicAuthenticator.Username := login; 
 HTTPBasicAuthenticator.Password := password; 
 RESTClient.Authenticator := HTTPBasicAuthenticator; 
 RESTClient.BaseURL := c_BaseURL+'delphi/tokens'; 
 RESTRequest.Method := rmPost; 
 RESTRequest.ClearBody; 
 RESTRequest.ExecuteAsync( 
   procedure 
   begin 
     FCurrentStatusCode := RESTResponse.StatusCode; 
     FreeAndNil(FLogguedUser); 
   ...
Pour consulter la suite, découvrez le livre suivant :
couv_RIDELPH.png
60-signet.svg
En version papier
20-ecran_lettre.svg
En version numérique
41-logo_abonnement.svg
En illimité avec l'abonnement ENI
130-boutique.svg
Sur la boutique officielle ENI
Précédent
Appel REST simple, enregistrement d’un utilisateur
Suivant
Utilisation du Livebinding avec un modèle de données