(PureBasic) Twilio: Send SMS using Basic Authentication

Demonstrates how to use Twilio to send an SMS message using Basic authentication.

For more information, see https://www.twilio.com/docs/sms/send-messages

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkRest.pb"
IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    ; Demonstrates how to use Basic Authentication in a REST API call for Twilio.
    ; Sends an SMS text message..

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

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

    ; Use Basic Authentication.
    ; Your Twilio Account SID is the username.
    ; Your Twilio Auth Token is the password.
    success.i = CkRest::ckSetAuthBasic(rest,"TWILIO_ACCOUNT_SID","TWILIO_AUTH_TOKEN")

    ; Make the initial connection (without sending a request yet) to Twilio.
    bTls.i = 1
    port.i = 443
    bAutoReconnect.i = 1
    success = CkRest::ckConnect(rest,"api.twilio.com",port,bTls,bAutoReconnect)
    If success <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        ProcedureReturn
    EndIf

    ; Provide the information for the SMS text message:
    success = CkRest::ckAddQueryParam(rest,"To","+16518675309")
    success = CkRest::ckAddQueryParam(rest,"From","+15005550006")
    success = CkRest::ckAddQueryParam(rest,"Body","Hey Jenny! Good luck on the bar exam!")
    success = CkRest::ckAddQueryParam(rest,"MediaUrl","http://farm2.static.flickr.com/1075/1404618563_3ed9a44a3a.jpg")

    ; Send the SMS text message.
    ; Your Twilio Account SID is part of the URI path:
    responseJson.s = CkRest::ckFullRequestFormUrlEncoded(rest,"POST","/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json")
    If CkRest::ckLastMethodSuccess(rest) <> 1
        Debug CkRest::ckLastErrorText(rest)
        CkRest::ckDispose(rest)
        ProcedureReturn
    EndIf

    ; When successful, the response status code will equal 201.
    If CkRest::ckResponseStatusCode(rest) <> 201
        ; Examine the request/response to see what happened.
        Debug "response status code = " + Str(CkRest::ckResponseStatusCode(rest))
        Debug "response status text = " + CkRest::ckResponseStatusText(rest)
        Debug "response header: " + CkRest::ckResponseHeader(rest)
        Debug "response body (if any): " + responseJson
        Debug "---"
        Debug "LastRequestStartLine: " + CkRest::ckLastRequestStartLine(rest)
        Debug "LastRequestHeader: " + CkRest::ckLastRequestHeader(rest)
        CkRest::ckDispose(rest)
        ProcedureReturn
    EndIf

    ; The response is JSON.  We'll show how to get a few bits of information from it.
    ; A full sample JSON response is shown below..

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

    CkJsonObject::setCkEmitCompact(json, 0)
    success = CkJsonObject::ckLoad(json,responseJson)

    ; First show the entire JSON.
    Debug CkJsonObject::ckEmit(json)

    ; Now get some individual pieces of information:
    Debug "sid: " + CkJsonObject::ckStringOf(json,"sid")
    Debug "body: " + CkJsonObject::ckStringOf(json,"body")
    Debug "media: " + CkJsonObject::ckStringOf(json,"subresource_uris.media")

    Debug "Success."

    ; Sample JSON response:

    ; {
    ;   "sid": "MM97ecfd43e9f24e99b0c2c6ee016949e3",
    ;   "date_created": null,
    ;   "date_updated": null,
    ;   "date_sent": null,
    ;   "account_sid": "112e1111e0151133d11112101111d1111",
    ;   "to": "+16518675309",
    ;   "from": "+15005550006",
    ;   "messaging_service_sid": null,
    ;   "body": "Sent from your Twilio trial account - Hey Jenny! Good luck on the bar exam!",
    ;   "status": "queued",
    ;   "num_segments": "1",
    ;   "num_media": "0",
    ;   "direction": "outbound-api",
    ;   "api_version": "2010-04-01",
    ;   "price": null,
    ;   "price_unit": "USD",
    ;   "error_code": null,
    ;   "error_message": null,
    ;   "uri": "/2010-04-01/Accounts/AC2e9b6bc0f51133df24926f07341d3824/Messages/MM97ecfd43e9f24e99b0c2c6ee016949e3.json",
    ;   "subresource_uris": {
    ;     "media": "/2010-04-01/Accounts/AC2e9b6bc0f51133df24926f07341d3824/Messages/MM97ecfd43e9f24e99b0c2c6ee016949e3/Media.json"
    ;   }
    ; }


    CkRest::ckDispose(rest)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure