(Visual FoxPro) S3 Download String Object

Demonstrates how to download a text file (i.e. object) from the Amazon S3 service directly into an in-memory string variable.

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess
LOCAL lcBucketName
LOCAL lcObjectName
LOCAL lcCharset
LOCAL lcFileContents

loHttp = CreateObject('Chilkat.Http')

lnSuccess = loHttp.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    QUIT
ENDIF

*  Insert your access key here:
loHttp.AwsAccessKey = "ABQXXABC83ABCDEFVQXX"

*  Insert your secret key here:
loHttp.AwsSecretKey = "XXXXYYYYabcdABCD12345678xxxxyyyyzzzz"

lcBucketName = "chilkattestbucket"

lcObjectName = "contacts.xml"

lcCharset = "utf-8"

lcFileContents = loHttp.S3_DownloadString(lcBucketName,lcObjectName,lcCharset)

IF (lcFileContents = NULL ) THEN
    *  Failed
    ? loHttp.LastErrorText
ELSE
    *  Success
    ? lcFileContents
ENDIF