(Tcl) WhatsApp - Delete Media
Demonstrates how to delete media previously uploaded to the WhatsApp Business API client For more information, see https://developers.facebook.com/docs/whatsapp/api/media#delete
load ./chilkat.dll
# This example assumes the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.
set http [new_CkHttp]
# Implements the following CURL command:
# curl -X DELETE \
# https://your-webapp-hostname:your-webapp-port/v1/media/media-id \
# -H 'Authorization: Bearer your-auth-token'
# 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_put_AuthToken $http "your-auth-token"
# resp is a CkHttpResponse
set resp [CkHttp_QuickRequest $http "DELETE" "https://your-webapp-hostname:your-webapp-port/v1/media/media-id"]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
puts [CkHttp_lastErrorText $http]
delete_CkHttp $http
exit
}
set respStatusCode [CkHttpResponse_get_StatusCode $resp]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode != 200} then {
puts "Response Header:"
puts [CkHttpResponse_header $resp]
puts "Response Body:"
puts [CkHttpResponse_bodyStr $resp]
puts "Failed."
delete_CkHttpResponse $resp
delete_CkHttp $http
exit
}
delete_CkHttpResponse $resp
puts "Success."
delete_CkHttp $http
|