(Delphi ActiveX) Twilio List Log Messages

Fetch the log containing information about SMS messages previously sent (or failed to be sent).

For more information, see https://www.twilio.com/docs/sms/api/message-resource?code-sample=code-read-list-all-messages&code-language=curl&code-sdk-version=json

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
http: TChilkatHttp;
success: Integer;
sbResponseBody: TChilkatStringBuilder;
json: TChilkatJsonObject;
respStatusCode: Integer;
account_sid: WideString;
api_version: WideString;
body: WideString;
date_created: WideString;
date_sent: WideString;
date_updated: WideString;
direction: WideString;
error_code: WideString;
error_message: WideString;
from: WideString;
messaging_service_sid: WideString;
num_media: WideString;
num_segments: WideString;
price: WideString;
price_unit: WideString;
sid: WideString;
status: WideString;
subresource_urisMedia: WideString;
subresource_urisFeedback: WideString;
v_to: WideString;
end: Integer;
first_page_uri: WideString;
next_page_uri: WideString;
page: Integer;
page_size: Integer;
previous_page_uri: WideString;
start: Integer;
uri: WideString;
i: Integer;
count_i: Integer;

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

http := TChilkatHttp.Create(Self);

// Implements the following CURL command:

// curl -X GET 'https://api.twilio.com/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json?PageSize=20' \
// -u TWILIO_ACCOUNT_SID:TWILIO_AUTH_TOKEN

// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code

http.Login := 'TWILIO_ACCOUNT_SID';
http.Password := 'TWILIO_AUTH_TOKEN';

sbResponseBody := TChilkatStringBuilder.Create(Self);
success := http.QuickGetSb('https://api.twilio.com/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json?PageSize=20',sbResponseBody.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

json := TChilkatJsonObject.Create(Self);
json.LoadSb(sbResponseBody.ControlInterface);
json.EmitCompact := 0;

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(json.Emit());

respStatusCode := http.LastStatus;
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(http.LastHeader);
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)

// {
//   "end": 1,
//   "first_page_uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages.json?To=%2B123456789&From=%2B987654321&DateSent%3E=2008-01-02&PageSize=2&Page=0",
//   "next_page_uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages.json?To=%2B123456789&From=%2B987654321&DateSent%3E=2008-01-02&PageSize=2&Page=1&PageToken=PAMMc26223853f8c46b4ab7dfaa6abba0a26",
//   "page": 0,
//   "page_size": 2,
//   "previous_page_uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages.json?To=%2B123456789&From=%2B987654321&DateSent%3E=2008-01-02&PageSize=2&Page=0",
//   "messages": [
//     {
//       "account_sid": "ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
//       "api_version": "2010-04-01",
//       "body": "testing",
//       "date_created": "Fri, 24 May 2019 17:44:46 +0000",
//       "date_sent": "Fri, 24 May 2019 17:44:50 +0000",
//       "date_updated": "Fri, 24 May 2019 17:44:50 +0000",
//       "direction": "outbound-api",
//       "error_code": null,
//       "error_message": null,
//       "from": "+12019235161",
//       "messaging_service_sid": null,
//       "num_media": "0",
//       "num_segments": "1",
//       "price": "-0.00750",
//       "price_unit": "USD",
//       "sid": "SMded05904ccb347238880ca9264e8fe1c",
//       "status": "sent",
//       "subresource_uris": {
//         "media": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/SMded05904ccb347238880ca9264e8fe1c/Media.json",
//         "feedback": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/SMded05904ccb347238880ca9264e8fe1c/Feedback.json"
//       },
//       "to": "+18182008801",
//       "uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/SMded05904ccb347238880ca9264e8fe1c.json"
//     },
//     {
//       "account_sid": "ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",
//       "api_version": "2010-04-01",
//       "body": "look mom I have media!",
//       "date_created": "Fri, 24 May 2019 17:44:46 +0000",
//       "date_sent": "Fri, 24 May 2019 17:44:49 +0000",
//       "date_updated": "Fri, 24 May 2019 17:44:49 +0000",
//       "direction": "inbound",
//       "error_code": 30004,
//       "error_message": "Message blocked",
//       "from": "+12019235161",
//       "messaging_service_sid": null,
//       "num_media": "3",
//       "num_segments": "1",
//       "price": "-0.00750",
//       "price_unit": "USD",
//       "sid": "MMc26223853f8c46b4ab7dfaa6abba0a26",
//       "status": "received",
//       "subresource_uris": {
//         "media": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/MMc26223853f8c46b4ab7dfaa6abba0a26/Media.json",
//         "feedback": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/MMc26223853f8c46b4ab7dfaa6abba0a26/Feedback.json"
//       },
//       "to": "+18182008801",
//       "uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/MMc26223853f8c46b4ab7dfaa6abba0a26.json"
//     }
//   ],
//   "start": 0,
//   "uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages.json?To=%2B123456789&From=%2B987654321&DateSent%3E=2008-01-02&PageSize=2&Page=0"
// }

// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON

end := json.IntOf('end');
first_page_uri := json.StringOf('first_page_uri');
next_page_uri := json.StringOf('next_page_uri');
page := json.IntOf('page');
page_size := json.IntOf('page_size');
previous_page_uri := json.StringOf('previous_page_uri');
start := json.IntOf('start');
uri := json.StringOf('uri');
i := 0;
count_i := json.SizeOfArray('messages');
while i < count_i do
  begin
    json.I := i;
    account_sid := json.StringOf('messages[i].account_sid');
    api_version := json.StringOf('messages[i].api_version');
    body := json.StringOf('messages[i].body');
    date_created := json.StringOf('messages[i].date_created');
    date_sent := json.StringOf('messages[i].date_sent');
    date_updated := json.StringOf('messages[i].date_updated');
    direction := json.StringOf('messages[i].direction');
    error_code := json.StringOf('messages[i].error_code');
    error_message := json.StringOf('messages[i].error_message');
    from := json.StringOf('messages[i].from');
    messaging_service_sid := json.StringOf('messages[i].messaging_service_sid');
    num_media := json.StringOf('messages[i].num_media');
    num_segments := json.StringOf('messages[i].num_segments');
    price := json.StringOf('messages[i].price');
    price_unit := json.StringOf('messages[i].price_unit');
    sid := json.StringOf('messages[i].sid');
    status := json.StringOf('messages[i].status');
    subresource_urisMedia := json.StringOf('messages[i].subresource_uris.media');
    subresource_urisFeedback := json.StringOf('messages[i].subresource_uris.feedback');
    v_to := json.StringOf('messages[i].to');
    uri := json.StringOf('messages[i].uri');
    i := i + 1;
  end;
end;