Unicode C

S3 List Bucket Objects (using Chilkat REST)

See more Amazon S3 (new) Examples

Demonstrates how to fetch a list of objects in an S3 bucket. Unicode C

#include <C_CkRestW.h>
#include <C_CkAuthAwsW.h>
#include <C_CkStringBuilderW.h>
#include <C_CkXmlW.h>

void ChilkatSample(void)
    {
    BOOL success;
    HCkRestW rest;
    BOOL bTls;
    int port;
    BOOL bAutoReconnect;
    HCkAuthAwsW authAws;
    HCkStringBuilderW sbResponse;
    int statusCode;
    HCkXmlW xml;
    const wchar_t *Key;
    const wchar_t *LastModified;
    const wchar_t *ETag;
    const wchar_t *SizeDecimalStr;
    const wchar_t *ID;
    const wchar_t *DisplayName;
    const wchar_t *StorageClass;
    const wchar_t *Name;
    int MaxKeys;
    const wchar_t *IsTruncated;
    int i;
    int count_i;

    success = FALSE;

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

    rest = CkRestW_Create();

    // Connect to the Amazon AWS REST server.
    bTls = TRUE;
    port = 443;
    bAutoReconnect = TRUE;
    success = CkRestW_Connect(rest,L"s3.amazonaws.com",port,bTls,bAutoReconnect);

    // ----------------------------------------------------------------------------
    // Important: For buckets created in regions outside us-east-1,
    // there are three important changes that need to be made.
    // See Working with S3 Buckets in Non-us-east-1 Regions for the details.
    // ----------------------------------------------------------------------------

    // Provide AWS credentials for the REST call.
    authAws = CkAuthAwsW_Create();
    CkAuthAwsW_putAccessKey(authAws,L"AWS_ACCESS_KEY");
    CkAuthAwsW_putSecretKey(authAws,L"AWS_SECRET_KEY");
    CkAuthAwsW_putServiceName(authAws,L"s3");
    success = CkRestW_SetAuthAws(rest,authAws);

    //  Set the bucket name via the HOST header.
    //  In this case, the bucket name is "chilkat100".
    CkRestW_putHost(rest,L"chilkat100.s3.amazonaws.com");

    sbResponse = CkStringBuilderW_Create();
    success = CkRestW_FullRequestNoBodySb(rest,L"GET",L"/",sbResponse);
    if (success == FALSE) {
        wprintf(L"%s\n",CkRestW_lastErrorText(rest));
        CkRestW_Dispose(rest);
        CkAuthAwsW_Dispose(authAws);
        CkStringBuilderW_Dispose(sbResponse);
        return;
    }

    statusCode = CkRestW_getResponseStatusCode(rest);
    wprintf(L"Response status code = %d\n",statusCode);

    xml = CkXmlW_Create();
    CkXmlW_LoadSb(xml,sbResponse,TRUE);
    wprintf(L"%s\n",CkXmlW_getXml(xml));

    if (statusCode != 200) {
        wprintf(L"Failed.  See error information in the XML.\n");
        CkRestW_Dispose(rest);
        CkAuthAwsW_Dispose(authAws);
        CkStringBuilderW_Dispose(sbResponse);
        CkXmlW_Dispose(xml);
        return;
    }

    // Use this online tool to generate code from sample XML: 
    // Generate Code to Create XML

    Name = CkXmlW_getChildContent(xml,L"Name");
    MaxKeys = CkXmlW_GetChildIntValue(xml,L"MaxKeys");
    IsTruncated = CkXmlW_getChildContent(xml,L"IsTruncated");
    i = 0;
    count_i = CkXmlW_NumChildrenHavingTag(xml,L"Contents");
    while (i < count_i) {
        CkXmlW_putI(xml,i);
        Key = CkXmlW_getChildContent(xml,L"Contents[i]|Key");
        LastModified = CkXmlW_getChildContent(xml,L"Contents[i]|LastModified");
        ETag = CkXmlW_getChildContent(xml,L"Contents[i]|ETag");
        SizeDecimalStr = CkXmlW_getChildContent(xml,L"Contents[i]|Size");
        ID = CkXmlW_getChildContent(xml,L"Contents[i]|Owner|ID");
        DisplayName = CkXmlW_getChildContent(xml,L"Contents[i]|Owner|DisplayName");
        StorageClass = CkXmlW_getChildContent(xml,L"Contents[i]|StorageClass");
        i = i + 1;
    }



    CkRestW_Dispose(rest);
    CkAuthAwsW_Dispose(authAws);
    CkStringBuilderW_Dispose(sbResponse);
    CkXmlW_Dispose(xml);

    }