PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV (earlier versions) → Consommation webservice REST : Erreur 401
Consommation webservice REST : Erreur 401
Started by Abou, Feb., 22 2024 9:32 AM - No answer
Posted on February, 22 2024 - 9:32 AM
Bonjour, je souhaite avoir une solution à un problème de consommation de webservice REST. Je ne sais si cela est dû à un pare-feu mais je n'arrive pas à trouver la solution.
J'ai une erreur 401. La récupération du token se passe sans soucis avec les informations sur le token, le type et la date d'expiration.
Le problème c'est au niveau de la 2ème partie. Les tests sur Posmans sont concluants.

CONSTANTE
sUtilisateur = "user_name"
sMotPasse = "password"
accessTokenURL = "url/token"
urlMéthode = "url/Méthode"
FIN

httpToken_requete, httpReqAPI est une httpRequête
httpToken_reponse, httpRéponse est une httpRéponse
sCleClient, sCleSecret est une chaîne
jToken, jReponse est un JSON

httpToken_requete..Méthode = httpPost
httpToken_requete..URL = accessTokenURL
httpToken_requete..Contenu = "grant_type=password&username="+sUtilisateur+"&password="+sMotPasse
httpToken_reponse = HTTPEnvoie(httpToken_requete)

SI ErreurDétectée ALORS
Erreur(ErreurInfo(errComplet))
SINON
jToken = httpToken_reponse..Contenu
httpReqAPI..Méthode = httpGet
httpReqAPI..URL = urlMéthode
httpReqAPI..ContentType = "x-www-form-urlencoded"
httpReqAPI..Entête["Authorization"] = "Bearer"+ jToken.access_token
httpRéponse = HTTPEnvoie(httpReqAPI)

SI ErreurDétectée ALORS
Erreur(ErreurInfo(errComplet))
SINON
SI httpRéponse..CodeEtat = 200 ALORS
jReponse = httpRéponse..Contenu

SINON
ErreurInfo(errComplet)
FIN
FIN
FIN