Pascal (Lazarus/Delphi)

Twilio: Send SMS using Basic Authentication

See more REST Examples

Demonstrates how to use Twilio to send an SMS message using Basic authentication. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Rest,
  Chilkat.JsonObject;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  rest: TRest;
  bTls: Boolean;
  port: Integer;
  bAutoReconnect: Boolean;
  responseJson: string;
  json: TJsonObject;

begin
  success := False;

  //  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 := TRest.Create;

  //  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 := True;
  port := 443;
  bAutoReconnect := True;
  success := rest.Connect('api.twilio.com',port,bTls,bAutoReconnect);
  if (success <> True) then
    begin
      WriteLn(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 <> True) then
    begin
      WriteLn(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.
      WriteLn('response status code = ' + rest.ResponseStatusCode);
      WriteLn('response status text = ' + rest.ResponseStatusText);
      WriteLn('response header: ' + rest.ResponseHeader);
      WriteLn('response body (if any): ' + responseJson);
      WriteLn('---');
      WriteLn('LastRequestStartLine: ' + rest.LastRequestStartLine);
      WriteLn('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 := TJsonObject.Create;
  json.EmitCompact := False;
  success := json.Load(responseJson);

  //  First show the entire JSON.
  WriteLn(json.Emit());

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

  WriteLn('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"
  //    }
  //  }


  rest.Free;
  json.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.