Delphi ActiveX

Google Cloud Storage List Buckets

See more Google Cloud Storage Examples

Demonstrates how to retrieve a list of buckets for a given project. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
jsonToken: TChilkatJsonObject;
http: TChilkatHttp;
resp: TChilkatHttpResponse;
responseCode: Integer;
json: TChilkatJsonObject;
kind: WideString;
i: Integer;
count_i: Integer;
id: WideString;
selfLink: WideString;
projectNumber: WideString;
name: WideString;
timeCreated: WideString;
updated: WideString;
metageneration: WideString;
iamConfigurationBucketPolicyOnlyEnabled: Integer;
location: WideString;
storageClass: WideString;
etag: WideString;

begin
success := 0;

// This example 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 
// scope "https://www.googleapis.com/auth/cloud-platform"

jsonToken := TChilkatJsonObject.Create(Self);
success := jsonToken.LoadFile('qa_data/tokens/googleCloudStorage.json');
if (success = 0) then
  begin
    Memo1.Lines.Add(jsonToken.LastErrorText);
    Exit;
  end;

http := TChilkatHttp.Create(Self);
http.AuthToken := jsonToken.StringOf('access_token');

// For more info see Cloud Storage Documentation - Buckets: list 
// 
success := http.SetUrlVar('PROJECT_ID','chilkattest-1050');
resp := TChilkatHttpResponse.Create(Self);
success := http.HttpNoBody('GET','https://www.googleapis.com/storage/v1/b?project={$PROJECT_ID}',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

responseCode := resp.StatusCode;
if (responseCode = 401) then
  begin
    Memo1.Lines.Add(resp.BodyStr);
    Memo1.Lines.Add('If invalid credentials, then it is likely the access token expired.');
    Memo1.Lines.Add('Your app should automatically fetch a new access token and re-try.');
    Exit;
  end;

Memo1.Lines.Add('Response code: ' + IntToStr(responseCode));
Memo1.Lines.Add('Response body');

json := TChilkatJsonObject.Create(Self);
success := json.Load(resp.BodyStr);

json.EmitCompact := 0;

Memo1.Lines.Add(json.Emit());

// A response code = 200 indicates success, and the response body contains JSON such as this:

// {
//   "kind": "storage#buckets",
//   "items": [
//     {
//       "kind": "storage#bucket",
//       "id": "chilkat-bucket",
//       "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-bucket",
//       "projectNumber": "5332332985",
//       "name": "chilkat-bucket",
//       "timeCreated": "2018-10-23T00:04:44.507Z",
//       "updated": "2018-10-23T00:04:44.507Z",
//       "metageneration": "1",
//       "iamConfiguration": {
//         "bucketPolicyOnly": {
//           "enabled": false
//         }
//       },
//       "location": "US",
//       "storageClass": "MULTI_REGIONAL",
//       "etag": "CAE="
//     },
//     {
//       "kind": "storage#bucket",
//       "id": "chilkat-images",
//       "selfLink": "https://www.googleapis.com/storage/v1/b/chilkat-images",
//       "projectNumber": "5332332985",
//       "name": "chilkat-images",
//       "timeCreated": "2018-10-23T11:24:43.000Z",
//       "updated": "2018-10-23T11:24:43.000Z",
//       "metageneration": "1",
//       "iamConfiguration": {
//         "bucketPolicyOnly": {
//           "enabled": false
//         }
//       },
//       "location": "US",
//       "storageClass": "MULTI_REGIONAL",
//       "etag": "CAE="
//     }
//   ]
// }

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

kind := json.StringOf('kind');
i := 0;
count_i := json.SizeOfArray('items');
while i < count_i do
  begin
    json.I := i;
    kind := json.StringOf('items[i].kind');
    id := json.StringOf('items[i].id');
    selfLink := json.StringOf('items[i].selfLink');
    projectNumber := json.StringOf('items[i].projectNumber');
    name := json.StringOf('items[i].name');
    timeCreated := json.StringOf('items[i].timeCreated');
    updated := json.StringOf('items[i].updated');
    metageneration := json.StringOf('items[i].metageneration');
    iamConfigurationBucketPolicyOnlyEnabled := json.BoolOf('items[i].iamConfiguration.bucketPolicyOnly.enabled');
    location := json.StringOf('items[i].location');
    storageClass := json.StringOf('items[i].storageClass');
    etag := json.StringOf('items[i].etag');
    i := i + 1;
  end;
end;