Appel REST simple, enregistrement d’un utilisateur REST:appel REST

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

images/Welcome.png

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

procedure THeaderFooterwithNavigation.btnRegisterClick(Sender: TObject); 
begin 
 FClientControler.RegisterUser(edtRegisterLogin.Text, 
edtRegisterPassword1.Text, edtRegisterPassword2.Text); 
end; 
  • Les trois valeurs des zones de saisie sont passées en paramètre de la méthode TClientControler.RegisterUser dont l’implémentation est écrite ci-dessous :

procedure TClientControler.RegisterUser(login, password1, 
password2: string); 
var aResult :TJsonResult; 
begin 
 FCurrentAction := twmregister; 
 if (password1=password2) then 
 begin 
   DoRegisterUser(login,password1); 
 end 
 else 
 begin 
   aResult :=TJsonResult.Create(errPasswordNotComplete); 
   FCurrentResult := aResult; 
   DoActionCompleted; 
 end; 
end; 
  • Les trois paramètres d’entrée sont passés.

  • Un champ privé FCurrentAction enregistre le type d’action en cours. Ce champ servira plus loin pour le callback.

  • La validité du mot de passe est testée.

Si la règle sur le mot de passe...

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
Introduction
Suivant
Authentification REST de type Basic et login d’un utilisateur