B4X

S3 Delete Bucket Object

See more Amazon S3 (new) Examples

Deletes an object in a bucket. B4X

Dim success As Boolean = False

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim rest As ChilkatRest
rest.Initialize("rest")

'  Connect to the Amazon AWS REST server.
Dim bTls As Boolean = True
Dim port As Int = 443
Dim bAutoReconnect As Boolean = True
success = rest.Connect("s3.amazonaws.com", port, bTls, bAutoReconnect)

'  ----------------------------------------------------------------------------
'  Important: For buckets created in regions outside us-east-1,
'  there are three important changes that need to be made.
'  See Working with S3 Buckets in Non-us-east-1 Regions for the details.
'  ----------------------------------------------------------------------------

'  Provide AWS credentials for the REST call.
Dim authAws As ChilkatAuthAws
authAws.Initialize
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"
authAws.ServiceName = "s3"
success = rest.SetAuthAws(authAws)

'   Set the bucket name via the HOST header.
'   In this case, the bucket name is "chilkat100".
rest.Host = "chilkat100.s3.amazonaws.com"

'  This example deletes the object named "Abc.ics"

Dim sbResponse As ChilkatStringBuilder
sbResponse.Initialize
success = rest.FullRequestNoBodySb("DELETE", "/Abc.ics", sbResponse)
If success <> True Then
    Log(rest.LastErrorText)
    Return
End If


'  If successfully deleted, the response status code is 204 and the response body text will be empty.
Dim statusCode As Int = rest.ResponseStatusCode
Log("Response status code = " & statusCode)
Log("Response text = ")
Log(sbResponse.GetAsString)