PC SOFT

FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile

Inicio | Mensajes recientes | Conéctese... |  | Español FR
Inicio → WINDEV (versiones precedentes) → Token vide avec AuthIdentifie pour l'api Microsoft Graph
Token vide avec AuthIdentifie pour l'api Microsoft Graph
Iniciado por cora, 09,abr. 2024 11:53 - No hay respuesta
#1
Miembro registrado
10 mensajes
Publicado el 09,abril 2024 - 11:53
Bonjour,

J'ai récemment essayer d'utiliser L’API Graph de Microsoft. Pour le moment je n'arrive pas à récupérer le AuthToken que devrais renvoyer AuthIdentifie.

Je me suis servie de l'exemple de la documentation : https://doc.pcsoft.fr/?1000022219&lang=fr-FR&productversion=xxF250090f

Voici mon code, lorsque je l’exécute cela me redirige bien vers le pop-up de connexion puis je suis bien redirigé vers localhost:9000 avec le message sur la page "Vous pouvez maintenant fermer votre navigateur." mais toujours rien dans mon AuthToken.

Trace affiche seulement Valide a Faux
Rps serveur = | Valeur = | Valide = 0

Merci d'avance pour l'aide

// Paramètre de l'application
OAuth2Params est un OAuth2Paramètres
//ID de l'application
OAuth2Params..ClientID = sClientId
//SecretID
OAuth2Params..ClientSecret = sClientSecret

OAuth2Params..AuthURL = "https://login.microsoftonline.com/"+sTenantId+"/oauth2/v2.0/authorize"
OAuth2Params..TokenURL = "https://login.microsoftonline.com/"+sTenantId+"/oauth2/v2.0/token"
OAuth2Params..Scope = "Sites.ReadWrite.All"
//OAuth2Params..Scope = "Calendars.Read.Shared"
//OAuth2Params..Scope = "Mails.Read.All"
OAuth2Params.URLRedirection = "http://localhost:9000/"

// Demande d'authentification : ouvre la fenêtre de login
MonToken est un AuthToken = AuthIdentifie(OAuth2Params)
Trace("Rps serveur = " + MonToken.RéponseServeur + " | Valeur = " + MonToken.Valeur + " | Valide = " + MonToken.Valide)

IF MonToken <> Null THEN
IF ErrorOccurred THEN
Error("Une erreur s'est produite lors de la tentative de connexion a SharePoint " + CR + ErrorInfo())
RESULT False
END
RESULT True
END
→ Volver a WINDEV (versiones precedentes)