(Unicode C) S3 List Buckets (using Chilkat REST)

Demonstrates how to fetch a list of S3 buckets.

Chilkat C/C++ Library Downloads
MS Visual C/C++ Linux/CentOS C/C++ Alpine Linux C/C++ MAC OS X C/C++	armhf/aarch64 C/C++ C++ Builder iOS C/C++ Android C/C++	Solaris C/C++ MinGW C/C++

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

void ChilkatSample(void)
    {
    HCkRestW rest;
    BOOL bTls;
    int port;
    BOOL bAutoReconnect;
    BOOL success;
    HCkAuthAwsW authAws;
    HCkStringBuilderW sbResponse;
    int statusCode;
    HCkXmlW xml;
    const wchar_t *Name;
    const wchar_t *CreationDate;
    int i;
    int count_i;

    // 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);

    sbResponse = CkStringBuilderW_Create();
    success = CkRestW_FullRequestNoBodySb(rest,L"GET",L"/",sbResponse);
    if (success != TRUE) {
        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

    i = 0;
    count_i = CkXmlW_NumChildrenHavingTag(xml,L"Buckets|Bucket");
    while (i < count_i) {
        CkXmlW_putI(xml,i);
        Name = CkXmlW_getChildContent(xml,L"Buckets|Bucket[i]|Name");
        CreationDate = CkXmlW_getChildContent(xml,L"Buckets|Bucket[i]|CreationDate");
        wprintf(L"%s\n",Name);
        wprintf(L"%s\n",CreationDate);
        wprintf(L"--\n");
        i = i + 1;
    }



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

    }