Xbase++

S3 Delete Bucket Object

See more Amazon S3 (new) Examples

Deletes an object in a bucket. Xbase++

LOCAL nSuccess
LOCAL oRest
LOCAL nBTls
LOCAL nPort
LOCAL nBAutoReconnect
LOCAL oAuthAws
LOCAL oSbResponse
LOCAL nStatusCode

nSuccess := 0

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

oRest := CreateObject("Chilkat.Rest")

//  Connect to the Amazon AWS REST server.
nBTls := 1
nPort := 443
nBAutoReconnect := 1
nSuccess := oRest:Connect("s3.amazonaws.com", nPort, nBTls, nBAutoReconnect)

//  ----------------------------------------------------------------------------
//  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.
oAuthAws := CreateObject("Chilkat.AuthAws")
oAuthAws:AccessKey := "AWS_ACCESS_KEY"
oAuthAws:SecretKey := "AWS_SECRET_KEY"
oAuthAws:ServiceName := "s3"
nSuccess := oRest:SetAuthAws(oAuthAws)

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

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

oSbResponse := CreateObject("Chilkat.StringBuilder")
nSuccess := oRest:FullRequestNoBodySb("DELETE", "/Abc.ics", oSbResponse)
IF (nSuccess != 1)
    ? oRest:LastErrorText
    oRest:destroy()
    oAuthAws:destroy()
    oSbResponse:destroy()
    RETURN
ENDIF

//  If successfully deleted, the response status code is 204 and the response body text will be empty.
nStatusCode := oRest:ResponseStatusCode
? "Response status code = " + Str(nStatusCode)
? "Response text = "
? oSbResponse:GetAsString()

oRest:destroy()
oAuthAws:destroy()
oSbResponse:destroy()