Xbase++

SMSAPI - Send Single SMS

See more SMSAPI Examples

Send a single SMS message. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oSbResponseBody

nSuccess := 0

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

oHttp := 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.
oHttp:AuthToken := "token_api_oauth"

oSbResponseBody := CreateObject("Chilkat.StringBuilder")
nSuccess := oHttp:QuickGetSb("https://api.smsapi.com/sms.do?from=sender_name&to=44123456789&message=message_content&format=json", oSbResponseBody)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oSbResponseBody:destroy()
    RETURN
ENDIF

? "Response body:"
? oSbResponseBody:GetAsString()

oHttp:destroy()
oSbResponseBody:destroy()