(Lianja) Twilio Send SMS (using Chilkat HTTP)

Send an outgoing SMS message.

For more information, see https://www.twilio.com/docs/sms/api/message-resource#create-a-message-resource

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loHttp = createobject("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

loHttp.Login = "TWILIO_ACCOUNT_SID"
loHttp.Password = "TWILIO_AUTH_TOKEN"

loReq = createobject("CkHttpRequest")
loReq.HttpVerb = "POST"
loReq.Path = "/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json"
loReq.ContentType = "application/x-www-form-urlencoded"
loReq.AddParam("From","+15005550006")
loReq.AddParam("Body","body")
loReq.AddParam("To","+15005551212")

loResp = loHttp.PostUrlEncoded("https://api.twilio.com/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json",loReq)
if (loHttp.LastMethodSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loReq
    return
endif

loSbResponseBody = createobject("CkStringBuilder")
loResp.GetBodySb(loSbResponseBody)
loJResp = createobject("CkJsonObject")
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = .F.

? "Response Body:"
? loJResp.Emit()

// A 201 status code indicates success.
lnRespStatusCode = loResp.StatusCode
? "Response Status Code = " + str(lnRespStatusCode)
if (lnRespStatusCode >= 400) then
    ? "Response Header:"
    ? loResp.Header
    ? "Failed."
    release loResp
    release loHttp
    release loReq
    release loSbResponseBody
    release loJResp
    return
endif

release loResp

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

// {
//   "account_sid": "ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
//   "api_version": "2010-04-01",
//   "body": "body",
//   "date_created": "Thu, 30 Jul 2015 20:12:31 +0000",
//   "date_sent": "Thu, 30 Jul 2015 20:12:33 +0000",
//   "date_updated": "Thu, 30 Jul 2015 20:12:33 +0000",
//   "direction": "outbound-api",
//   "error_code": null,
//   "error_message": null,
//   "from": "+15017122661",
//   "messaging_service_sid": "MGXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
//   "num_media": "0",
//   "num_segments": "1",
//   "price": null,
//   "price_unit": null,
//   "sid": "MMXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
//   "status": "sent",
//   "subresource_uris": {
//     "media": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/SMXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Media.json"
//   },
//   "to": "+15558675310",
//   "uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/SMXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX.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

lcAccount_sid = loJResp.StringOf("account_sid")
lcApi_version = loJResp.StringOf("api_version")
lcBody = loJResp.StringOf("body")
lcDate_created = loJResp.StringOf("date_created")
lcDate_sent = loJResp.StringOf("date_sent")
lcDate_updated = loJResp.StringOf("date_updated")
lcDirection = loJResp.StringOf("direction")
lcError_code = loJResp.StringOf("error_code")
lcError_message = loJResp.StringOf("error_message")
lcFrom = loJResp.StringOf("from")
lcMessaging_service_sid = loJResp.StringOf("messaging_service_sid")
lcNum_media = loJResp.StringOf("num_media")
lcNum_segments = loJResp.StringOf("num_segments")
lcPrice = loJResp.StringOf("price")
lcPrice_unit = loJResp.StringOf("price_unit")
lcSid = loJResp.StringOf("sid")
lcStatus = loJResp.StringOf("status")
lcSubresource_urisMedia = loJResp.StringOf("subresource_uris.media")
lcV_to = loJResp.StringOf("to")
lcUri = loJResp.StringOf("uri")


release loHttp
release loReq
release loSbResponseBody
release loJResp