(DataFlex) Bunny Edge Storage - Upload File

See more Bunny CDN Examples

Upload a file to a storage zone based on the URL path. If the directory tree does not exist, it will be created automatically. The file content should be sent as the body of the request without any type of encoding.

Note: This example requires Chilkat v11.0.0 or greater.

For more information, see https://docs.bunny.net/reference/put_-storagezonename-path-filename

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoHttp
    String sLocalFilePath
    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"

    // Here I am using a relative file path (relative to the current working directory of the process).
    // You may wish to change it to an absolute file path, such as "C:/someDir/..." if on Windows.
    Move "qa_data/jpg/penguins.jpg" To sLocalFilePath

    // 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.
    // You can choose to upload to a sub-directory, such as "testDir", or not.
    Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
    If (Not(IsComObjectCreated(hoResp))) Begin
        Send CreateComObject of hoResp
    End
    Get pvComObject of hoResp to vResp
    Get ComHttpFile Of hoHttp "PUT" "https://uk.storage.bunnycdn.com/storageZoneName/testDir/penguins.jpg" sLocalFilePath "application/octet-stream" 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 201 status code is returned for a successful upload.
    // The response body for a successful upload is empty.


End_Procedure