Chilkat Examples

ChilkatHOMEAndroid™Classic ASPCC++C#Mono C#.NET Core C#C# UWP/WinRTDataFlexDelphi ActiveXDelphi DLLVisual FoxProJavaLianjaMFCObjective-CPerlPHP ActiveXPHP ExtensionPowerBuilderPowerShellPureBasicPythonRubySQL ServerSwiftTclUnicode CUnicode C++Visual Basic 6.0VB.NETVB.NET UWP/WinRTVBScriptXojo PluginNode.jsExcel

Visual FoxPro Examples

Async
Certificates
ECC
Email Object
Encryption
FTP
HTML-to-XML/Text
Gzip
HTTP
IMAP
JSON
Jwt
MHT / HTML Email
PEM
PFX/P12
Java KeyStore (JKS)
OAuth2
POP3
RSA Encryption
MIME
REST
SCP
SMTP
Socket/SSL/TLS
SSH Key
SSH
SSH Tunnel
SFTP
Stream
Tar Archive
XML
XMP
Zip

More Examples...
OpenSSL
Google APIs
Google Cloud Storage
Azure Cloud Storage
Amazon S3 (new)
Google Drive
Dropbox
Firebase
ASN.1
PRNG
Amazon S3
Bounced Email
CSV
Diffie-Hellman
DKIM / DomainKey
DSA
NTLM
QuickBooks
Spider
Digital Signatures

 

 

 

 

 

 

 

(Visual FoxPro) Twilio: Send SMS using Basic Authentication

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

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

LOCAL loRest
LOCAL lnSuccess
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL lcResponseJson
LOCAL loJson

*  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.

loRest = CreateObject('Chilkat_9_5_0.Rest')

*  Use Basic Authentication.
*  Your Twilio Account SID is the username.
*  Your Twilio Auth Token is the password.
lnSuccess = loRest.SetAuthBasic("TWILIO_ACCOUNT_SID","TWILIO_AUTH_TOKEN")

*  Make the initial connection (without sending a request yet) to Twilio.
lnBTls = 1
lnPort = 443
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("api.twilio.com",lnPort,lnBTls,lnBAutoReconnect)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

*  Provide the information for the SMS text message:
lnSuccess = loRest.AddQueryParam("To","+16518675309")
lnSuccess = loRest.AddQueryParam("From","+15005550006")
lnSuccess = loRest.AddQueryParam("Body","Hey Jenny! Good luck on the bar exam!")
lnSuccess = loRest.AddQueryParam("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:
lcResponseJson = loRest.FullRequestFormUrlEncoded("POST","/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json")
IF (loRest.LastMethodSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

*  When successful, the response status code will equal 201.
IF (loRest.ResponseStatusCode <> 201) THEN
    *  Examine the request/response to see what happened.
    ? "response status code = " + STR(loRest.ResponseStatusCode)
    ? "response status text = " + loRest.ResponseStatusText
    ? "response header: " + loRest.ResponseHeader
    ? "response body (if any): " + lcResponseJson
    ? "---"
    ? "LastRequestStartLine: " + loRest.LastRequestStartLine
    ? "LastRequestHeader: " + loRest.LastRequestHeader
    RELEASE loRest
    CANCEL
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..

loJson = CreateObject('Chilkat_9_5_0.JsonObject')
loJson.EmitCompact = 0
lnSuccess = loJson.Load(lcResponseJson)

*  First show the entire JSON.
? loJson.Emit()

*  Now get some individual pieces of information:
? "sid: " + loJson.StringOf("sid")
? "body: " + loJson.StringOf("body")
? "media: " + loJson.StringOf("subresource_uris.media")

? "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"
  }
}
*/


RELEASE loRest
RELEASE loJson

 

© 2000-2016 Chilkat Software, Inc. All Rights Reserved.