1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| auth est une chaîne = Crypte("IdClient:Mdp", "", compresseAucun, encodeBASE64)
auth = Remplace(auth, CRLF, "")
header est une chaîne = "Authorization: Basic " + auth
sparam est une chaîne = "grant_type=client_credentials"
SI HTTPRequête("https://api.sandbox.paypal.com/v1/oauth2/token", "", header, sparam) ALORS
res est une chaîne = HTTPDonneRésultat(httpRésultat)
POUR TOUTE CHAINE sSousChaine DE res SEPAREE PAR ","
Trace(sSousChaine)
SI ExtraitChaîne(sSousChaine,1,":",DepuisDébut) = """access_token""" ALORS
SAI_AccessToken = ExtraitChaîne(sSousChaine,1,":",DepuisFin)
FIN
FIN
FIN |
Partager