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
(Delphi DLL) 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.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, AuthAws, Rest, Xml; ... procedure TForm1.Button1Click(Sender: TObject); var rest: HCkRest; bTls: Boolean; port: Integer; bAutoReconnect: Boolean; success: Boolean; authAws: HCkAuthAws; xml: HCkXml; responseStr: PWideChar; responseXml: HCkXml; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. rest := CkRest_Create(); // Connect to the Amazon AWS REST server. bTls := True; port := 443; bAutoReconnect := True; success := CkRest_Connect(rest,'s3.amazonaws.com',port,bTls,bAutoReconnect); // Provide AWS credentials for the REST call. authAws := CkAuthAws_Create(); CkAuthAws_putAccessKey(authAws,'AWS_ACCESS_KEY'); CkAuthAws_putSecretKey(authAws,'AWS_SECRET_KEY'); CkAuthAws_putServiceName(authAws,'s3'); success := CkRest_SetAuthAws(rest,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" xml := CkXml_Create(); CkXml_putTag(xml,'CreateBucketConfiguration'); CkXml_AddAttribute(xml,'xmlns','http://s3.amazonaws.com/doc/2006-03-01/'); CkXml_UpdateChildContent(xml,'LocationConstraint','eu-west-2'); // Set the bucket name via the HOST header. // In this case, the bucket name is "chilkateuwest2". CkRest_putHost(rest,'chilkateuwest2.s3.amazonaws.com'); // Make the call to create the bucket. responseStr := CkRest__fullRequestString(rest,'PUT','/',CkXml__getXml(xml)); if (CkRest_getLastMethodSuccess(rest) <> True) then begin Memo1.Lines.Add(CkRest__lastErrorText(rest)); Exit; end; if (CkRest_getResponseStatusCode(rest) <> 200) then begin Memo1.Lines.Add('status code = ' + IntToStr(CkRest_getResponseStatusCode(rest))); responseXml := CkXml_Create(); CkXml_LoadXml(responseXml,responseStr); Memo1.Lines.Add(CkXml__getXml(responseXml)); Memo1.Lines.Add('Failed.'); Exit; end; Memo1.Lines.Add('Bucket in the eu-west-2 region created.'); CkRest_Dispose(rest); CkAuthAws_Dispose(authAws); CkXml_Dispose(xml); CkXml_Dispose(responseXml); end; |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.