AZ12
03/10/2016, 09h22
Bonjour,
Si cela peut aider qqln je partage mes infos ; le code d'origine de windev concernant l'exemple WD API OVH de la LST 102 possède des erreurs , voici les lignes à modifier :
Classe APIOVHBase
PROCEDURE ConnexionAPI( sIdentifiantOVH est une chaîne, sMotDePasseOVH est une chaîne, duration est un entier, sMethodes est une chaîne = "GET, POST, PUT, DELETE", sPath est une chaîne = "/*" )
……..
SI XMLDocument("connexionOVH",sPageConnexion,xdHTML) ALORS
Remplacer la ligne
// SI XMLExécuteXPath("connexionOVH","//input[@placeholder='Account ID']") ALORS
SI XMLExécuteXPath("connexionOVH","//input[@placeholder='Account ID or email address']") ALORS
sIDAccoundID = XMLDonnée("connexionOVH","name")
FIN
SI XMLExécuteXPath("connexionOVH","//input[@placeholder='Password']") ALORS
sIDPassword = XMLDonnée("connexionOVH","name")
FIN
SI XMLExécuteXPath("connexionOVH","//input[@name='credentialToken']") ALORS
sCredentialToken = XMLDonnée("connexionOVH","value")
FIN
XMLTermine("connexionOVH")
FIN
…….
// Requête pour obtenir la page de connexion
repIdent est un httpRéponse = HTTPEnvoie(reqIdent)
sLocation est une chaîne = repIdent.Entête["Location"]
Ajout de la ligne suivante
reqIdent.IgnoreErreur = httpIgnoreRedirection
SI repIdent.CodeEtat<>302 _OU_ sLocation<>sURLRedirect ALORS
ErreurDéclenche(2,"Echec de la connexion à l'API. Erreur renvoyée : "+repIdent.Contenu)
FIN
N'hésitez pas à répondre ou me mp si vous avez besoin de la classe entière . Cordialement .
Si cela peut aider qqln je partage mes infos ; le code d'origine de windev concernant l'exemple WD API OVH de la LST 102 possède des erreurs , voici les lignes à modifier :
Classe APIOVHBase
PROCEDURE ConnexionAPI( sIdentifiantOVH est une chaîne, sMotDePasseOVH est une chaîne, duration est un entier, sMethodes est une chaîne = "GET, POST, PUT, DELETE", sPath est une chaîne = "/*" )
……..
SI XMLDocument("connexionOVH",sPageConnexion,xdHTML) ALORS
Remplacer la ligne
// SI XMLExécuteXPath("connexionOVH","//input[@placeholder='Account ID']") ALORS
SI XMLExécuteXPath("connexionOVH","//input[@placeholder='Account ID or email address']") ALORS
sIDAccoundID = XMLDonnée("connexionOVH","name")
FIN
SI XMLExécuteXPath("connexionOVH","//input[@placeholder='Password']") ALORS
sIDPassword = XMLDonnée("connexionOVH","name")
FIN
SI XMLExécuteXPath("connexionOVH","//input[@name='credentialToken']") ALORS
sCredentialToken = XMLDonnée("connexionOVH","value")
FIN
XMLTermine("connexionOVH")
FIN
…….
// Requête pour obtenir la page de connexion
repIdent est un httpRéponse = HTTPEnvoie(reqIdent)
sLocation est une chaîne = repIdent.Entête["Location"]
Ajout de la ligne suivante
reqIdent.IgnoreErreur = httpIgnoreRedirection
SI repIdent.CodeEtat<>302 _OU_ sLocation<>sURLRedirect ALORS
ErreurDéclenche(2,"Echec de la connexion à l'API. Erreur renvoyée : "+repIdent.Contenu)
FIN
N'hésitez pas à répondre ou me mp si vous avez besoin de la classe entière . Cordialement .