Amazon S3 - Create Bucket with Constraint

Create an Amazon S3 bucket with a constraint using the REST API.

Download Chilkat XML ActiveX

Download Chilkat Crypt ActiveX

Download Chilkat HTTP ActiveX

Dim http As New ChilkatHttp
Dim success As Long
success = http.UnlockComponent("Anything for 30-day trial.")
If (success <> 1) Then
    '  Unlock failed.
    MsgBox http.LastErrorText
    Exit Sub
End If

'  Create the XML contraint for the bucket:
'  <CreateBucketConfiguration>
'          <LocationConstraint>EU</LocationConstraint>
'  </CreateBucketConfiguration>
Dim xml As New ChilkatXml
xml.Tag = "CreateBucketConfiguration"
xml.NewChild2 "LocationConstraint","EU"
Text1.Text = Text1.Text & xml.GetXml() & vbCrLf

Dim crypt As New ChilkatCrypt2

success = crypt.UnlockComponent("Anything for 30-day trial.")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    Exit Sub
End If

'  The HTTP component now includes a method to generate
'  the current date/time in RFC 2616 compliant format.
'  Note: The GenTimeStamp method is available as a pre-release (as of 18-June-2008).
'  It will become available in the next new version dated after
'  18-June-2008.
Dim curDateTime As String
curDateTime = http.GenTimeStamp()

'  The PUT request operation with a bucket URI creates a new bucket.
Dim strToSign As String
strToSign = "PUT" & vbLf & vbLf & "text/xml" & vbLf & curDateTime & vbLf & "/chilkat2/"

'  We want SHA1 for the HMAC hash algorithm:
crypt.HashAlgorithm = "sha1"

'  These must be changed for your account:
Dim AWSAccessKeyId As String
AWSAccessKeyId = "zzzzzzzzzzzzzzzzzzzz"
Dim AWSSecretAccessKey As String
AWSSecretAccessKey = "zzzzzzzzzzzzzzzzzzzzzzzzzz"

'  Set the HMAC secret key:
crypt.SetHmacKeyString AWSSecretAccessKey

'  By setting the charset = "utf-8", the string will be converted
'  to utf-8 (internal to the Chilkat component) prior to signing:
crypt.Charset = "utf-8"

'  Indicate that Base64 output is desired:
crypt.EncodingMode = "base64"

Dim signature As String
signature = crypt.HmacStringENC(strToSign)

Dim authValue As String
authValue = "AWS " & AWSAccessKeyId & ":" & signature

'  The bucket to be created is specified in the Host header.
'  In this example, the "chilkat2" bucket is created:
http.SetRequestHeader "Host","chilkat2.s3.amazonaws.com"

http.SetRequestHeader "Authorization",authValue
http.SetRequestHeader "Date",curDateTime

Dim xmlResponse As String
xmlResponse = http.XmlRpcPut("http://s3.amazonaws.com/",xml.GetXml())
If (xmlResponse = vbNullString ) Then
    Text1.Text = Text1.Text & "NULL response" & vbCrLf
    Text1.Text = Text1.Text & "---" & vbCrLf
    '  Failed.  Show the last request header, response header,
    '  and response body.
    Text1.Text = Text1.Text & http.LastHeader & vbCrLf
    Text1.Text = Text1.Text & "---" & vbCrLf
    Text1.Text = Text1.Text & http.LastResponseHeader & vbCrLf
    Text1.Text = Text1.Text & "---" & vbCrLf
    Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
Else

    '  Success is indicated by an empty xmlResponse string, and
    '  a response status of 200.
    If (http.LastStatus = 200) Then
        MsgBox "Bucket created!"

        '  Let's check out the response header anyway...
        Text1.Text = Text1.Text & http.LastResponseHeader & vbCrLf

    Else
        Text1.Text = Text1.Text & "LastStatus: " _
             & http.LastStatus & vbCrLf
        Text1.Text = Text1.Text & "---" & vbCrLf
        '  Failed.  Show the last request header, response header,
        '  and response body.
        Text1.Text = Text1.Text & http.LastHeader & vbCrLf
        Text1.Text = Text1.Text & "---" & vbCrLf
        Text1.Text = Text1.Text & http.LastResponseHeader & vbCrLf
        Text1.Text = Text1.Text & "---" & vbCrLf
        Text1.Text = Text1.Text & http.LastErrorText & vbCrLf
    End If

End If