Xbase++

Send SMS Messages via Route Mobile's SMSPlus REST API

See more HTTP Misc Examples

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

LOCAL nSuccess
LOCAL oReq
LOCAL oHttp
LOCAL oResp

nSuccess := 0

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

oReq := CreateObject("Chilkat.HttpRequest")

oReq:Path := "/bulksms/bulksms"
oReq:AddParam("username", "YOUR_USERNAME")
oReq: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) 
oReq: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.
oReq: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 
oReq:AddParam("source", "+14155558999")

//  Add the message itself.  (No URL encoding needed.)
oReq:AddParam("message", "Test Message")

oHttp := CreateObject("Chilkat.Http")
oReq:HttpVerb := "POST"
oReq:ContentType := "application/x-www-form-urlencoded"

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpReq("http://api.rmlconnect.net/bulksms/bulksms", oReq, oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oReq:destroy()
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  Examine the response status code and the response body:
? "response status code = " + Str(oResp:StatusCode)
? "response body:"
? oResp:BodyStr

oReq:destroy()
oHttp:destroy()
oResp:destroy()