(Delphi DLL) Twilio List Message Filtered by Period of Time

Get a log of messages filtered by a period of time.

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

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
sbResponseBody: HCkStringBuilder;
json: HCkJsonObject;
respStatusCode: Integer;
account_sid: PWideChar;
api_version: PWideChar;
body: PWideChar;
date_created: PWideChar;
date_sent: PWideChar;
date_updated: PWideChar;
direction: PWideChar;
error_code: PWideChar;
error_message: PWideChar;
from: PWideChar;
messaging_service_sid: PWideChar;
num_media: PWideChar;
num_segments: PWideChar;
price: PWideChar;
price_unit: PWideChar;
sid: PWideChar;
status: PWideChar;
subresource_urisMedia: PWideChar;
subresource_urisFeedback: PWideChar;
v_to: PWideChar;
end: Integer;
first_page_uri: PWideChar;
next_page_uri: PWideChar;
page: Integer;
page_size: Integer;
previous_page_uri: PWideChar;
start: Integer;
uri: PWideChar;
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 := CkHttp_Create();

// 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

CkHttp_putLogin(http,'TWILIO_ACCOUNT_SID');
CkHttp_putPassword(http,'TWILIO_AUTH_TOKEN');

// Specify DateSent greater than and less than two specific days.
sbResponseBody := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,'https://api.twilio.com/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json?DateSent>2019-01-01&DateSent<2019-03-01&PageSize=20',sbResponseBody);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

json := CkJsonObject_Create();
CkJsonObject_LoadSb(json,sbResponseBody);
CkJsonObject_putEmitCompact(json,False);

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

respStatusCode := CkHttp_getLastStatus(http);
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(CkHttp__lastHeader(http));
    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=2019-01-02&PageSize=2&Page=0",
//   "next_page_uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages.json?To=%2B123456789&From=%2B987654321&DateSent%3E=2019-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=2019-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 := CkJsonObject_IntOf(json,'end');
first_page_uri := CkJsonObject__stringOf(json,'first_page_uri');
next_page_uri := CkJsonObject__stringOf(json,'next_page_uri');
page := CkJsonObject_IntOf(json,'page');
page_size := CkJsonObject_IntOf(json,'page_size');
previous_page_uri := CkJsonObject__stringOf(json,'previous_page_uri');
start := CkJsonObject_IntOf(json,'start');
uri := CkJsonObject__stringOf(json,'uri');
i := 0;
count_i := CkJsonObject_SizeOfArray(json,'messages');
while i < count_i do
  begin
    CkJsonObject_putI(json,i);
    account_sid := CkJsonObject__stringOf(json,'messages[i].account_sid');
    api_version := CkJsonObject__stringOf(json,'messages[i].api_version');
    body := CkJsonObject__stringOf(json,'messages[i].body');
    date_created := CkJsonObject__stringOf(json,'messages[i].date_created');
    date_sent := CkJsonObject__stringOf(json,'messages[i].date_sent');
    date_updated := CkJsonObject__stringOf(json,'messages[i].date_updated');
    direction := CkJsonObject__stringOf(json,'messages[i].direction');
    error_code := CkJsonObject__stringOf(json,'messages[i].error_code');
    error_message := CkJsonObject__stringOf(json,'messages[i].error_message');
    from := CkJsonObject__stringOf(json,'messages[i].from');
    messaging_service_sid := CkJsonObject__stringOf(json,'messages[i].messaging_service_sid');
    num_media := CkJsonObject__stringOf(json,'messages[i].num_media');
    num_segments := CkJsonObject__stringOf(json,'messages[i].num_segments');
    price := CkJsonObject__stringOf(json,'messages[i].price');
    price_unit := CkJsonObject__stringOf(json,'messages[i].price_unit');
    sid := CkJsonObject__stringOf(json,'messages[i].sid');
    status := CkJsonObject__stringOf(json,'messages[i].status');
    subresource_urisMedia := CkJsonObject__stringOf(json,'messages[i].subresource_uris.media');
    subresource_urisFeedback := CkJsonObject__stringOf(json,'messages[i].subresource_uris.feedback');
    v_to := CkJsonObject__stringOf(json,'messages[i].to');
    uri := CkJsonObject__stringOf(json,'messages[i].uri');
    i := i + 1;
  end;

CkHttp_Dispose(http);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(json);

end;