Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Visual FoxPro) S3 Add Tags to an ObjectSee more Amazon S3 (new) ExamplesDemonstrates 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
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. loRest = CreateObject('Chilkat_9_5_0.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. loAuthAws = CreateObject('Chilkat_9_5_0.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" loXml = CreateObject('Chilkat_9_5_0.Xml') loXml.Tag = "Tagging" loXml.UpdateChildContent("TagSet|Tag|Key","plant") loXml.UpdateChildContent("TagSet|Tag|Value","chili pepper") loSbRequestBody = CreateObject('Chilkat_9_5_0.StringBuilder') loXml.GetXmlSb(loSbRequestBody) * It is important to add the terminating "=" after the "?tagging". loSbResponse = CreateObject('Chilkat_9_5_0.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 |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.