Delphi DLL

Google Cloud Storage List Buckets

See more Google Cloud Storage Examples

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
jsonToken: HCkJsonObject;
http: HCkHttp;
resp: HCkHttpResponse;
responseCode: Integer;
json: HCkJsonObject;
kind: PWideChar;
i: Integer;
count_i: Integer;
id: PWideChar;
selfLink: PWideChar;
projectNumber: PWideChar;
name: PWideChar;
timeCreated: PWideChar;
updated: PWideChar;
metageneration: PWideChar;
iamConfigurationBucketPolicyOnlyEnabled: Boolean;
location: PWideChar;
storageClass: PWideChar;
etag: PWideChar;

begin
success := False;

// 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 := CkJsonObject_Create();
success := CkJsonObject_LoadFile(jsonToken,'qa_data/tokens/googleCloudStorage.json');
if (success = False) then
  begin
    Memo1.Lines.Add(CkJsonObject__lastErrorText(jsonToken));
    Exit;
  end;

http := CkHttp_Create();
CkHttp_putAuthToken(http,CkJsonObject__stringOf(jsonToken,'access_token'));

// For more info see Cloud Storage Documentation - Buckets: list 
// 
success := CkHttp_SetUrlVar(http,'PROJECT_ID','chilkattest-1050');
resp := CkHttpResponse_Create();
success := CkHttp_HttpNoBody(http,'GET','https://www.googleapis.com/storage/v1/b?project={$PROJECT_ID}',resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

responseCode := CkHttpResponse_getStatusCode(resp);
if (responseCode = 401) then
  begin
    Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));
    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 := CkJsonObject_Create();
success := CkJsonObject_Load(json,CkHttpResponse__bodyStr(resp));

CkJsonObject_putEmitCompact(json,False);

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

// 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 := CkJsonObject__stringOf(json,'kind');
i := 0;
count_i := CkJsonObject_SizeOfArray(json,'items');
while i < count_i do
  begin
    CkJsonObject_putI(json,i);
    kind := CkJsonObject__stringOf(json,'items[i].kind');
    id := CkJsonObject__stringOf(json,'items[i].id');
    selfLink := CkJsonObject__stringOf(json,'items[i].selfLink');
    projectNumber := CkJsonObject__stringOf(json,'items[i].projectNumber');
    name := CkJsonObject__stringOf(json,'items[i].name');
    timeCreated := CkJsonObject__stringOf(json,'items[i].timeCreated');
    updated := CkJsonObject__stringOf(json,'items[i].updated');
    metageneration := CkJsonObject__stringOf(json,'items[i].metageneration');
    iamConfigurationBucketPolicyOnlyEnabled := CkJsonObject_BoolOf(json,'items[i].iamConfiguration.bucketPolicyOnly.enabled');
    location := CkJsonObject__stringOf(json,'items[i].location');
    storageClass := CkJsonObject__stringOf(json,'items[i].storageClass');
    etag := CkJsonObject__stringOf(json,'items[i].etag');
    i := i + 1;
  end;

CkJsonObject_Dispose(jsonToken);
CkHttp_Dispose(http);
CkHttpResponse_Dispose(resp);
CkJsonObject_Dispose(json);

end;