PowerBuilder

WhatsApp - Download/Retrieve Media

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

integer li_rc
long li_Success
oleobject loo_Http
oleobject loo_BdResponseBody
long li_RespStatusCode

li_Success = 0

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

loo_Http = create oleobject
li_rc = loo_Http.ConnectToNewObject("Chilkat.Http")
if li_rc < 0 then
    destroy loo_Http
    MessageBox("Error","Connecting to COM object failed")
    return
end if

//  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.
loo_Http.AuthToken = "your-auth-token"

loo_BdResponseBody = create oleobject
li_rc = loo_BdResponseBody.ConnectToNewObject("Chilkat.BinData")

li_Success = loo_Http.QuickGetBd("https://your-webapp-hostname:your-webapp-port/v1/media/4b5bf27b-8672-4d55-bc21-d096dc200d0f",loo_BdResponseBody)
if li_Success = 0 then
    Write-Debug loo_Http.LastErrorText
    destroy loo_Http
    destroy loo_BdResponseBody
    return
end if

li_RespStatusCode = loo_Http.LastStatus
Write-Debug "response status code = " + string(li_RespStatusCode)
Write-Debug "response header = " + loo_Http.LastResponseHeader

if li_RespStatusCode <> 200 then
    Write-Debug "Error response body:"
    Write-Debug loo_BdResponseBody.GetString("utf-8")
    destroy loo_Http
    destroy loo_BdResponseBody
    return
end if

li_Success = loo_BdResponseBody.WriteFile("path/filename")


destroy loo_Http
destroy loo_BdResponseBody