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
(PureBasic) Google Drive Refresh Access TokenDemonstrates how to automatically refresh the access token when it expires.
IncludeFile "CkFileAccess.pb" IncludeFile "CkRest.pb" IncludeFile "CkJsonObject.pb" IncludeFile "CkOAuth2.pb" Procedure ChilkatExample() success.i = 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" ; } json.i = CkJsonObject::ckCreate() If json.i = 0 Debug "Failed to create object." ProcedureReturn EndIf tokenFilePath.s = "qa_data/tokens/googleDrive.json" CkJsonObject::ckLoadFile(json,tokenFilePath) oauth2.i = CkOAuth2::ckCreate() If oauth2.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkOAuth2::setCkAccessToken(oauth2, CkJsonObject::ckStringOf(json,"access_token")) CkOAuth2::setCkRefreshToken(oauth2, CkJsonObject::ckStringOf(json,"refresh_token")) rest.i = CkRest::ckCreate() If rest.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; Connect using TLS. bAutoReconnect.i = 1 success = CkRest::ckConnect(rest,"www.googleapis.com",443,1,bAutoReconnect) ; Provide the authentication credentials (i.e. the access token) CkRest::ckSetAuthOAuth2(rest,oauth2) ; We'll test with a simple request to empty trash. ; If our access token expired, we'll get a 401 response.. jsonResponse.s = CkRest::ckFullRequestNoBody(rest,"DELETE","/drive/v3/files/trash") If CkRest::ckLastMethodSuccess(rest) <> 1 Debug CkRest::ckLastErrorText(rest) CkJsonObject::ckDispose(json) CkOAuth2::ckDispose(oauth2) CkRest::ckDispose(rest) ProcedureReturn 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 CkRest::ckResponseStatusCode(rest) = 401 Debug "Refreshing access token..." CkOAuth2::setCkAuthorizationEndpoint(oauth2, "https://accounts.google.com/o/oauth2/v2/auth") CkOAuth2::setCkTokenEndpoint(oauth2, "https://www.googleapis.com/oauth2/v4/token") ; Replace these with actual values. CkOAuth2::setCkClientId(oauth2, "GOOGLE-CLIENT-ID") CkOAuth2::setCkClientSecret(oauth2, "GOOGLE-CLIENT-SECRET") CkOAuth2::setCkScope(oauth2, "https://www.googleapis.com/auth/drive") ; Use OAuth2 to refresh the access token. success = CkOAuth2::ckRefreshAccessToken(oauth2) If success <> 1 Debug CkOAuth2::ckLastErrorText(oauth2) CkJsonObject::ckDispose(json) CkOAuth2::ckDispose(oauth2) CkRest::ckDispose(rest) ProcedureReturn EndIf ; Save the new access token to our XML file (so we can refresh it again when needed). CkJsonObject::ckUpdateString(json,"access_token",CkOAuth2::ckAccessToken(oauth2)) fac.i = CkFileAccess::ckCreate() If fac.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkFileAccess::ckWriteEntireTextFile(fac,tokenFilePath,CkJsonObject::ckEmit(json),"utf-8",0) Debug "Access Token Refreshed!" ; Retry the request with the new access token.. jsonResponse = CkRest::ckFullRequestNoBody(rest,"DELETE","/drive/v3/files/trash") If CkRest::ckLastMethodSuccess(rest) <> 1 Debug CkRest::ckLastErrorText(rest) CkJsonObject::ckDispose(json) CkOAuth2::ckDispose(oauth2) CkRest::ckDispose(rest) CkFileAccess::ckDispose(fac) ProcedureReturn 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 CkRest::ckResponseStatusCode(rest) <> 204 Debug "response status code = " + Str(CkRest::ckResponseStatusCode(rest)) Debug "response status text = " + CkRest::ckResponseStatusText(rest) Debug "response header: " + CkRest::ckResponseHeader(rest) Debug "response JSON: " + jsonResponse CkJsonObject::ckDispose(json) CkOAuth2::ckDispose(oauth2) CkRest::ckDispose(rest) CkFileAccess::ckDispose(fac) ProcedureReturn EndIf Debug "Trash Emptied!" CkJsonObject::ckDispose(json) CkOAuth2::ckDispose(oauth2) CkRest::ckDispose(rest) CkFileAccess::ckDispose(fac) ProcedureReturn EndProcedure |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.