Xbase++ Requires Chilkat v11.0.0+

Transition from Http.S3_DeleteMultipleObjects to Http.S3_DeleteObjects

Provides instructions for replacing deprecated S3_DeleteMultipleObjects method calls with S3_DeleteObjects. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL cBucketName
LOCAL oSa
LOCAL oSt
LOCAL oResponseObj
LOCAL oResponseOut

nSuccess := 0

oHttp := CreateObject("Chilkat.Http")

cBucketName := "testBucket"

oSa := CreateObject("Chilkat.StringArray")
oSa:Append("starfish.jpg")
oSa:Append("clam.jpg")
oSa:Append("shark.jpg")

oSt := CreateObject("Chilkat.StringTable")
oSt:Append("starfish.jpg")
oSt:Append("clam.jpg")
oSt:Append("shark.jpg")

//  ------------------------------------------------------------------------
//  The S3_DeleteMultipleObjects method is deprecated:

oResponseObj := oHttp:S3_DeleteMultipleObjects(cBucketName, oSa)
IF (oHttp:LastMethodSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oSa:destroy()
    oSt:destroy()
    RETURN
ENDIF

//  ...
//  ...

oResponseObj:destroy()

//  ------------------------------------------------------------------------
//  Do the equivalent using S3_DeleteObjects.
//  Your application creates a new, empty HttpResponse object which is passed 
//  in the last argument and filled upon success.

oResponseOut := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:S3_DeleteObjects(cBucketName, oSt, oResponseOut)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oSa:destroy()
    oSt:destroy()
    oResponseOut:destroy()
    RETURN
ENDIF

oHttp:destroy()
oSa:destroy()
oSt:destroy()
oResponseOut:destroy()