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) Create S3 Bucket in a RegionSee more Amazon S3 ExamplesDemonstrates how to create an S3 bucket in a specified region. This example will create a bucket in the eu-west-2 region. For more information, see https://docs.aws.amazon.com/AmazonS3/latest/API/API_CreateBucket.html
LOCAL loRest LOCAL lnBTls LOCAL lnPort LOCAL lnBAutoReconnect LOCAL lnSuccess LOCAL loAuthAws LOCAL loXml LOCAL lcResponseStr LOCAL loResponseXml * 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. lnBTls = 1 lnPort = 443 lnBAutoReconnect = 1 lnSuccess = loRest.Connect("s3.amazonaws.com",lnPort,lnBTls,lnBAutoReconnect) * Provide AWS credentials for the REST call. loAuthAws = CreateObject('Chilkat_9_5_0.AuthAws') loAuthAws.AccessKey = "AWS_ACCESS_KEY" loAuthAws.SecretKey = "AWS_SECRET_KEY" loAuthAws.ServiceName = "s3" lnSuccess = loRest.SetAuthAws(loAuthAws) * 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" loXml = CreateObject('Chilkat_9_5_0.Xml') loXml.Tag = "CreateBucketConfiguration" loXml.AddAttribute("xmlns","http://s3.amazonaws.com/doc/2006-03-01/") loXml.UpdateChildContent("LocationConstraint","eu-west-2") * -------------------------------------------------------------- * IMPORTANT: To create a bucket in the default us-east-1 region, * do not add the LocationConstraint. Adding a LocationConstraint of "us-east-1" * causes an error "The specified location-constraint is not valid." * By default, the bucket is created in us-east-1 if no LocationConstraint is specified. * See https://docs.aws.amazon.com/AmazonS3/latest/API/API_CreateBucket.html * -------------------------------------------------------------- * Set the bucket name via the HOST header. * In this case, the bucket name is "chilkateuwest2". loRest.Host = "chilkateuwest2.s3.amazonaws.com" * Make the call to create the bucket. lcResponseStr = loRest.FullRequestString("PUT","/",loXml.GetXml()) IF (loRest.LastMethodSuccess <> 1) THEN ? loRest.LastErrorText RELEASE loRest RELEASE loAuthAws RELEASE loXml CANCEL ENDIF IF (loRest.ResponseStatusCode <> 200) THEN ? "status code = " + STR(loRest.ResponseStatusCode) loResponseXml = CreateObject('Chilkat_9_5_0.Xml') loResponseXml.LoadXml(lcResponseStr) ? loResponseXml.GetXml() ? "Failed." RELEASE loRest RELEASE loAuthAws RELEASE loXml RELEASE loResponseXml CANCEL ENDIF ? "Bucket in the eu-west-2 region created." RELEASE loRest RELEASE loAuthAws RELEASE loXml RELEASE loResponseXml |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.