(DataFlex) S3 Delete File

Demonstrates how to delete a remote file (object) on the Amazon S3 service.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoHttp
    String sBucketName
    String sObjectName
    Boolean iSuccess
    String sTemp1
    Integer iTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

    // Insert your access key here
    Set ComAwsAccessKey Of hoHttp To "AWS_ACCESS_KEY"

    // Insert your secret key here
    Set ComAwsSecretKey Of hoHttp To "AWS_SECRET_KEY"

    Move "chilkattest" To sBucketName
    Move "starfish.jpg" To sObjectName

    Set ComKeepResponseBody Of hoHttp To True
    Get ComS3_DeleteObject Of hoHttp sBucketName sObjectName To iSuccess

    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComLastStatus Of hoHttp To iTemp1
    If (iTemp1 <> 204) Begin
        Get ComLastStatus Of hoHttp To iTemp1
        Showln "Status code = " iTemp1
        Get ComLastResponseBody Of hoHttp To sTemp1
        Showln sTemp1
        Showln "Failed."
        Procedure_Return
    End

    // 204 is the success response status.
    // When successful, the response body will be empty.
    Get ComLastStatus Of hoHttp To iTemp1
    Showln "Status code = " iTemp1
    Showln "Success. Object deleted."


End_Procedure