(Tcl) Twilio Send MMS (using Chilkat HTTP)

Send an outgoing MMS message. The only difference with MMS (as compared with SMS) is that a MediaUrl parameter is added to the POST. This means your image must be accessible on the web -- the Twilio server must be able to download the image from the URL you provide to include it in the MMS mesage to be sent.

Also, see Twilio MMS for more information about MMS.

For more information, see https://support.twilio.com/hc/en-us/articles/223179808-Sending-and-receiving-MMS-messages

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

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:

# (See information about using test credentials and phone numbers:  https://www.twilio.com/docs/iam/test-credentials)

# curl -X POST https://api.twilio.com/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json \
# --data-urlencode "From=+15005550006" \
# --data-urlencode "Body=body" \
# --data-urlencode "To=+15005551212" \
# -u TWILIO_ACCOUNT_SID:TWILIO_AUTH_TOKEN

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

CkHttp_put_Login $http "TWILIO_ACCOUNT_SID"
CkHttp_put_Password $http "TWILIO_AUTH_TOKEN"

set req [new_CkHttpRequest]

CkHttpRequest_put_HttpVerb $req "POST"
CkHttpRequest_put_Path $req "/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json"
CkHttpRequest_put_ContentType $req "application/x-www-form-urlencoded"
CkHttpRequest_AddParam $req "From" "+15005550006"
CkHttpRequest_AddParam $req "Body" "body"
CkHttpRequest_AddParam $req "To" "+15005551212"
CkHttpRequest_AddParam $req "MediaUrl" "https://www.chilkatsoft.com/images/starfish.jpg"

# resp is a CkHttpResponse
set resp [CkHttp_PostUrlEncoded $http "https://api.twilio.com/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json" $req]
if {[CkHttp_get_LastMethodSuccess $http] == 0} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkHttpRequest $req
    exit
}

set sbResponseBody [new_CkStringBuilder]

CkHttpResponse_GetBodySb $resp $sbResponseBody
set jResp [new_CkJsonObject]

CkJsonObject_LoadSb $jResp $sbResponseBody
CkJsonObject_put_EmitCompact $jResp 0

puts "Response Body:"
puts [CkJsonObject_emit $jResp]

# A 201 status code indicates success.
set respStatusCode [CkHttpResponse_get_StatusCode $resp]
puts "Response Status Code = $respStatusCode"
if {$respStatusCode >= 400} then {
    puts "Response Header:"
    puts [CkHttpResponse_header $resp]
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkHttpRequest $req
    delete_CkStringBuilder $sbResponseBody
    delete_CkJsonObject $jResp
    exit
}

delete_CkHttpResponse $resp

# Sample JSON response:
# (Sample code for parsing the JSON response is shown below)

# {
#   "sid": "SM477111c301794f14b11eca5eefd5c350",
#   "date_created": "Tue, 18 Aug 2020 15:04:47 +0000",
#   "date_updated": "Tue, 18 Aug 2020 15:04:47 +0000",
#   "date_sent": null,
#   "account_sid": "AC2e9b6bc0f51133df24926f07341d3824",
#   "to": "+15005551212",
#   "from": "+15005550006",
#   "messaging_service_sid": null,
#   "body": "body",
#   "status": "queued",
#   "num_segments": "1",
#   "num_media": "0",
#   "direction": "outbound-api",
#   "api_version": "2010-04-01",
#   "price": null,
#   "price_unit": "USD",
#   "error_code": null,
#   "error_message": null,
#   "uri": "/2010-04-01/Accounts/AC2e9b6bc0f51133df24926f07341d3824/Messages/SM477111c301794f14b11eca5eefd5c350.json",
#   "subresource_uris": {
#     "media": "/2010-04-01/Accounts/AC2e9b6bc0f51133df24926f07341d3824/Messages/SM477111c301794f14b11eca5eefd5c350/Media.json"
#   }
# }

# Sample code for parsing the JSON response...
# Use the following online tool to generate parsing code from sample JSON:
# Generate Parsing Code from JSON

set date_created [new_CkDtObj]

set date_updated [new_CkDtObj]

set date_sent [new_CkDtObj]

set sid [CkJsonObject_stringOf $jResp "sid"]
CkJsonObject_DtOf $jResp "date_created" 0 $date_created
CkJsonObject_DtOf $jResp "date_updated" 0 $date_updated
CkJsonObject_DtOf $jResp "date_sent" 0 $date_sent
set account_sid [CkJsonObject_stringOf $jResp "account_sid"]
set v_to [CkJsonObject_stringOf $jResp "to"]
set from [CkJsonObject_stringOf $jResp "from"]
set messaging_service_sid [CkJsonObject_stringOf $jResp "messaging_service_sid"]
set body [CkJsonObject_stringOf $jResp "body"]
set status [CkJsonObject_stringOf $jResp "status"]
set num_segments [CkJsonObject_stringOf $jResp "num_segments"]
set num_media [CkJsonObject_stringOf $jResp "num_media"]
set direction [CkJsonObject_stringOf $jResp "direction"]
set api_version [CkJsonObject_stringOf $jResp "api_version"]
set price [CkJsonObject_stringOf $jResp "price"]
set price_unit [CkJsonObject_stringOf $jResp "price_unit"]
set error_code [CkJsonObject_stringOf $jResp "error_code"]
set error_message [CkJsonObject_stringOf $jResp "error_message"]
set uri [CkJsonObject_stringOf $jResp "uri"]
set subresource_urisMedia [CkJsonObject_stringOf $jResp "subresource_uris.media"]

delete_CkHttp $http
delete_CkHttpRequest $req
delete_CkStringBuilder $sbResponseBody
delete_CkJsonObject $jResp
delete_CkDtObj $date_created
delete_CkDtObj $date_updated
delete_CkDtObj $date_sent