(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL lnSuccess
LOCAL loReq
LOCAL loResp
LOCAL loSbResponseBody
LOCAL loJResp
LOCAL lnRespStatusCode
LOCAL lcAccount_sid
LOCAL lcApi_version
LOCAL lcBody
LOCAL lcDate_created
LOCAL lcDate_sent
LOCAL lcDate_updated
LOCAL lcDirection
LOCAL lcError_code
LOCAL lcError_message
LOCAL lcFrom
LOCAL lcMessaging_service_sid
LOCAL lcNum_media
LOCAL lcNum_segments
LOCAL lcPrice
LOCAL lcPrice_unit
LOCAL lcSid
LOCAL lcStatus
LOCAL lcSubresource_urisMedia
LOCAL lcV_to
LOCAL lcUri

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')

* 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"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.HttpRequest')
loReq = CreateObject('Chilkat.HttpRequest')
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 = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbResponseBody = CreateObject('Chilkat.StringBuilder')
loResp.GetBodySb(loSbResponseBody)
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJResp = CreateObject('Chilkat.JsonObject')
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = 0

? "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
    CANCEL
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