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
(Xojo Plugin) Google Drive Refresh Access TokenDemonstrates how to automatically refresh the access token when it expires.
Dim success As Boolean success = True // 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" // } Dim json As New Chilkat.JsonObject Dim tokenFilePath As String tokenFilePath = "qa_data/tokens/googleDrive.json" success = json.LoadFile(tokenFilePath) Dim oauth2 As New Chilkat.OAuth2 oauth2.AccessToken = json.StringOf("access_token") oauth2.RefreshToken = json.StringOf("refresh_token") Dim rest As New Chilkat.Rest // Connect using TLS. Dim bAutoReconnect As Boolean bAutoReconnect = True success = rest.Connect("www.googleapis.com",443,True,bAutoReconnect) // Provide the authentication credentials (i.e. the access token) success = rest.SetAuthOAuth2(oauth2) // We'll test with a simple request to empty trash. // If our access token expired, we'll get a 401 response.. Dim jsonResponse As String jsonResponse = rest.FullRequestNoBody("DELETE","/drive/v3/files/trash") If (rest.LastMethodSuccess <> True) Then System.DebugLog(rest.LastErrorText) Return End If // 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 (rest.ResponseStatusCode = 401) Then System.DebugLog("Refreshing access token...") oauth2.AuthorizationEndpoint = "https://accounts.google.com/o/oauth2/v2/auth" oauth2.TokenEndpoint = "https://www.googleapis.com/oauth2/v4/token" // Replace these with actual values. oauth2.ClientId = "GOOGLE-CLIENT-ID" oauth2.ClientSecret = "GOOGLE-CLIENT-SECRET" oauth2.Scope = "https://www.googleapis.com/auth/drive" // Use OAuth2 to refresh the access token. success = oauth2.RefreshAccessToken() If (success <> True) Then System.DebugLog(oauth2.LastErrorText) Return End If // Save the new access token to our XML file (so we can refresh it again when needed). success = json.UpdateString("access_token",oauth2.AccessToken) Dim fac As New Chilkat.FileAccess success = fac.WriteEntireTextFile(tokenFilePath,json.Emit(),"utf-8",False) System.DebugLog("Access Token Refreshed!") // Retry the request with the new access token.. jsonResponse = rest.FullRequestNoBody("DELETE","/drive/v3/files/trash") If (rest.LastMethodSuccess <> True) Then System.DebugLog(rest.LastErrorText) Return End If End If // 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 (rest.ResponseStatusCode <> 204) Then System.DebugLog("response status code = " + Str(rest.ResponseStatusCode)) System.DebugLog("response status text = " + rest.ResponseStatusText) System.DebugLog("response header: " + rest.ResponseHeader) System.DebugLog("response JSON: " + jsonResponse) Return End If System.DebugLog("Trash Emptied!") |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.