DataFlex Requires Chilkat v11.0.0+

Bunny Edge Storage - Delete File

See more Bunny CDN Examples

Delete an object from the storage zone. In case the object is a directory all the data in it will be recursively deleted as well. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    Variant vResp
    Handle hoResp
    Integer iRespStatusCode
    String sTemp1

    Move False To iSuccess

    //  This example assumes the Chilkat 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

    //  Use the "Password" from the "FTP & HTTP API Access" console web page for your Bunny storage zone.
    Send ComSetRequestHeader To hoHttp "AccessKey" "YOUR_FTP_AND_HTTP_PASSWORD"

    //  Important:
    //  Storage Endpoints:
    //  The storage API endpoint depends on the primary storage region of your storage zone. You can also find this in the FTP & HTTP API Information of your storage zone.

    //  Falkenstein: storage.bunnycdn.com
    //  New York: ny.storage.bunnycdn.com
    //  Los Angeles: la.storage.bunnycdn.com
    //  Singapore: sg.storage.bunnycdn.com
    //  Sydney: syd.storage.bunnycdn.com
    //  London: uk.storage.bunnycdn.com
    //  ... (possibly others??)

    //  If you use the incorrect storage endpoint, you will get a "401 Unauthorized" response.

    //  Make sure to change the "storageZoneName" to your actual storage zone name.
    //  Change "testDir" to your actual sub-directory, or remove it.
    Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
    If (Not(IsComObjectCreated(hoResp))) Begin
        Send CreateComObject of hoResp
    End
    Get pvComObject of hoResp to vResp
    Get ComHttpNoBody Of hoHttp "DELETE" "https://uk.storage.bunnycdn.com/storageZoneName/testDir/penguins.jpg" vResp To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComStatusCode Of hoResp To iRespStatusCode
    Showln "Response Status Code = " iRespStatusCode
    If (iRespStatusCode >= 400) Begin
        Showln "Response Header:"
        Get ComHeader Of hoResp To sTemp1
        Showln sTemp1
        Get ComBodyStr Of hoResp To sTemp1
        Showln sTemp1
        Showln "Failed."
    End
    Else Begin
        Showln "Success."
    End

    //  A 200 status code is returned for a successful delete.


End_Procedure