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
(Tcl) Google Drive Refresh Access TokenDemonstrates how to automatically refresh the access token when it expires.
load ./chilkat.dll set 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" # } set json [new_CkJsonObject] set tokenFilePath "qa_data/tokens/googleDrive.json" CkJsonObject_LoadFile $json $tokenFilePath set oauth2 [new_CkOAuth2] CkOAuth2_put_AccessToken $oauth2 [CkJsonObject_stringOf $json "access_token"] CkOAuth2_put_RefreshToken $oauth2 [CkJsonObject_stringOf $json "refresh_token"] set rest [new_CkRest] # Connect using TLS. set bAutoReconnect 1 set success [CkRest_Connect $rest "www.googleapis.com" 443 1 $bAutoReconnect] # Provide the authentication credentials (i.e. the access token) CkRest_SetAuthOAuth2 $rest $oauth2 # We'll test with a simple request to empty trash. # If our access token expired, we'll get a 401 response.. set jsonResponse [CkRest_fullRequestNoBody $rest "DELETE" "/drive/v3/files/trash"] if {[CkRest_get_LastMethodSuccess $rest] != 1} then { puts [CkRest_lastErrorText $rest] delete_CkJsonObject $json delete_CkOAuth2 $oauth2 delete_CkRest $rest exit } # 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 {[CkRest_get_ResponseStatusCode $rest] == 401} then { puts "Refreshing access token..." CkOAuth2_put_AuthorizationEndpoint $oauth2 "https://accounts.google.com/o/oauth2/v2/auth" CkOAuth2_put_TokenEndpoint $oauth2 "https://www.googleapis.com/oauth2/v4/token" # Replace these with actual values. CkOAuth2_put_ClientId $oauth2 "GOOGLE-CLIENT-ID" CkOAuth2_put_ClientSecret $oauth2 "GOOGLE-CLIENT-SECRET" CkOAuth2_put_Scope $oauth2 "https://www.googleapis.com/auth/drive" # Use OAuth2 to refresh the access token. set success [CkOAuth2_RefreshAccessToken $oauth2] if {$success != 1} then { puts [CkOAuth2_lastErrorText $oauth2] delete_CkJsonObject $json delete_CkOAuth2 $oauth2 delete_CkRest $rest exit } # Save the new access token to our XML file (so we can refresh it again when needed). CkJsonObject_UpdateString $json "access_token" [CkOAuth2_accessToken $oauth2] set fac [new_CkFileAccess] CkFileAccess_WriteEntireTextFile $fac $tokenFilePath [CkJsonObject_emit $json] "utf-8" 0 puts "Access Token Refreshed!" # Retry the request with the new access token.. set jsonResponse [CkRest_fullRequestNoBody $rest "DELETE" "/drive/v3/files/trash"] if {[CkRest_get_LastMethodSuccess $rest] != 1} then { puts [CkRest_lastErrorText $rest] delete_CkJsonObject $json delete_CkOAuth2 $oauth2 delete_CkRest $rest delete_CkFileAccess $fac exit } } # 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 {[CkRest_get_ResponseStatusCode $rest] != 204} then { puts "response status code = [CkRest_get_ResponseStatusCode $rest]" puts "response status text = [CkRest_responseStatusText $rest]" puts "response header: [CkRest_responseHeader $rest]" puts "response JSON: $jsonResponse" delete_CkJsonObject $json delete_CkOAuth2 $oauth2 delete_CkRest $rest delete_CkFileAccess $fac exit } puts "Trash Emptied!" delete_CkJsonObject $json delete_CkOAuth2 $oauth2 delete_CkRest $rest delete_CkFileAccess $fac |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.