Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi DLL) Refresh Cloud Storage OAuth2 Access Token (Authorization Code Flow)See more Google Cloud Storage ExamplesDemonstrates how to refresh an expired or soon-to-expire Cloud Storage OAuth2 access token obtained by the Authorization Code Flow (i.e. NOT for a Service Account).
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, OAuth2, StringBuilder, JsonObject; ... procedure TForm1.Button1Click(Sender: TObject); var jsonToken: HCkJsonObject; success: Boolean; oauth2: HCkOAuth2; sbJson: HCkStringBuilder; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. jsonToken := CkJsonObject_Create(); success := CkJsonObject_LoadFile(jsonToken,'qa_data/tokens/googleCloudStorage.json'); if (success <> True) then begin Memo1.Lines.Add('Failed to load googleCloudStorage.json'); Exit; end; // The access token JSON looks like this: // { // "access_token": "ya29.a0Ad52N3_4eOd5_T7....", // "token_type": "Bearer", // "expires_in": 3600, // "refresh_token": "1/lEe5abcdNJ77eOSDBabcdkQGVmDalkwabcdR2Hatbo" // } // oauth2 := CkOAuth2_Create(); 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'); // Get the "refresh_token" CkOAuth2_putRefreshToken(oauth2,CkJsonObject__stringOf(jsonToken,'refresh_token')); // Send the HTTP POST to refresh the access token.. success := CkOAuth2_RefreshAccessToken(oauth2); if (success <> True) then begin Memo1.Lines.Add(CkOAuth2__lastErrorText(oauth2)); Exit; end; // The response contains a new access token, but we must keep // our existing refresh token for when we need to refresh again in the future. CkJsonObject_UpdateString(jsonToken,'access_token',CkOAuth2__accessToken(oauth2)); // Save the new JSON access token response to a file. sbJson := CkStringBuilder_Create(); CkJsonObject_putEmitCompact(jsonToken,False); CkJsonObject_EmitSb(jsonToken,sbJson); CkStringBuilder_WriteFile(sbJson,'qa_data/tokens/googleCloudStorage.json','utf-8',False); Memo1.Lines.Add('OAuth2 authorization granted!'); Memo1.Lines.Add('New Access Token = ' + CkOAuth2__accessToken(oauth2)); CkJsonObject_Dispose(jsonToken); CkOAuth2_Dispose(oauth2); CkStringBuilder_Dispose(sbJson); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.