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

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

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkHttpResponse.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkHttpRequest.pb"

Procedure ChilkatExample()

    success.i = 0

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

    req.i = CkHttpRequest::ckCreate()
    If req.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpRequest::setCkPath(req, "/bulksms/bulksms")
    CkHttpRequest::ckAddParam(req,"username","YOUR_USERNAME")
    CkHttpRequest::ckAddParam(req,"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) 
    CkHttpRequest::ckAddParam(req,"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.
    CkHttpRequest::ckAddParam(req,"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 
    CkHttpRequest::ckAddParam(req,"source","+14155558999")

    ; Add the message itself.  (No URL encoding needed.)
    CkHttpRequest::ckAddParam(req,"message","Test Message")

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkHttpRequest::setCkHttpVerb(req, "POST")
    CkHttpRequest::setCkContentType(req, "application/x-www-form-urlencoded")

    resp.i = CkHttpResponse::ckCreate()
    If resp.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkHttp::ckHttpReq(http,"http://api.rmlconnect.net/bulksms/bulksms",req,resp)
    If success = 0
        Debug CkHttp::ckLastErrorText(http)
        CkHttpRequest::ckDispose(req)
        CkHttp::ckDispose(http)
        CkHttpResponse::ckDispose(resp)
        ProcedureReturn
    EndIf

    ; Examine the response status code and the response body:
    Debug "response status code = " + Str(CkHttpResponse::ckStatusCode(resp))
    Debug "response body:"
    Debug CkHttpResponse::ckBodyStr(resp)


    CkHttpRequest::ckDispose(req)
    CkHttp::ckDispose(http)
    CkHttpResponse::ckDispose(resp)


    ProcedureReturn
EndProcedure