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
(SQL Server) 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.
// Important: See this note about string length limitations for strings returned by sp_OAMethod calls. // CREATE PROCEDURE ChilkatSample AS BEGIN DECLARE @hr int DECLARE @iTmp0 int DECLARE @sTmp0 nvarchar(4000) -- This example requires the Chilkat API to have been previously unlocked. -- See Global Unlock Sample for sample code. DECLARE @rest int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Rest', @rest OUT IF @hr <> 0 BEGIN PRINT 'Failed to create ActiveX component' RETURN END -- Connect to the Amazon AWS REST server. DECLARE @bTls int SELECT @bTls = 1 DECLARE @port int SELECT @port = 443 DECLARE @bAutoReconnect int SELECT @bAutoReconnect = 1 DECLARE @success int EXEC sp_OAMethod @rest, 'Connect', @success OUT, 's3.amazonaws.com', @port, @bTls, @bAutoReconnect -- Provide AWS credentials for the REST call. DECLARE @authAws int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.AuthAws', @authAws OUT EXEC sp_OASetProperty @authAws, 'AccessKey', 'AWS_ACCESS_KEY' EXEC sp_OASetProperty @authAws, 'SecretKey', 'AWS_SECRET_KEY' EXEC sp_OASetProperty @authAws, 'ServiceName', 's3' EXEC sp_OAMethod @rest, 'SetAuthAws', @success OUT, @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" DECLARE @xml int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Xml', @xml OUT EXEC sp_OASetProperty @xml, 'Tag', 'CreateBucketConfiguration' EXEC sp_OAMethod @xml, 'AddAttribute', @success OUT, 'xmlns', 'http://s3.amazonaws.com/doc/2006-03-01/' EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'LocationConstraint', 'eu-west-2' -- Set the bucket name via the HOST header. -- In this case, the bucket name is "chilkateuwest2". EXEC sp_OASetProperty @rest, 'Host', 'chilkateuwest2.s3.amazonaws.com' -- Make the call to create the bucket. DECLARE @responseStr nvarchar(4000) EXEC sp_OAMethod @xml, 'GetXml', @sTmp0 OUT EXEC sp_OAMethod @rest, 'FullRequestString', @responseStr OUT, 'PUT', '/', @sTmp0 EXEC sp_OAGetProperty @rest, 'LastMethodSuccess', @iTmp0 OUT IF @iTmp0 <> 1 BEGIN EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT PRINT @sTmp0 EXEC @hr = sp_OADestroy @rest EXEC @hr = sp_OADestroy @authAws EXEC @hr = sp_OADestroy @xml RETURN END EXEC sp_OAGetProperty @rest, 'ResponseStatusCode', @iTmp0 OUT IF @iTmp0 <> 200 BEGIN EXEC sp_OAGetProperty @rest, 'ResponseStatusCode', @iTmp0 OUT PRINT 'status code = ' + @iTmp0 DECLARE @responseXml int EXEC @hr = sp_OACreate 'Chilkat_9_5_0.Xml', @responseXml OUT EXEC sp_OAMethod @responseXml, 'LoadXml', @success OUT, @responseStr EXEC sp_OAMethod @responseXml, 'GetXml', @sTmp0 OUT PRINT @sTmp0 PRINT 'Failed.' EXEC @hr = sp_OADestroy @rest EXEC @hr = sp_OADestroy @authAws EXEC @hr = sp_OADestroy @xml EXEC @hr = sp_OADestroy @responseXml RETURN END PRINT 'Bucket in the eu-west-2 region created.' EXEC @hr = sp_OADestroy @rest EXEC @hr = sp_OADestroy @authAws EXEC @hr = sp_OADestroy @xml EXEC @hr = sp_OADestroy @responseXml END GO |
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.