Delphi DLL

S3 Find Bucket Region

See more Amazon S3 (new) Examples

Demonstrates how to find out the region of an S3 bucket. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
rest: HCkRest;
bTls: Boolean;
port: Integer;
bAutoReconnect: Boolean;
authAws: HCkAuthAws;
strResult: PWideChar;
responseStatusCode: Integer;
xml: HCkXml;

begin
success := False;

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

rest := CkRest_Create();

// Connect to the Amazon AWS REST server using the correct region (in this example, "us-west-2")
bTls := True;
port := 443;
bAutoReconnect := True;
success := CkRest_Connect(rest,'s3.amazonaws.com',port,bTls,bAutoReconnect);

// Provide AWS credentials for the REST call.
authAws := CkAuthAws_Create();
CkAuthAws_putAccessKey(authAws,'AWS_ACCESS_KEY');
CkAuthAws_putSecretKey(authAws,'AWS_SECRET_KEY');
CkAuthAws_putServiceName(authAws,'s3');
success := CkRest_SetAuthAws(rest,authAws);

// The bucket name we want to know about is set in the HOST header.
// In this example, we want to find the region for the "chilkat.qa" bucket.
CkRest_putHost(rest,'chilkat.qa.s3.amazonaws.com');

// Send the GET request to query the bucket location.
strResult := CkRest__fullRequestNoBody(rest,'GET','/?location');
if (CkRest_getLastMethodSuccess(rest) <> True) then
  begin
    Memo1.Lines.Add(CkRest__lastErrorText(rest));
    Exit;
  end;

responseStatusCode := CkRest_getResponseStatusCode(rest);
Memo1.Lines.Add('Response status code = ' + IntToStr(responseStatusCode));
if (responseStatusCode <> 200) then
  begin
    Memo1.Lines.Add(CkRest__responseHeader(rest));
    Memo1.Lines.Add(strResult);
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

Memo1.Lines.Add(strResult);

// The result contains XML like this:
// <?xml version="1.0" encoding="UTF-8"?>
// <LocationConstraint xmlns="http://s3.amazonaws.com/doc/2006-03-01/">us-west-2</LocationConstraint>

// Get the "us-west-2" from the XML
xml := CkXml_Create();
success := CkXml_LoadXml(xml,strResult);
Memo1.Lines.Add('region = ' + CkXml__content(xml));

CkRest_Dispose(rest);
CkAuthAws_Dispose(authAws);
CkXml_Dispose(xml);

end;