Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) Refresh GMail IMAP OAuth2 Access TokenDemonstrates how to refresh an access token GMail IMAP read/write access.
LOCAL loJsonToken LOCAL lnSuccess LOCAL loOauth2 LOCAL loSbJson * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * See Get GMail IMAP OAuth2 Access Token for Desktop App * for sample code showing how to obtain a GMail IMAP read/write access token. * It is assumed we previously obtained an OAuth2 access token for GMail. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') loJsonToken = CreateObject('Chilkat.JsonObject') lnSuccess = loJsonToken.LoadFile("qa_data/tokens/_gmailFullAccess.json") IF (lnSuccess <> 1) THEN ? "Failed to load _gmailFullAccess.json" RELEASE loJsonToken CANCEL ENDIF * The access token JSON looks something like this: * { * "access_token": "abac.Ci-ZabcdF37-NUrmSzxbHxTsMbtlN-uPfabcdAQN_2ekzj0s5ofCzRabcdTDMGaa2Q", * "token_type": "Bearer", * "expires_in": 3600, * "refresh_token": "1/lEe5abcdNJ77eOSDBabcdkQGVmDalkwabcdR2Hatbo" * } * * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.OAuth2') loOauth2 = CreateObject('Chilkat.OAuth2') loOauth2.TokenEndpoint = "https://www.googleapis.com/oauth2/v4/token" * Replace these with actual values. loOauth2.ClientId = "GOOGLE-CLIENT-ID" loOauth2.ClientSecret = "GOOGLE-CLIENT-SECRET" * Get the "refresh_token" loOauth2.RefreshToken = loJsonToken.StringOf("refresh_token") * Send the HTTP POST to refresh the access token.. lnSuccess = loOauth2.RefreshAccessToken() IF (lnSuccess <> 1) THEN ? loOauth2.LastErrorText RELEASE loJsonToken RELEASE loOauth2 CANCEL ENDIF ? "New access token: " + loOauth2.AccessToken * The response contains a new access token, but we must keep * our existing refresh token for when we need to refresh again in the future. loJsonToken.UpdateString("access_token",loOauth2.AccessToken) * Save the new JSON access token response to a file. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder') loSbJson = CreateObject('Chilkat.StringBuilder') loJsonToken.EmitCompact = 0 loJsonToken.EmitSb(loSbJson) loSbJson.WriteFile("qa_data/tokens/_gmailFullAccess.json","utf-8",0) ? "Access token refreshed!" ? "New Access Token = " + loOauth2.AccessToken RELEASE loJsonToken RELEASE loOauth2 RELEASE loSbJson |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.