Microsoft 365 et Gmail n'acceptent plus un simple mot de passe pour la plupart des boîtes mail. Obtiens les jetons OAuth2, garde-les à jour, et fournis à ton client SMTP, IMAP ou POP3 exactement la chaîne SASL dont il a besoin.
Obtient et rafraîchit les jetons d'accès OAuth 2.0 pour Exchange Online et Gmail, et construit les chaînes XOAUTH2 et OAUTHBEARER. Il ne dialogue jamais directement avec le serveur mail, donc il fonctionne avec Indy TIdSMTP, TIdIMAP4, TIdPOP3 ou toute bibliothèque capable d'envoyer une commande SASL brute.
TsgcMailOAuth2 (unit sgcAuth_Mail_OAuth2)
SASL OAUTHBEARER (RFC 7628) et XOAUTH2
Windows, macOS, Linux, iOS, Android
Enterprise et All-Access, ainsi que le pack sgcAuth. Également disponible dans sgcWebSockets .NET.
Choisis le Provider et les Protocols, renseigne ClientId, réutilise le jeton de rafraîchissement stocké ou appelle Start, puis authentifie la session mail avec GetXOAuth2.
uses
IdSMTP, sgcAuth_Mail_OAuth2;
// Mail est un champ du formulaire : Mail: TsgcMailOAuth2;
procedure TForm1.FormCreate(Sender: TObject);
begin
Mail := TsgcMailOAuth2.Create(Self);
Mail.Provider := mopMicrosoft365;
Mail.Protocols := [mpSMTP];
Mail.TenantId := 'contoso.onmicrosoft.com';
Mail.ClientId := 'your-application-id';
Mail.OnTokensChanged := OnMailTokensChanged;
// réutilise le jeton de rafraîchissement stocké, ne te connecte que s'il ne fonctionne plus
Mail.RefreshToken := LoadRefreshToken;
if (Mail.RefreshToken = '') or not Mail.Refresh then
Mail.Start; // ouvre le navigateur, PKCE et une redirection en boucle locale
end;
procedure TForm1.OnMailTokensChanged(Sender: TObject; const AccessToken,
RefreshToken: String; const ExpiresAt: TDateTime);
begin
SaveRefreshToken(RefreshToken); // chiffre-le dans ton stockage
end;
// TIdSMTP avec UseTLS = utUseExplicitTLS et AuthType = satNone
procedure TForm1.Authenticate(aSMTP: TIdSMTP);
begin
aSMTP.Connect; // EHLO et STARTTLS
aSMTP.SendCmd('AUTH XOAUTH2 ' + Mail.GetXOAuth2('user@contoso.com'), 235);
end;// uses: IdSMTP, sgcAuth_Mail_OAuth2
TsgcMailOAuth2 *Mail = new TsgcMailOAuth2(this);
Mail->Provider = mopMicrosoft365;
Mail->Protocols = TsgcMailOAuth2Protocols() << mpSMTP;
Mail->TenantId = "contoso.onmicrosoft.com";
Mail->ClientId = "your-application-id";
Mail->OnTokensChanged = OnMailTokensChanged;
Mail->RefreshToken = LoadRefreshToken();
if (Mail->RefreshToken.IsEmpty() || !Mail->Refresh())
Mail->Start();
IdSMTP1->Connect();
IdSMTP1->SendCmd("AUTH XOAUTH2 " + Mail->GetXOAuth2("user@contoso.com"), 235);La partie OAuth2 de la messagerie moderne, dans un seul composant avec les détails du fournisseur déjà renseignés.
Provider sélectionne mopMicrosoft365 ou mopGmail avec les bons endpoints. mopCustom prend CustomAuthURL, CustomTokenURL, CustomDeviceAuthorizationURL et CustomScope pour tout autre fournisseur.
Définis Protocols avec n'importe quelle combinaison de mpSMTP, mpIMAP et mpPOP3 et le composant demande les scopes correspondants, avec offline_access sur Microsoft 365. GetScope montre ce qui sera demandé.
Flow choisit mofAuthorizationCodePKCE (navigateur plus redirection en boucle locale, voir LocalServerOptions) ou mofDeviceCode pour les services et consoles, où OnDeviceCode te fournit le code et l'URL à afficher.
AccessToken, RefreshToken et ExpiresAt sont toujours à jour. Refresh renouvelle le jeton d'accès de façon synchrone et OnTokensChanged se déclenche à chaque fois, pour que tu puisses conserver le nouveau jeton de rafraîchissement.
GetXOAuth2 et GetOAuthBearer retournent les réponses initiales en Base64 pour AUTH XOAUTH2 et AUTH OAUTHBEARER. Les variantes Raw et les fonctions sgcGetXOAuth2 aident au débogage et avec d'autres sources de jetons.
Le composant n'ouvre jamais de connexion mail. Utilise Indy TIdSMTP, TIdIMAP4 ou TIdPOP3, ou toute bibliothèque mail capable d'envoyer une commande SASL brute, avec HTTPClientOptions pour le TLS des requêtes de jeton.
Sources faisant autorité pour les standards implémentés par ce composant.
Accès direct à la référence du composant, récupère le projet de démo prêt à l'emploi et télécharge l'essai.
| Aide en ligne : TsgcMailOAuth2 Référence complète des propriétés, méthodes et événements, plus les étapes d'enregistrement de l'application chez Microsoft 365 et Gmail. | Ouvrir | |
| Projet de démo : Demos\26.Authentication\06.Mail_OAuth2 Connexion via navigateur et device code, rafraîchissement du jeton et un mail de test envoyé avec AUTH XOAUTH2. Livré dans le paquet sgcWebSockets, télécharge l'essai ci-dessous. | Ouvrir | |
| Document technique (PDF) Fonctionnalités, démarrage rapide, exemples de code pour Delphi et C++ Builder et références aux sources primaires pour ce composant uniquement. | Ouvrir | |
| Manuel utilisateur (PDF) Manuel complet couvrant tous les composants de la bibliothèque. | Ouvrir | |
| Blog : Connexion Delphi avec Passkeys, SSO SAML, LDAP et TOTP 2FA Comment les six composants d'authentification s'articulent dans une seule application Delphi. | Ouvrir |