(Delphi DLL) Initiate Resumable Upload Session

See more Google Cloud Storage Examples

Initiate a Google Cloud Storage resumable upload session..

For more information, see https://cloud.google.com/storage/docs/performing-resumable-uploads

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX 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
http: HCkHttp;
jsonToken: HCkJsonObject;
success: Boolean;
jsonMetaData: HCkJsonObject;
url: PWideChar;
resp: HCkHttpResponse;
statusCode: Integer;
sessionUrl: PWideChar;

begin
// 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 := CkHttp_PText(http,'POST',url,CkJsonObject__emit(jsonMetaData),'utf-8','application/json',False,False);
if (CkHttp_getLastMethodSuccess(http) = 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;

CkHttpResponse_Dispose(resp);

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

end;