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 Basic 6.0) Google Drive Refresh Access TokenDemonstrates how to automatically refresh the access token when it expires.
Dim success As Long success = 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" ' } Dim json As New ChilkatJsonObject Dim tokenFilePath As String tokenFilePath = "qa_data/tokens/googleDrive.json" success = json.LoadFile(tokenFilePath) Dim oauth2 As New ChilkatOAuth2 oauth2.AccessToken = json.StringOf("access_token") oauth2.RefreshToken = json.StringOf("refresh_token") Dim rest As New ChilkatRest ' Connect using TLS. Dim bAutoReconnect As Long bAutoReconnect = 1 success = rest.Connect("www.googleapis.com",443,1,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 <> 1) Then Debug.Print rest.LastErrorText Exit Sub 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 Debug.Print "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 <> 1) Then Debug.Print oauth2.LastErrorText Exit Sub 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 CkFileAccess success = fac.WriteEntireTextFile(tokenFilePath,json.Emit(),"utf-8",0) Debug.Print "Access Token Refreshed!" ' Retry the request with the new access token.. jsonResponse = rest.FullRequestNoBody("DELETE","/drive/v3/files/trash") If (rest.LastMethodSuccess <> 1) Then Debug.Print rest.LastErrorText Exit Sub 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 Debug.Print "response status code = " & rest.ResponseStatusCode Debug.Print "response status text = " & rest.ResponseStatusText Debug.Print "response header: " & rest.ResponseHeader Debug.Print "response JSON: " & jsonResponse Exit Sub End If Debug.Print "Trash Emptied!" |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.