|
|
|
|
- Utilisation d'un Webservice
DéclareContexteWebservice (Exemple)
Utilisation d'un Webservice Cet exemple permet de lancer un Webservice avec toutes les initialisations nécessaires.
//-----Déclarations globales du Webservice // Nom du client gsNomClient est une chaîne // Gestion du nom du client : // si le nom du client est déjà renseigné, // cela signifie que l'utilisateur est déjà authentifié DéclareContexteWebservice(gsNomClient)
//---- Procédure globale Connexion au Webservice, // à appeler une fois pour initialiser le Webservice PROCÉDURE Connexion(sUtilisateur, sMotDePasse) // Vérifie que le client existe SI PAS HLitRecherchePremier(CLIENT, NOM, sUtilisateur) ALORS RENVOYER Faux SINON // Vérifie le mot de passe SI CLIENT.MOTDEPASSE = sMotDePasse ALORS // Mémorise le nom du client // dans la variable mémorisée par DéclareContexteWebservice gsNomClient = sUtilisateur RENVOYER Vrai SINON RENVOYER Faux FIN FIN
//---- Procédure globale de vérification // s'il y a bien eu une connexion avec un utilisateur/mot de passe correct PROCÉDURE VerifieConnexion() SI gsNomClient  ="" ALORS RENVOYER Faux SINON RENVOYER Vrai
//-----Procédure globale qui nécessite une connexion préalable (avec la méthode connexion) PROCÉDURE Calcul(nParam1 est un entier, nParam2 est un entier) // Vérifie si la connexion a été faite SI PAS VerifieConnexion() ALORS ExceptionDéclenche(1, "Connexion/authentification incorrect") // Connexion OK, effectue le calcul nRésultat est un entier nRésultat = nParam1 + nParam2 RENVOYER nRésultat
Documentation également disponible pour…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|