(Delphi ActiveX) S3 Get Bucket Objects with CommonPrefixes

Demonstrates how to get a list of bucket objects using the prefix and delimiter query params to get an XML result with CommonPrefixes.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
strXml: WideString;
xml: TChilkatXml;
success: Integer;
Prefix: WideString;
i: Integer;
count_i: Integer;

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

http := TChilkatHttp.Create(Self);

// Insert your access key here:
http.AwsAccessKey := 'AWS_ACCESS_KEY';

// Insert your secret key here:
http.AwsSecretKey := 'AWS_SECRET_KEY';

// In this example, my bucket is "chilkat100".
// It contains a number of folders, one of which is named "images".
// I want to get a list of all sub-folders under the "images" folder
strXml := http.S3_ListBucketObjects('chilkat100?prefix=images/&delimiter=/');
if (http.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Response status code = ' + IntToStr(http.LastStatus));

xml := TChilkatXml.Create(Self);
success := xml.LoadXml(strXml);
if (success <> 1) then
  begin
    Memo1.Lines.Add(xml.LastErrorText);
    Exit;
  end;

// If the response status code was not 200, then the XML response is not a 
// listing of objects, but instead contains error information.
if (http.LastStatus <> 200) then
  begin
    Memo1.Lines.Add(xml.GetXml());
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// A sample response is shown below.
Memo1.Lines.Add(xml.GetXml());
Memo1.Lines.Add('----');

// Here is the list of sub-folders (i.e. CommonPrefixes)

// <?xml version="1.0" encoding="UTF-8"?>
// <ListBucketResult xmlns="http://s3.amazonaws.com/doc/2006-03-01/">
//     <Name>chilkat100</Name>
//     <Prefix>images/</Prefix>
//     <Marker/>
//     <MaxKeys>1000</MaxKeys>
//     <Delimiter>/</Delimiter>
//     <IsTruncated>false</IsTruncated>
//     <CommonPrefixes>
//         <Prefix>images/africa/</Prefix>
//     </CommonPrefixes>
//     <CommonPrefixes>
//         <Prefix>images/sea_creatures/</Prefix>
//     </CommonPrefixes>
// </ListBucketResult>

// The XML can be parsed like this:
i := 0;
count_i := xml.NumChildrenHavingTag('CommonPrefixes');
while i < count_i do
  begin
    xml.I := i;
    Prefix := xml.GetChildContent('CommonPrefixes[i]|Prefix');
    Memo1.Lines.Add('Prefix = ' + Prefix);
    i := i + 1;
  end;
end;