(Visual FoxPro) Send SMS Messages via Route Mobile's SMSPlus REST API

Demonstrates how to use the Route Mobile SMSPLUS Bulk HTTP API.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loReq
LOCAL loHttp
LOCAL loResp

* This requires 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.HttpRequest')
loReq = CreateObject('Chilkat.HttpRequest')

loReq.Path = "/bulksms/bulksms"
loReq.AddParam("username","YOUR_USERNAME")
loReq.AddParam("password","YOUR_PASSWORD")

* Indicate the type of message. 
* Values for type include: 
* 0: Plain text (GSM 3.38 Character encoding) 
* 1: Flash (GSM 3.38 Character encoding)  
* 2: Unicode 
* 3: Reserved  
* 4: WAP Push 
* 5: Plain text (ISO-8859-1 Character encoding)  
* 6: Unicode Flash 
* 7: Flash (ISO-8859-1 Character encoding) 
loReq.AddParam("type","0")

* destination is the Mobile number to which the message is to be sent 
* (may or may not include a plus [+] sign). 
* Multiple mobile numbers can be separated by commas (,)
* No need to URL encode strings passed to AddParam. 
* Chilkat will automatically URL encode when the request is sent.
loReq.AddParam("destination","+14155551234")

* Specify the source address that should appear in the message.
* Max Length of 18 if numeric.
* Max Length of 11 if alphanumeric. To prefix the plus sign (+) to the sender�s address 
* when the message is displayed on their cell phone, please prefix the plus sign 
* to your sender�s address while submitting the message 
loReq.AddParam("source","+14155558999")

* Add the message itself.  (No URL encoding needed.)
loReq.AddParam("message","Test Message")

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Http')
loHttp = CreateObject('Chilkat.Http')
loResp = loHttp.PostUrlEncoded("http://api.rmlconnect.net/bulksms/bulksms",loReq)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loReq
    RELEASE loHttp
    CANCEL
ENDIF

* Examine the response status code and the response body:
? "response status code = " + STR(loResp.StatusCode)
? "response body:"
? loResp.BodyStr

RELEASE loResp

RELEASE loReq
RELEASE loHttp