PowerBuilder
PowerBuilder
MessageMedia - Send Messages
See more MessageMedia Examples
Submit one or more (up to 100 per request) SMS, MMS, or text to voice messages for delivery.Chilkat PowerBuilder Downloads
integer li_rc
integer li_Success
oleobject loo_Http
oleobject loo_Json
oleobject loo_Resp
oleobject loo_SbResponseBody
oleobject loo_JResp
integer li_RespStatusCode
string ls_Message_id
string ls_Callback_url
string ls_Status
string ls_Content
string ls_Destination_number
integer li_Delivery_report
string ls_Format
string ls_Message_expiry_timestamp
string ls_MyKey
string ls_AnotherKey
string ls_Scheduled
string ls_Source_number
string ls_Source_number_type
integer i
integer li_Count_i
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 --request POST \
// --header "Content-Type: application/json" \
// --header "Accept: application/json" \
// --data-binary "{
// \"messages\": [
// {
// \"callback_url\": \"https://my.callback.url.com\",
// \"content\": \"My first message\",
// \"destination_number\": \"+61491570156\",
// \"delivery_report\": true,
// \"format\": \"SMS\",
// \"message_expiry_timestamp\": \"2016-11-03T11:49:02.807Z\",
// \"metadata\": {
// \"myKey\": \"myValue\",
// \"anotherKey\": \"anotherValue\"
// },
// \"scheduled\": \"2016-11-03T11:49:02.807Z\",
// \"source_number\": \"+61491570157\",
// \"source_number_type\": \"INTERNATIONAL\"
// },
// {
// \"callback_url\": \"https://my.callback.url.com\",
// \"content\": \"My second message\",
// \"destination_number\": \"+61491570158\",
// \"delivery_report\": true,
// \"format\": \"MMS\",
// \"subject\": \"This is an MMS message\",
// \"media\": [ \"https://images.pexels.com/photos/1018350/pexels-photo-1018350.jpeg?cs=srgb&dl=architecture-buildings-city-1018350.jpg\" ],
// \"message_expiry_timestamp\": \"2016-11-03T11:49:02.807Z\",
// \"metadata\": {
// \"myKey\": \"myValue\",
// \"anotherKey\": \"anotherValue\"
// },
// \"scheduled\": \"2016-11-03T11:49:02.807Z\",
// \"source_number\": \"+61491570159\",
// \"source_number_type\": \"INTERNATIONAL\"
// }
// ]
// }" \
// https://private-anon-ecbaffbc28-messages32.apiary-mock.com/v1/messages
// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code
// Use this online tool to generate code from sample JSON:
// Generate Code to Create JSON
// The following JSON is sent in the request body.
// {
// "messages": [
// {
// "callback_url": "https://my.callback.url.com",
// "content": "My first message",
// "destination_number": "+61491570156",
// "delivery_report": true,
// "format": "SMS",
// "message_expiry_timestamp": "2016-11-03T11:49:02.807Z",
// "metadata": {
// "myKey": "myValue",
// "anotherKey": "anotherValue"
// },
// "scheduled": "2016-11-03T11:49:02.807Z",
// "source_number": "+61491570157",
// "source_number_type": "INTERNATIONAL"
// },
// {
// "callback_url": "https://my.callback.url.com",
// "content": "My second message",
// "destination_number": "+61491570158",
// "delivery_report": true,
// "format": "MMS",
// "subject": "This is an MMS message",
// "media": [
// "https://images.pexels.com/photos/1018350/pexels-photo-1018350.jpeg?cs=srgb&dl=architecture-buildings-city-1018350.jpg"
// ],
// "message_expiry_timestamp": "2016-11-03T11:49:02.807Z",
// "metadata": {
// "myKey": "myValue",
// "anotherKey": "anotherValue"
// },
// "scheduled": "2016-11-03T11:49:02.807Z",
// "source_number": "+61491570159",
// "source_number_type": "INTERNATIONAL"
// }
// ]
// }
loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
loo_Json.UpdateString("messages[0].callback_url","https://my.callback.url.com")
loo_Json.UpdateString("messages[0].content","My first message")
loo_Json.UpdateString("messages[0].destination_number","+61491570156")
loo_Json.UpdateBool("messages[0].delivery_report",1)
loo_Json.UpdateString("messages[0].format","SMS")
loo_Json.UpdateString("messages[0].message_expiry_timestamp","2016-11-03T11:49:02.807Z")
loo_Json.UpdateString("messages[0].metadata.myKey","myValue")
loo_Json.UpdateString("messages[0].metadata.anotherKey","anotherValue")
loo_Json.UpdateString("messages[0].scheduled","2016-11-03T11:49:02.807Z")
loo_Json.UpdateString("messages[0].source_number","+61491570157")
loo_Json.UpdateString("messages[0].source_number_type","INTERNATIONAL")
loo_Json.UpdateString("messages[1].callback_url","https://my.callback.url.com")
loo_Json.UpdateString("messages[1].content","My second message")
loo_Json.UpdateString("messages[1].destination_number","+61491570158")
loo_Json.UpdateBool("messages[1].delivery_report",1)
loo_Json.UpdateString("messages[1].format","MMS")
loo_Json.UpdateString("messages[1].subject","This is an MMS message")
loo_Json.UpdateString("messages[1].media[0]","https://images.pexels.com/photos/1018350/pexels-photo-1018350.jpeg?cs=srgb&dl=architecture-buildings-city-1018350.jpg")
loo_Json.UpdateString("messages[1].message_expiry_timestamp","2016-11-03T11:49:02.807Z")
loo_Json.UpdateString("messages[1].metadata.myKey","myValue")
loo_Json.UpdateString("messages[1].metadata.anotherKey","anotherValue")
loo_Json.UpdateString("messages[1].scheduled","2016-11-03T11:49:02.807Z")
loo_Json.UpdateString("messages[1].source_number","+61491570159")
loo_Json.UpdateString("messages[1].source_number_type","INTERNATIONAL")
loo_Http.SetRequestHeader("Content-Type","application/json")
loo_Http.SetRequestHeader("Accept","application/json")
loo_Resp = create oleobject
li_rc = loo_Resp.ConnectToNewObject("Chilkat.HttpResponse")
li_Success = loo_Http.HttpJson("POST","https://private-anon-ecbaffbc28-messages32.apiary-mock.com/v1/messages",loo_Json,"application/json",loo_Resp)
if li_Success = 0 then
Write-Debug loo_Http.LastErrorText
destroy loo_Http
destroy loo_Json
destroy loo_Resp
return
end if
loo_SbResponseBody = create oleobject
li_rc = loo_SbResponseBody.ConnectToNewObject("Chilkat.StringBuilder")
loo_Resp.GetBodySb(loo_SbResponseBody)
loo_JResp = create oleobject
li_rc = loo_JResp.ConnectToNewObject("Chilkat.JsonObject")
loo_JResp.LoadSb(loo_SbResponseBody)
loo_JResp.EmitCompact = 0
Write-Debug "Response Body:"
Write-Debug loo_JResp.Emit()
li_RespStatusCode = loo_Resp.StatusCode
Write-Debug "Response Status Code = " + string(li_RespStatusCode)
if li_RespStatusCode >= 400 then
Write-Debug "Response Header:"
Write-Debug loo_Resp.Header
Write-Debug "Failed."
destroy loo_Http
destroy loo_Json
destroy loo_Resp
destroy loo_SbResponseBody
destroy loo_JResp
return
end if
// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)
// {
// "messages": [
// {
// "message_id": "04fe9a97-a579-43c5-bb1a-58ed29bf0a6a",
// "callback_url": "https://my.url.com",
// "status": "delivered",
// "content": "My first message",
// "destination_number": "+61491570156",
// "delivery_report": true,
// "format": "SMS",
// "message_expiry_timestamp": "2016-11-03T11:49:02.807Z",
// "metadata": {
// "myKey": "myValue",
// "anotherKey": "anotherValue"
// },
// "scheduled": "2016-11-03T11:49:02.807Z",
// "source_number": "+61491570157",
// "source_number_type": "INTERNATIONAL"
// }
// ]
// }
// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
i = 0
li_Count_i = loo_JResp.SizeOfArray("messages")
do while i < li_Count_i
loo_JResp.I = i
ls_Message_id = loo_JResp.StringOf("messages[i].message_id")
ls_Callback_url = loo_JResp.StringOf("messages[i].callback_url")
ls_Status = loo_JResp.StringOf("messages[i].status")
ls_Content = loo_JResp.StringOf("messages[i].content")
ls_Destination_number = loo_JResp.StringOf("messages[i].destination_number")
li_Delivery_report = loo_JResp.BoolOf("messages[i].delivery_report")
ls_Format = loo_JResp.StringOf("messages[i].format")
ls_Message_expiry_timestamp = loo_JResp.StringOf("messages[i].message_expiry_timestamp")
ls_MyKey = loo_JResp.StringOf("messages[i].metadata.myKey")
ls_AnotherKey = loo_JResp.StringOf("messages[i].metadata.anotherKey")
ls_Scheduled = loo_JResp.StringOf("messages[i].scheduled")
ls_Source_number = loo_JResp.StringOf("messages[i].source_number")
ls_Source_number_type = loo_JResp.StringOf("messages[i].source_number_type")
i = i + 1
loop
destroy loo_Http
destroy loo_Json
destroy loo_Resp
destroy loo_SbResponseBody
destroy loo_JResp