(Visual FoxPro) S3 List Buckets using an STS Session Token

This is an example showing how to use an STS session token in an Amazon AWS request. This example will list S3 buckets using a previously obtained session token.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loXmlToken
LOCAL lnSuccess
LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL loAuthAws
LOCAL loSbResponse
LOCAL lnStatusCode
LOCAL loXml

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

* See Get AWS STS Session Token for sample code to get the session token XML.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXmlToken = CreateObject('Chilkat.Xml')
lnSuccess = loXmlToken.LoadXmlFile("qa_data/tokens/aws_session_token.xml")
IF (lnSuccess = 0) THEN
    ? loXmlToken.LastErrorText
    RELEASE loXmlToken
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest')
loRest = CreateObject('Chilkat.Rest')

* Connect to the Amazon AWS REST server.
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("s3.amazonaws.com",lnPort,lnBTls,lnBAutoReconnect)

* Provide AWS credentials for the REST call.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.AuthAws')
loAuthAws = CreateObject('Chilkat.AuthAws')

* The purpose of this example is to show how to use the temporary AccessKeyId, SecretAccessKey, and SessionToken.
loAuthAws.AccessKey = loXmlToken.GetChildContent("GetSessionTokenResult|Credentials|AccessKeyId")
loAuthAws.SecretKey = loXmlToken.GetChildContent("GetSessionTokenResult|Credentials|SecretAccessKey")
loAuthAws.ServiceName = "s3"
lnSuccess = loRest.SetAuthAws(loAuthAws)

loRest.AddQueryParam("X-Amz-Security-Token",loXmlToken.GetChildContent("GetSessionTokenResult|Credentials|SessionToken"))

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbResponse = CreateObject('Chilkat.StringBuilder')
lnSuccess = loRest.FullRequestNoBodySb("GET","/",loSbResponse)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loXmlToken
    RELEASE loRest
    RELEASE loAuthAws
    RELEASE loSbResponse
    CANCEL
ENDIF

lnStatusCode = loRest.ResponseStatusCode
? "Response status code = " + STR(lnStatusCode)

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.LoadSb(loSbResponse,1)
? loXml.GetXml()

IF (lnStatusCode <> 200) THEN
    ? "Failed.  See error information in the XML."
    RELEASE loXmlToken
    RELEASE loRest
    RELEASE loAuthAws
    RELEASE loSbResponse
    RELEASE loXml
    CANCEL
ENDIF

RELEASE loXmlToken
RELEASE loRest
RELEASE loAuthAws
RELEASE loSbResponse
RELEASE loXml