Token vide avec AuthIdentifie pour l'api Microsoft Graph

Version imprimable

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&la...ion=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
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 // 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

15/04/2024, 13h57
frenchsting

Bonjour,

Question bête :
As-tu testé tes paramètres avec un Postman ? Cela te permettrait de voir (vérifier) le code à utiliser.
15/04/2024, 15h33
ceura

Citation:

Envoyé par frenchsting

Bonjour,

Question bête :
As-tu testé tes paramètres avec un Postman ? Cela te permettrait de voir (vérifier) le code à utiliser.

C'était simplement que je devais passer par une authentification PKCE puisque je suis une desktop app. De ce que j'ai cru comprendre, Windev 2024 le facilite. Mais vu que pour l'instant, je suis sur Windev 25, je vais essayer de l’adapter pour le faire marcher.

Merci pour ta réponse

Requête POST infini API Graph

Alors j'ai bien réussi à me connecter et à obtenir le token. Avec Postman j'ai bien réussi à utiliser les endpoints de l'API pour créer, modifier les rendez-vous d'un calendrier mais lorsque je veux le faire sur Windev l'envoie de ma requête bloque à l'infini. Mais aucune erreur m'est retournée.
Le problème vient très certainement du contenu du body JSON que j'envoie mais je n'arrive pas à voir ce qui pose problème avec ce dernier.

Ma partie Windev
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 clOAuthMicrosoft est une OAuthOffice365 clOAuthMicrosoft.Connect() ReqPostGraph est une httpRequest ResPostGrap est une httpResponse Contenu est un JSON // Param de ma Req ReqPostGraph..URL = "https://graph.microsoft.com/v1.0/me/calendars/idCalendrier/events" ReqPostGraph..Méthode = httpPost ReqPostGraph..AuthToken = clOAuthMicrosoft.m_TokenSession ReqPostGraph..ContentType = "application/json" ReqPostGraph..Entête["Authorization"] = "Bearer "+clOAuthMicrosoft.m_TokenSession.Valeur vContenuVariant est un Variant ReqPostGraph..DuréeNonRéponse = 10000 // Variant de mon body vContenuVariant.subject = "Test Graph" vContenuVariant.body.contentType = "HTML" vContenuVariant.body.content = "Test corps depuis Windev" vContenuVariant.start.dateTime = "2024-04-20T13:00:00" vContenuVariant.start.timeZone = "Europe/Paris" vContenuVariant.end.dateTime = "2024-04-20T14:00:00" vContenuVariant.end.timeZone = "Europe/Paris" vContenuVariant.location.displayName = "sTestLieu" Contenu = VariantVersJSON(vContenuVariant) ReqPostGraph..Contenu = Contenu // Boucle infini ResPostGrap = HTTPEnvoie(ReqPostGraph) Trace(ResPostGrap.CodeEtat, ResPostGrap.Contenu)
J'ai extrait le JSON que je créais et je l'ai tester sur Postman tout fonctionne bien

Code:

{ "subject":"Test Graph", "body":{ "contentType":"HTML", "content":"Test crops depuis Windev" }, "start":{ "dateTime":"2024-04-20T13:00:00", "timeZone":"Europe/Paris" }, "end":{ "dateTime":"2024-04-20T14:00:00", "timeZone":"Europe/Paris" }, "location":{ "displayName":"sTestLieu" } }

17/04/2024, 15h03
frenchsting

Bonjour,

Ce ne serait pas une histoire d'encodage. Genre passer la chaine (ton Json) en UTF8 ?

Citation:

Envoyé par frenchsting

Bonjour,

Ce ne serait pas une histoire d'encodage. Genre passer la chaine (ton Json) en UTF8 ?

Bonjour,

Merci, j'ai essayé ce code, toujours aucune erreur mais une boucle infini

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
// Variant de mon body
vContenuVariant.subject = "Test Graph"
 
vContenuVariant.body.contentType = "HTML"
vContenuVariant.body.content = "Test corps depuis Windev"
 
vContenuVariant.start.dateTime = "2024-04-20T13:00:00"
vContenuVariant.start.timeZone = "Europe/Paris"
 
vContenuVariant.end.dateTime = "2024-04-20T14:00:00"
vContenuVariant.end.timeZone = "Europe/Paris"
 
vContenuVariant.location.displayName = "sTestLieu"
 
Trace(clOAuthMicrosoft.m_TokenSession.Valeur)
 
sContenu est une chaîne = VariantVersJSON(vContenuVariant)
ReqPostGraph..Contenu = ChaîneVersUTF8(sContenu)
 
// Boucle infini
ResPostGrap = HTTPEnvoie(ReqPostGraph)
Trace(ResPostGrap.CodeEtat, ResPostGrap.Contenu)

17/04/2024, 15h47
frenchsting

Je ne comprends pas ton histoire de boucle infinie.

Par contre, tu ne testes pas si ton httpenvoie s'est bien déroulée (test de ErreurDétectée). Peut-être que ça te donnera une piste

Citation:

Envoyé par frenchsting

Je ne comprends pas ton histoire de boucle infinie.

Par contre, tu ne testes pas si ton httpenvoie s'est bien déroulée (test de ErreurDétectée). Peut-être que ça te donnera une piste

Je me suis peut-être mal exprimé, mais si je ne mets pas ReqPostGraph..DuréeNonRéponse = 10000 l'application reste bloquer à l'envoi de la requête (c'est ce que j'appelle boucle infinie.). Donc elle ne va même pas jusqu'à ErreurDétecté (et si je mets DuréeNonRéponse de 10s alors ErreurInfo me dit simplement que le délai est dépassé).
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Trace(clOAuthMicrosoft.m_TokenSession.Valeur) Info(clOAuthMicrosoft.m_TokenSession.Actualisation) sContenu est une chaîne = VariantVersJSON(vContenuVariant) ReqPostGraph..Contenu = ChaîneVersUTF8(sContenu) // Boucle infini ResPostGrap = HTTPEnvoie(ReqPostGraph) SI ErreurDétectée ALORS Erreur(ErreurInfo(errComplet)) SINON Trace(ResPostGrap.CodeEtat, ResPostGrap.Contenu) FIN

17/04/2024, 16h20
frenchsting

Je comprends mieux : tu parles d'attente infinie plutôt ;)

S'il n'y a pas de réponse, c'est que quelque chose ne va pas. C'est logique.

Question : tu as regardé le code généré par Postman ?

Quand j'envoie la requête avec Postman j'ai un code retour de 201 avec le JSON de réponse comme sur la documentation et surtout le RDV est bien créer sur le calendrier.

Si tu parle du code snippet par exemple en python que Postman peut générer de ma requête il ressemble à ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
import requests
import json
 
url = "https://graph.microsoft.com/v1.0/me/calendars/idCalendrier/events"
 
payload = json.dumps({
  "subject": "Test Graph",
  "body": {
    "contentType": "HTML",
    "content": "Test corps depuis Windev"
  },
  "start": {
    "dateTime": "2024-04-20T13:00:00",
    "timeZone": "Europe/Paris"
  },
  "end": {
    "dateTime": "2024-04-20T14:00:00",
    "timeZone": "Europe/Paris"
  },
  "location": {
    "displayName": "sTestLieu"
  }
})
headers = {
  'Authorization': 'Bearer token',
  'Content-Type': 'application/json'
}
 
response = requests.request("POST", url, headers=headers, data=payload)
 
print(response.text)

17/04/2024, 17h57
frenchsting

Prends plutôt l'exemple en C# ou Java.

Voici le code C# :

Code:

1
2
3
4
5
6
7
8
var client = new HttpClient();
var request = new HttpRequestMessage(HttpMethod.Post, "https://graph.microsoft.com/v1.0/me/calendars/idCalendrier/events");
request.Headers.Add("Authorization", "Bearer token");
var content = new StringContent("{\r\n  \"subject\": \"Test Graph\",\r\n  \"body\": {\r\n    \"contentType\": \"HTML\",\r\n    \"content\": \"Test corps depuis Windev\"\r\n  },\r\n  \"start\": {\r\n    \"dateTime\": \"2024-04-20T13:00:00\",\r\n    \"timeZone\": \"Europe/Paris\"\r\n  },\r\n  \"end\": {\r\n    \"dateTime\": \"2024-04-20T14:00:00\",\r\n    \"timeZone\": \"Europe/Paris\"\r\n  },\r\n  \"location\": {\r\n    \"displayName\": \"sTestLieu\"\r\n  }\r\n}", null, "application/json");
request.Content = content;
var response = await client.SendAsync(request);
response.EnsureSuccessStatusCode();
Console.WriteLine(await response.Content.ReadAsStringAsync());

Le code Java :

Code:

1
2
3
4
5
6
7
8
9
10
11
OkHttpClient client = new OkHttpClient().newBuilder()
  .build();
MediaType mediaType = MediaType.parse("application/json");
RequestBody body = RequestBody.create(mediaType, "{\r\n  \"subject\": \"Test Graph\",\r\n  \"body\": {\r\n    \"contentType\": \"HTML\",\r\n    \"content\": \"Test corps depuis Windev\"\r\n  },\r\n  \"start\": {\r\n    \"dateTime\": \"2024-04-20T13:00:00\",\r\n    \"timeZone\": \"Europe/Paris\"\r\n  },\r\n  \"end\": {\r\n    \"dateTime\": \"2024-04-20T14:00:00\",\r\n    \"timeZone\": \"Europe/Paris\"\r\n  },\r\n  \"location\": {\r\n    \"displayName\": \"sTestLieu\"\r\n  }\r\n}");
Request request = new Request.Builder()
  .url("https://graph.microsoft.com/v1.0/me/calendars/idCalendrier/events")
  .method("POST", body)
  .addHeader("Authorization", "Bearer token")
  .addHeader("Content-Type", "application/json")
  .build();
Response response = client.newCall(request).execute();

18/04/2024, 14h42
frenchsting

Bonjour,

D'après ce que je vois (en diagonale), il faut que tu sois en méthode POST. Et HTTPenvoie() ne fait pas ça. Il fau(drai)t que tu utilises une HTTPrequête.

Je début Windev donc je ne suis pas sur de ce que je dis, mais HTTPEnvoie prend ma variable httpRequête et dans ma variable httpRequête je mets bien la Méthode à POST donc normalement HTTPEnvoie est en mode POST pour faire ma requêtre, non ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
clOAuthMicrosoft est une OAuthOffice365
clOAuthMicrosoft.Connect()
ReqPostGraph est une httpRequest
ResPostGrap est une httpResponse
 
// Param de ma Req
ReqPostGraph..URL = " https://graph.microsoft.com/v1.0/me/events/idEvent/attachments"
//ReqPostGraph..Méthode = httpPost
ReqPostGraph..AuthToken = clOAuthMicrosoft.m_TokenSession
ReqPostGraph..ContentType = "application/json"
ReqPostGraph..Entête["Authorization"] = "Bearer "+clOAuthMicrosoft.m_TokenSession.Valeur
ReqPostGraph..DuréeNonRéponse = 10000
 
sContenu est une JSON = [
{
    "@odata.type": "#microsoft.graph.fileAttachment",
}
]
sContenu.name = "testWindev.txt"
sContenu.contentType = "text/plain"
sContenu.contentBytes = "SGVsbG8gV29ybGQh"
 
ReqPostGraph..Contenu	= sContenu
Trace("JSON à envoyer : ", sContenu)
 
// Boucle infini
ResPostGrap = HTTPEnvoie(ReqPostGraph)
 
SI ErreurDétectée ALORS
	Erreur(ErreurInfo(errComplet))
SINON
	Trace(ResPostGrap.CodeEtat, ResPostGrap.Contenu)
FIN

18/04/2024, 15h22
frenchsting

Oui, ta variable de type HttpRequete est ok. Mais comme PCSOFT a changé d'épaule depuis, il est possible que dans ton cas, la fonction HttpRequete fonctionnera (peut-être) mieux.

Je viens de voir qu'il y a une autorisation bearer. Il y a eu une discussion à ce propos dans ce forum. Regarde si ça s'applique à ton cas.

Bon courage à toi

C'est bon j'ai réussi à faire marcher la requête, le "problème" était que lors de requête PATCH ou POST le fait de mettre en en-tête le Bearer Token cela fesait buguer la requête mais lorsque je l'enlève tout fonctionne. J'ai aucune idée de pourquoi cela bloque pour les requêtes autres que GET
La ligne qui ne faut pas mettre en POST, PATCH : ReqPostGraph..Entête["Authorization"] = "Bearer "+token, surement car ReqPostGraph..AuthToken = clOAuthMicrosoft.m_TokenSession le fait déjà à sa place

Code d'une requête fonctionnel pour l'ajout de pièce jointe à un RDV existant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 clOAuthMicrosoft est une OAuthOffice365 clOAuthMicrosoft.Connect() ReqPostGraph est une restRequête ResPostGrap est une restRéponse // Param de ma Req ReqPostGraph..URL = " https://graph.microsoft.com/v1.0/me/events/eventId/attachments" ReqPostGraph..Méthode = httpPost ReqPostGraph..AuthToken = clOAuthMicrosoft.m_TokenSession ReqPostGraph..ContentType = "application/json" ReqPostGraph..DuréeNonRéponse = 10000 sContenu est une JSON = [ { "@odata.type": "#microsoft.graph.fileAttachment", } ] sContenu.Name = "testWindev.txt" sContenu.ContentType = "text/plain" sContenu.contentBytes = "SGVsbG8gV29ybGQh" ReqPostGraph..Contenu = sContenu Trace("JSON à envoyer : ", sContenu) ResPostGrap = RESTEnvoie(ReqPostGraph) SI ErreurDétectée ALORS Erreur(ErreurInfo(errComplet)) SINON Trace(ResPostGrap.CodeEtat, ResPostGrap.Contenu) FIN