(PureBasic) WhatsApp - Download/Retrieve Media

Demonstrates how to download media previously uploaded to the WhatsApp Business API client

For more information, see https://developers.facebook.com/docs/whatsapp/api/media#retrieve

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkBinData.pb"
IncludeFile "CkHttp.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i

    ; Implements the following CURL command:

    ; curl -X GET \
    ;   https://your-webapp-hostname:your-webapp-port/v1/media/4b5bf27b-8672-4d55-bc21-d096dc200d0f \
    ;   -H 'Authorization: Bearer your-auth-token' \
    ;   -o path/filename

    ; Use the following online tool to generate HTTP code from a CURL command
    ; Convert a cURL Command to HTTP Source Code

    ; Adds the "Authorization: Bearer your-auth-token" header.
    CkHttp::setCkAuthToken(http, "your-auth-token")

    bdResponseBody.i = CkBinData::ckCreate()
    If bdResponseBody.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckQuickGetBd(http,"https://your-webapp-hostname:your-webapp-port/v1/media/4b5bf27b-8672-4d55-bc21-d096dc200d0f",bdResponseBody)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkBinData::ckDispose(bdResponseBody)
        ProcedureReturn
    EndIf

    respStatusCode.i = CkHttp::ckLastStatus(http)
    Debug "response status code = " + Str(respStatusCode)
    Debug "response header = " + CkHttp::ckLastResponseHeader(http)

    If respStatusCode <> 200
        Debug "Error response body:"
        Debug CkBinData::ckGetString(bdResponseBody,"utf-8")
        CkHttp::ckDispose(http)
        CkBinData::ckDispose(bdResponseBody)
        ProcedureReturn
    EndIf

    success = CkBinData::ckWriteFile(bdResponseBody,"path/filename")


    CkHttp::ckDispose(http)
    CkBinData::ckDispose(bdResponseBody)


    ProcedureReturn
EndProcedure