(Delphi DLL) Send XML REST Request, Get Response with No Body (Google Cloud Storage)

Demonstrates sending a RESTful XML request, and receiving a response where the expected response is a header with no body (Content-Length = 0). This example will create a bucket in Google Cloud Storage using the Google Cloud Storage XML API.

See Create a Bucket using the XML API for additional request options.

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, AuthGoogle, Xml, Rest;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
gAuth: HCkAuthGoogle;
rest: HCkRest;
bAutoReconnect: Boolean;
xmlReqBody: HCkXml;
responseStr: PWideChar;
responseStatus: Integer;

begin
// This example will create a bucket in Google Cloud Storage using the XML API.

// It requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

gAuth := CkAuthGoogle_Create();
// Obtain an access token as shown in one of the following examples:
// See Get Access Token using a Service Account JSON Key
// See Get Access Token using a P12 File

rest := CkRest_Create();

// Connect using TLS.
bAutoReconnect := True;
success := CkRest_Connect(rest,'www.googleapis.com',443,True,bAutoReconnect);

// Provide the authentication credentials (i.e. the access key)
success := CkRest_SetAuthGoogle(rest,gAuth);

// Build the XML request body for creating a bucket.
// See https://cloud.google.com/storage/docs/xml-api/put-bucket-create
xmlReqBody := CkXml_Create();
CkXml_putTag(xmlReqBody,'CreateBucketConfiguration');
CkXml_NewChild2(xmlReqBody,'LocationConstraint','us');
CkXml_NewChild2(xmlReqBody,'StorageClass','STANDARD');

// Show the HTTP request body we'll be sending.
Memo1.Lines.Add(CkXml__getXml(xmlReqBody));

// There are no query parameters...

// The HOST header must be specified, because it needs to be different than
// the domain previously passed to the Connect method.
// The name of the bucket is the 1st part of the HOST header.
success := CkRest_AddHeader(rest,'Host','chilkat-example-bucket.storage.googleapis.com');

// The project ID is specified in an HTTP request header
success := CkRest_AddHeader(rest,'x-goog-project-id','chilkattest-1050');

// In this case, the response body is expected to be empty.  We can still
// call FullRequestString.  We expect an empty string to be returned.
responseStr := CkRest__fullRequestString(rest,'PUT','/',CkXml__getXml(xmlReqBody));
if (CkRest_getLastMethodSuccess(rest) <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

// Check the response status code to make sure it is 200.
responseStatus := CkRest_getResponseStatusCode(rest);
Memo1.Lines.Add('Response Status Code = ' + IntToStr(responseStatus));

CkAuthGoogle_Dispose(gAuth);
CkRest_Dispose(rest);
CkXml_Dispose(xmlReqBody);

end;