Delphi DLL

Initiate Resumable Upload Session

See more Google Cloud Storage Examples

Initiate a Google Cloud Storage resumable upload session.. 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;
http: HCkHttp;
jsonToken: HCkJsonObject;
jsonMetaData: HCkJsonObject;
url: PWideChar;
resp: HCkHttpResponse;
statusCode: Integer;
sessionUrl: PWideChar;

begin
success := False;

// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := CkHttp_Create();

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;

jsonMetaData := CkJsonObject_Create();
CkJsonObject_UpdateString(jsonMetaData,'contentType','image/jpeg');

// Adds the "Authorization: Bearer <access_token>" header..
CkHttp_putAuthToken(http,CkJsonObject__stringOf(jsonToken,'access_token'));

CkHttp_SetUrlVar(http,'bucket_name','chilkat-bucket-b');
CkHttp_SetUrlVar(http,'object_name','penguins2.jpg');
url := 'https://storage.googleapis.com/upload/storage/v1/b/{$bucket_name}/o?uploadType=resumable&name={$object_name}';
resp := CkHttpResponse_Create();
success := CkHttp_HttpJson(http,'POST',url,jsonMetaData,'application/json',resp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

statusCode := CkHttpResponse_getStatusCode(resp);
Memo1.Lines.Add('response status code = ' + IntToStr(statusCode));

sessionUrl := '';

if (statusCode <> 200) then
  begin
    Memo1.Lines.Add(CkHttpResponse__bodyStr(resp));
  end
else
  begin
    // The session URL will be used to upload the file in chunks, in subsequent HTTP POSTs...
    sessionUrl := CkHttpResponse__getHeaderField(resp,'Location');
    Memo1.Lines.Add('Session URL = ' + sessionUrl);
  end;

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

end;