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 ActiveX) 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, Chilkat_v9_5_0_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var rest: TChilkatRest; bTls: Integer; port: Integer; bAutoReconnect: Integer; success: Integer; authAws: TChilkatAuthAws; xml: TChilkatXml; responseStr: WideString; responseXml: TChilkatXml; begin // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. rest := TChilkatRest.Create(Self); // Connect to the Amazon AWS REST server. bTls := 1; port := 443; bAutoReconnect := 1; success := rest.Connect('s3.amazonaws.com',port,bTls,bAutoReconnect); // Provide AWS credentials for the REST call. authAws := TChilkatAuthAws.Create(Self); authAws.AccessKey := 'AWS_ACCESS_KEY'; authAws.SecretKey := 'AWS_SECRET_KEY'; authAws.ServiceName := 's3'; success := rest.SetAuthAws(authAws.ControlInterface); // 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 := TChilkatXml.Create(Self); xml.Tag := 'CreateBucketConfiguration'; 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. responseStr := rest.FullRequestString('PUT','/',xml.GetXml()); if (rest.LastMethodSuccess <> 1) then begin Memo1.Lines.Add(rest.LastErrorText); Exit; end; if (rest.ResponseStatusCode <> 200) then begin Memo1.Lines.Add('status code = ' + IntToStr(rest.ResponseStatusCode)); responseXml := TChilkatXml.Create(Self); responseXml.LoadXml(responseStr); Memo1.Lines.Add(responseXml.GetXml()); Memo1.Lines.Add('Failed.'); Exit; end; Memo1.Lines.Add('Bucket in the eu-west-2 region created.'); end; |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.