Connexion Google OAuth2 et Renouvellement du Token - WINDEV 2024 - Fóruns de programação

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

Inicio | Mensagens recentes | Conecte-se... | | Português

Inicio → WINDEV 2024 → Connexion Google OAuth2 et Renouvellement du Token

Connexion Google OAuth2 et Renouvellement du Token

Iniciado por Damien R., mai., 11 2022 3:47 PM - 20 respostas

Damien R.

Membro registado
2 mensagems

Publicado em maio, 11 2022 - 3:47 PM

Bonjour à tous,

Avec le futur changement fin mai, je dois passer ma petit app d'envoi de mail en OAuth2 pour google. Cette appli windows envoi aussi des mails en smtp pour d'autres comptes (ovh, 1and, orange etc...).
J'ai repris le code du webinaire récent.

Tout fonctionne bien, ou presque.

Le Token ne veut pas se renouveler. La propriété Actualisation du token étant vide, cela indique qu'il ne peut être renouveler. Et si j'essaie, il est non valide et donc je dois en récup un nouveau.
Résultat, toutes les heures, on doit donc demander un nouveau token.

Je précise qu'actuellement l'application sur la console google est en Test, nous avons décidé de ne pas publier car nous avons très peu de client avec un compte google pour l'envoi de mail, et que l'appli est en fin de vie (le process de validation parait fastidieux)

Le code de la procédure de connexion que j'utilise :

Procedure ConnexionOAuth2(sAdresseEmail est une chaîne):booléen

// Session OAuth
bufToken  est un Buffer
gsSessionOAuth = fRepExe() + fSep() + "OAuth2_" + sAdresseEmail + ".bin"

// Connexion OAuth
EmailOAuth  est un OAuth2Paramètres
EmailOAuth.ClientID   = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxx.apps.googleusercontent.com"
EmailOAuth.ClientSecret  = "xxxxxxxxxxxxxxxxxxxxxxxxx"
EmailOAuth.URLAuth   = "https://accounts.google.com/o/oauth2/v2/auth"
EmailOAuth.URLToken   = "https://accounts.google.com/o/oauth2/token"
EmailOAuth.Scope   = "https://www.googleapis.com/auth/userinfo.email" + " " +  "https://www.googleapis.com/auth/gmail.send"
EmailOAuth.URLRedirection = "http://localhost:9000"

// Token précédemment mémorisé ?
SI fFichierExiste(gsSessionOAuth) ALORS
 QUAND EXCEPTION DANS
  // Charge la session
  bufToken = fChargeBuffer(gsSessionOAuth)
  Désérialise(gStToken,bufToken,psdBinaire)
 FAIRE
  // Erreur de relecture, il faut refaire une authentification (voir plus bas avec gstToken.Valide)
 SINON
  // On vérifie la date d'expiration du token, et renouvellement si besoin
  SI gStToken.DateExpiration-1Min < DateHeureSys() _ET_ gStToken.Actualisation <> "" ALORS
   gStToken = gStToken.RenouvelleToken()
   SI gStToken.Valide ALORS
    SauveToken()
   SINON
    // Token n'a pas pu être renouveler, il faut refaire une authentification (voir plus bas avec gstToken.Valide)
   FIN
  FIN
 FIN
FIN

SI PAS gStToken.Valide ALORS
 fSupprime(gsSessionOAuth)
 // Connexion au service
 Info("Votre navigateur va s'ouvrir pour vous connecter à votre compte Google","Une fois la connexion effectuée, vous devrez cocher le service <Envoyer des e-mails en votre nom.>")
 gStToken = AuthIdentifie(EmailOAuth)
 SI gStToken.Valide ALORS
  SauveToken()  
 FIN
FIN

 PROCEDURE INTERNE SauveToken()
   Sérialise(gStToken,bufToken,psdBinaire)
   fSauveBuffer(gsSessionOAuth,bufToken)
  FIN

 RENVOYER gStToken.Valide