DataFlex

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