(PureBasic) S3 List Buckets

Demonstrates how to retrieve the XML listing the buckets for an Amazon S3 account.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Insert your access key here:
    CkHttp::setCkAwsAccessKey(http, "AWS_ACCESS_KEY")

    ; Insert your secret key here:
    CkHttp::setCkAwsSecretKey(http, "AWS_SECRET_KEY")

    xmlStr.s
    xmlStr = CkHttp::ckS3_ListBuckets(http)

    If CkHttp::ckLastMethodSuccess(http) <> 1
        ; Failed
        Debug CkHttp::ckLastErrorText(http)
    Else
        ; Success.  Show the XML response.  (Use the online tool at the link below to generate parsing code.)
        Debug xmlStr
    EndIf

    ; Use this online tool to generate parsing code from sample XML: 
    ; Generate Parsing Code from XML


    CkHttp::ckDispose(http)


    ProcedureReturn
EndProcedure