Visual FoxPro

SMSAPI - Send SMS with Multiple Lines of Text

See more SMSAPI Examples

Send an SMS message containing multiple lines of text. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL lcMessageContent
LOCAL loSbMessage
LOCAL loSbResponseBody

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

* Implements the following CURL command:

* curl -H "Authorization: Bearer token_api_oauth" \
* "https://api.smsapi.com/sms.do?from=sender_name&to=44123456789&message=message_content&format=json"

* Use the following online tool to generate HTTP code from a CURL command
* Convert a cURL Command to HTTP Source Code

* Adds the "Authorization: Bearer token_api_oauth" header.
loHttp.AuthToken = "token_api_oauth"

lcMessageContent = "Hello" + CHR(13) + CHR(10) + "This is a test" + CHR(13) + CHR(10) + "with multiple lines of text."

* Given that our message contentn has newlines, we obviously cannot put newlines in a URL without them being URL encoded..
* Therefore.. URL encode..
loSbMessage = CreateObject('Chilkat.StringBuilder')
loSbMessage.Append(lcMessageContent)
loSbMessage.Encode("url","utf-8")

loHttp.SetUrlVar("msgContent",loSbMessage.GetAsString())

loSbResponseBody = CreateObject('Chilkat.StringBuilder')
lnSuccess = loHttp.QuickGetSb("https://api.smsapi.com/sms.do?from=sender_name&to=44123456789&message={$msgContent}&format=json",loSbResponseBody)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loSbMessage
    RELEASE loSbResponseBody
    CANCEL
ENDIF

? "Response body:"
? loSbResponseBody.GetAsString()

RELEASE loHttp
RELEASE loSbMessage
RELEASE loSbResponseBody