Visual FoxPro

Twilio: Send SMS using Basic Authentication

See more REST Examples

Demonstrates how to use Twilio to send an SMS message using Basic authentication. Visual FoxPro

LOCAL lnSuccess
LOCAL loRest
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL lcResponseJson
LOCAL loJson

lnSuccess = 0

* Demonstrates how to use Basic Authentication in a REST API call for Twilio.
* Sends an SMS text message..

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

loRest = CreateObject('Chilkat.Rest')

* Use Basic Authentication.
* Your Twilio Account SID is the username.
* Your Twilio Auth Token is the password.
lnSuccess = loRest.SetAuthBasic("TWILIO_ACCOUNT_SID","TWILIO_AUTH_TOKEN")

* Make the initial connection (without sending a request yet) to Twilio.
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("api.twilio.com",lnPort,lnBTls,lnBAutoReconnect)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

* Provide the information for the SMS text message:
lnSuccess = loRest.AddQueryParam("To","+16518675309")
lnSuccess = loRest.AddQueryParam("From","+15005550006")
lnSuccess = loRest.AddQueryParam("Body","Hey Jenny! Good luck on the bar exam!")
lnSuccess = loRest.AddQueryParam("MediaUrl","http://farm2.static.flickr.com/1075/1404618563_3ed9a44a3a.jpg")

* Send the SMS text message.
* Your Twilio Account SID is part of the URI path:
lcResponseJson = loRest.FullRequestFormUrlEncoded("POST","/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json")
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

* When successful, the response status code will equal 201.
IF (loRest.ResponseStatusCode <> 201) THEN
    * Examine the request/response to see what happened.
    ? "response status code = " + STR(loRest.ResponseStatusCode)
    ? "response status text = " + loRest.ResponseStatusText
    ? "response header: " + loRest.ResponseHeader
    ? "response body (if any): " + lcResponseJson
    ? "---"
    ? "LastRequestStartLine: " + loRest.LastRequestStartLine
    ? "LastRequestHeader: " + loRest.LastRequestHeader
    RELEASE loRest
    CANCEL
ENDIF

* The response is JSON.  We'll show how to get a few bits of information from it.
* A full sample JSON response is shown below..

loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0
lnSuccess = loJson.Load(lcResponseJson)

* First show the entire JSON.
? loJson.Emit()

* Now get some individual pieces of information:
? "sid: " + loJson.StringOf("sid")
? "body: " + loJson.StringOf("body")
? "media: " + loJson.StringOf("subresource_uris.media")

? "Success."

* Sample JSON response:

* {
*   "sid": "MM97ecfd43e9f24e99b0c2c6ee016949e3",
*   "date_created": null,
*   "date_updated": null,
*   "date_sent": null,
*   "account_sid": "112e1111e0151133d11112101111d1111",
*   "to": "+16518675309",
*   "from": "+15005550006",
*   "messaging_service_sid": null,
*   "body": "Sent from your Twilio trial account - Hey Jenny! Good luck on the bar exam!",
*   "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/MM97ecfd43e9f24e99b0c2c6ee016949e3.json",
*   "subresource_uris": {
*     "media": "/2010-04-01/Accounts/AC2e9b6bc0f51133df24926f07341d3824/Messages/MM97ecfd43e9f24e99b0c2c6ee016949e3/Media.json"
*   }
* }

RELEASE loRest
RELEASE loJson