(Visual FoxPro) S3 Add Tags to an Object

See more Amazon S3 (new) Examples

Demonstrates how to add one or more tags to an S3 object.

For more information, see https://docs.aws.amazon.com/AmazonS3/latest/API/API_PutObjectTagging.html

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

LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL lnSuccess
LOCAL loAuthAws
LOCAL loXml
LOCAL loSbRequestBody
LOCAL loSbResponse

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

* 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 in the desired region.
* (for us-east-1, we use "s3.amazonaws.com", but for another region, such as us-west-2, we would use "s3-us-west-2.amazonaws.com")
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("s3.amazonaws.com",lnPort,lnBTls,lnBAutoReconnect)

* Provide AWS credentials.
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.AuthAws')
loAuthAws = CreateObject('Chilkat.AuthAws')
loAuthAws.AccessKey = "AWS_ACCESS_KEY"
loAuthAws.SecretKey = "AWS_SECRET_KEY"
loAuthAws.ServiceName = "s3"
loAuthAws.Region = "us-east-1"

loRest.SetAuthAws(loAuthAws)

* Set the bucket name via the HOST header.
* In this case, the bucket name is "chilkat100".
* Note that the Host header should use "bucketName.s3.amazonaws.com", not "bucketName.s3-us-east-1.amazonaws.com"
* The same applies to aother regions.  The Host header should simply be <bucketName>.s3.amazonaws.com regardless of the region.
loRest.Host = "chilkat100.s3.amazonaws.com"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml')
loXml = CreateObject('Chilkat.Xml')
loXml.Tag = "Tagging"
loXml.UpdateChildContent("TagSet|Tag|Key","plant")
loXml.UpdateChildContent("TagSet|Tag|Value","chili pepper")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbRequestBody = CreateObject('Chilkat.StringBuilder')
loXml.GetXmlSb(loSbRequestBody)

* It is important to add the terminating "=" after the "?tagging".
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbResponse = CreateObject('Chilkat.StringBuilder')
lnSuccess = loRest.FullRequestSb("PUT","/chiliPepper.gif?tagging=",loSbRequestBody,loSbResponse)
IF (lnSuccess = 0) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loAuthAws
    RELEASE loXml
    RELEASE loSbRequestBody
    RELEASE loSbResponse
    CANCEL
ENDIF

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

* When successful, the S3 Storage service will respond with a 200 response code,
* with an XML body.  
IF (loRest.ResponseStatusCode <> 200) THEN
    * Examine the request/response to see what happened.
    ? "response status code = " + STR(loRest.ResponseStatusCode)
    ? "response status text = " + loRest.ResponseStatusText
    ? "response header: " + loRest.ResponseHeader
    ? "response body: " + loSbResponse.GetAsString()
    ? "---"
    ? "LastRequestStartLine: " + loRest.LastRequestStartLine
    ? "LastRequestHeader: " + loRest.LastRequestHeader
ENDIF

? loSbResponse.GetAsString()
? "Success."

RELEASE loRest
RELEASE loAuthAws
RELEASE loXml
RELEASE loSbRequestBody
RELEASE loSbResponse