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
(Xojo Plugin) Create S3 Bucket in a RegionDemonstrates how to create an S3 bucket in a specified region. This example will create a bucket in the eu-west-2 region.
// This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Dim rest As New Chilkat.Rest // Connect to the Amazon AWS REST server. Dim bTls As Boolean bTls = True Dim port As Int32 port = 443 Dim bAutoReconnect As Boolean bAutoReconnect = True Dim success As Boolean success = rest.Connect("s3.amazonaws.com",port,bTls,bAutoReconnect) // Provide AWS credentials for the REST call. Dim authAws As New Chilkat.AuthAws authAws.AccessKey = "AWS_ACCESS_KEY" authAws.SecretKey = "AWS_SECRET_KEY" authAws.ServiceName = "s3" success = rest.SetAuthAws(authAws) // We'll send a PUT request having an XML body such as this: // <CreateBucketConfiguration xmlns="http://s3.amazonaws.com/doc/2006-03-01/"> // <LocationConstraint>BucketRegion</LocationConstraint> // </CreateBucketConfiguration> // Create the XML body specifying the region as "eu-west-2" Dim xml As New Chilkat.Xml xml.Tag = "CreateBucketConfiguration" success = xml.AddAttribute("xmlns","http://s3.amazonaws.com/doc/2006-03-01/") xml.UpdateChildContent "LocationConstraint","eu-west-2" // Set the bucket name via the HOST header. // In this case, the bucket name is "chilkateuwest2". rest.Host = "chilkateuwest2.s3.amazonaws.com" // Make the call to create the bucket. Dim responseStr As String responseStr = rest.FullRequestString("PUT","/",xml.GetXml()) If (rest.LastMethodSuccess <> True) Then System.DebugLog(rest.LastErrorText) Return End If If (rest.ResponseStatusCode <> 200) Then System.DebugLog("status code = " + Str(rest.ResponseStatusCode)) Dim responseXml As New Chilkat.Xml success = responseXml.LoadXml(responseStr) System.DebugLog(responseXml.GetXml()) System.DebugLog("Failed.") Return End If System.DebugLog("Bucket in the eu-west-2 region created.") |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.