(Visual FoxPro) S3 Upload String

Demonstrates how to upload an in-memory string to the Amazon S3 service.

Download Chilkat HTTP ActiveX

LOCAL loHttp
LOCAL lnSuccess
LOCAL lcBucketName
LOCAL lcObjectName
LOCAL lcCharset
LOCAL lcContentType
LOCAL lcObjectContent

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 = "helloWorld.txt"

*  The charset indicates the character encoding to be used.
*  Internal to the S3_UploadString method, the characters
*  are converted to this encoding prior to uploading.

lcCharset = "utf-8"

lcContentType = "text/plain"

lcObjectContent = "Hello World!"

*  Upload the string.
*  This creates an object named "helloWorld.txt" in the
*  bucket "chilkattestbucket" containing the text "Hello World!"
lnSuccess = loHttp.S3_UploadString(lcObjectContent,lcCharset,lcContentType,lcBucketName,lcObjectName)

IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
ELSE
    ? "String uploaded."
ENDIF