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
(Delphi DLL) Google Drive Refresh Access TokenDemonstrates how to automatically refresh the access token when it expires.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, FileAccess, OAuth2, Rest, JsonObject; ... procedure TForm1.Button1Click(Sender: TObject); var success: Boolean; json: HCkJsonObject; tokenFilePath: PWideChar; oauth2: HCkOAuth2; rest: HCkRest; bAutoReconnect: Boolean; jsonResponse: PWideChar; fac: HCkFileAccess; begin 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" // } json := CkJsonObject_Create(); tokenFilePath := 'qa_data/tokens/googleDrive.json'; CkJsonObject_LoadFile(json,tokenFilePath); oauth2 := CkOAuth2_Create(); CkOAuth2_putAccessToken(oauth2,CkJsonObject__stringOf(json,'access_token')); CkOAuth2_putRefreshToken(oauth2,CkJsonObject__stringOf(json,'refresh_token')); rest := CkRest_Create(); // Connect using TLS. bAutoReconnect := True; success := CkRest_Connect(rest,'www.googleapis.com',443,True,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.. jsonResponse := CkRest__fullRequestNoBody(rest,'DELETE','/drive/v3/files/trash'); if (CkRest_getLastMethodSuccess(rest) <> True) then begin Memo1.Lines.Add(CkRest__lastErrorText(rest)); Exit; end; // 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_getResponseStatusCode(rest) = 401) then begin Memo1.Lines.Add('Refreshing access token...'); CkOAuth2_putAuthorizationEndpoint(oauth2,'https://accounts.google.com/o/oauth2/v2/auth'); CkOAuth2_putTokenEndpoint(oauth2,'https://www.googleapis.com/oauth2/v4/token'); // Replace these with actual values. CkOAuth2_putClientId(oauth2,'GOOGLE-CLIENT-ID'); CkOAuth2_putClientSecret(oauth2,'GOOGLE-CLIENT-SECRET'); CkOAuth2_putScope(oauth2,'https://www.googleapis.com/auth/drive'); // Use OAuth2 to refresh the access token. success := CkOAuth2_RefreshAccessToken(oauth2); if (success <> True) then begin Memo1.Lines.Add(CkOAuth2__lastErrorText(oauth2)); Exit; end; // 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)); fac := CkFileAccess_Create(); CkFileAccess_WriteEntireTextFile(fac,tokenFilePath,CkJsonObject__emit(json),'utf-8',False); Memo1.Lines.Add('Access Token Refreshed!'); // Retry the request with the new access token.. jsonResponse := CkRest__fullRequestNoBody(rest,'DELETE','/drive/v3/files/trash'); if (CkRest_getLastMethodSuccess(rest) <> True) then begin Memo1.Lines.Add(CkRest__lastErrorText(rest)); Exit; end; end; // 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_getResponseStatusCode(rest) <> 204) then begin Memo1.Lines.Add('response status code = ' + IntToStr(CkRest_getResponseStatusCode(rest))); Memo1.Lines.Add('response status text = ' + CkRest__responseStatusText(rest)); Memo1.Lines.Add('response header: ' + CkRest__responseHeader(rest)); Memo1.Lines.Add('response JSON: ' + jsonResponse); Exit; end; Memo1.Lines.Add('Trash Emptied!'); CkJsonObject_Dispose(json); CkOAuth2_Dispose(oauth2); CkRest_Dispose(rest); CkFileAccess_Dispose(fac); end; |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.