Delphi ActiveX

Twilio: Send SMS using Basic Authentication

See more REST Examples

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
rest: TChilkatRest;
bTls: Integer;
port: Integer;
bAutoReconnect: Integer;
responseJson: WideString;
json: TChilkatJsonObject;

begin
success := 0;

// 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 := TChilkatRest.Create(Self);

// Use Basic Authentication.
// Your Twilio Account SID is the username.
// Your Twilio Auth Token is the password.
success := rest.SetAuthBasic('TWILIO_ACCOUNT_SID','TWILIO_AUTH_TOKEN');

// Make the initial connection (without sending a request yet) to Twilio.
bTls := 1;
port := 443;
bAutoReconnect := 1;
success := rest.Connect('api.twilio.com',port,bTls,bAutoReconnect);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

// Provide the information for the SMS text message:
success := rest.AddQueryParam('To','+16518675309');
success := rest.AddQueryParam('From','+15005550006');
success := rest.AddQueryParam('Body','Hey Jenny! Good luck on the bar exam!');
success := rest.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:
responseJson := rest.FullRequestFormUrlEncoded('POST','/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json');
if (rest.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

// When successful, the response status code will equal 201.
if (rest.ResponseStatusCode <> 201) then
  begin
    // Examine the request/response to see what happened.
    Memo1.Lines.Add('response status code = ' + IntToStr(rest.ResponseStatusCode));
    Memo1.Lines.Add('response status text = ' + rest.ResponseStatusText);
    Memo1.Lines.Add('response header: ' + rest.ResponseHeader);
    Memo1.Lines.Add('response body (if any): ' + responseJson);
    Memo1.Lines.Add('---');
    Memo1.Lines.Add('LastRequestStartLine: ' + rest.LastRequestStartLine);
    Memo1.Lines.Add('LastRequestHeader: ' + rest.LastRequestHeader);
    Exit;
  end;

// 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 := TChilkatJsonObject.Create(Self);
json.EmitCompact := 0;
success := json.Load(responseJson);

// First show the entire JSON.
Memo1.Lines.Add(json.Emit());

// Now get some individual pieces of information:
Memo1.Lines.Add('sid: ' + json.StringOf('sid'));
Memo1.Lines.Add('body: ' + json.StringOf('body'));
Memo1.Lines.Add('media: ' + json.StringOf('subresource_uris.media'));

Memo1.Lines.Add('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"
//   }
// }
end;