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) Google Drive Refresh Access TokenDemonstrates how to automatically refresh the access token when it expires.
LOCAL lnSuccess LOCAL loJson LOCAL lcTokenFilePath LOCAL loOauth2 LOCAL loRest LOCAL lnBAutoReconnect LOCAL lcJsonResponse LOCAL loFac lnSuccess = 1 * It requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * This example uses a previously obtained access token having permission for the * Google Drive scope. * The access token (and refresh token) was previously saved to a JSON file with this format: * See Get Google Drive OAuth2 Access Token * { * "access_token": "ya29.Gls-BsdxTWuenChv ... yzVIrXikkLxu5T6dy4I6GjADFardoz4Lruw", * "expires_in": 3600, * "refresh_token": "1/tMBJ ... 27D-Hk6rpQYBA", * "scope": "https://www.googleapis.com/auth/drive", * "token_type": "Bearer" * } loJson = CreateObject('Chilkat_9_5_0.JsonObject') lcTokenFilePath = "qa_data/tokens/googleDrive.json" loJson.LoadFile(lcTokenFilePath) loOauth2 = CreateObject('Chilkat_9_5_0.OAuth2') loOauth2.AccessToken = loJson.StringOf("access_token") loOauth2.RefreshToken = loJson.StringOf("refresh_token") loRest = CreateObject('Chilkat_9_5_0.Rest') * Connect using TLS. lnBAutoReconnect = 1 lnSuccess = loRest.Connect("www.googleapis.com",443,1,lnBAutoReconnect) * Provide the authentication credentials (i.e. the access token) loRest.SetAuthOAuth2(loOauth2) * We'll test with a simple request to empty trash. * If our access token expired, we'll get a 401 response.. lcJsonResponse = loRest.FullRequestNoBody("DELETE","/drive/v3/files/trash") IF (loRest.LastMethodSuccess <> 1) THEN ? loRest.LastErrorText RELEASE loJson RELEASE loOauth2 RELEASE loRest CANCEL ENDIF * If the access token expired, we'll get a 401 response status with this response body: * { * "error": { * "errors": [ * { * "domain": "global", * "reason": "authError", * "message": "Invalid Credentials", * "locationType": "header", * "location": "Authorization" * } * ], * "code": 401, * "message": "Invalid Credentials" * } * } IF (loRest.ResponseStatusCode = 401) THEN ? "Refreshing access token..." loOauth2.AuthorizationEndpoint = "https://accounts.google.com/o/oauth2/v2/auth" loOauth2.TokenEndpoint = "https://www.googleapis.com/oauth2/v4/token" * Replace these with actual values. loOauth2.ClientId = "GOOGLE-CLIENT-ID" loOauth2.ClientSecret = "GOOGLE-CLIENT-SECRET" loOauth2.Scope = "https://www.googleapis.com/auth/drive" * Use OAuth2 to refresh the access token. lnSuccess = loOauth2.RefreshAccessToken() IF (lnSuccess <> 1) THEN ? loOauth2.LastErrorText RELEASE loJson RELEASE loOauth2 RELEASE loRest CANCEL ENDIF * Save the new access token to our XML file (so we can refresh it again when needed). loJson.UpdateString("access_token",loOauth2.AccessToken) loFac = CreateObject('Chilkat_9_5_0.FileAccess') loFac.WriteEntireTextFile(lcTokenFilePath,loJson.Emit(),"utf-8",0) ? "Access Token Refreshed!" * Retry the request with the new access token.. lcJsonResponse = loRest.FullRequestNoBody("DELETE","/drive/v3/files/trash") IF (loRest.LastMethodSuccess <> 1) THEN ? loRest.LastErrorText RELEASE loJson RELEASE loOauth2 RELEASE loRest RELEASE loFac CANCEL ENDIF ENDIF * A successful response will have a status code equal to 204 and the response body is empty. * (If not successful, then there should be a JSON response body with information..) IF (loRest.ResponseStatusCode <> 204) THEN ? "response status code = " + STR(loRest.ResponseStatusCode) ? "response status text = " + loRest.ResponseStatusText ? "response header: " + loRest.ResponseHeader ? "response JSON: " + lcJsonResponse RELEASE loJson RELEASE loOauth2 RELEASE loRest RELEASE loFac CANCEL ENDIF ? "Trash Emptied!" RELEASE loJson RELEASE loOauth2 RELEASE loRest RELEASE loFac |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.