Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
Twilio List Log Messages
See more Twilio Examples
Fetch the log containing information about SMS messages previously sent (or failed to be sent).Chilkat Pascal (Lazarus/Delphi) Downloads
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.Http,
Chilkat.StringBuilder,
Chilkat.JsonObject;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
http: THttp;
sbResponseBody: TStringBuilder;
json: TJsonObject;
respStatusCode: Integer;
account_sid: string;
api_version: string;
body: string;
date_created: string;
date_sent: string;
date_updated: string;
direction: string;
error_code: string;
error_message: string;
from: string;
messaging_service_sid: string;
num_media: string;
num_segments: string;
price: string;
price_unit: string;
sid: string;
status: string;
subresource_urisMedia: string;
subresource_urisFeedback: string;
v_to: string;
end: Integer;
first_page_uri: string;
next_page_uri: string;
page: Integer;
page_size: Integer;
previous_page_uri: string;
start: Integer;
uri: string;
i: Integer;
count_i: Integer;
begin
success := False;
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http := THttp.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
http.Login := 'TWILIO_ACCOUNT_SID';
http.Password := 'TWILIO_AUTH_TOKEN';
sbResponseBody := TStringBuilder.Create;
success := http.QuickGetSb('https://api.twilio.com/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json?PageSize=20',sbResponseBody);
if (success = False) then
begin
WriteLn(http.LastErrorText);
Exit;
end;
json := TJsonObject.Create;
json.LoadSb(sbResponseBody);
json.EmitCompact := False;
WriteLn('Response Body:');
WriteLn(json.Emit());
respStatusCode := http.LastStatus;
WriteLn('Response Status Code = ' + respStatusCode);
if (respStatusCode >= 400) then
begin
WriteLn('Response Header:');
WriteLn(http.LastHeader);
WriteLn('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;
http.Free;
sbResponseBody.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.