Delphi ActiveX

CallRail API - Listing All Calls

See more CallRail Examples

Returns a paginated list of all calls in the target account. 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;
http: TChilkatHttp;
sbResponseBody: TChilkatStringBuilder;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
answered: Integer;
business_phone_number: WideString;
customer_city: WideString;
customer_country: WideString;
customer_name: WideString;
customer_phone_number: WideString;
customer_state: WideString;
direction: WideString;
duration: Integer;
id: WideString;
recording: WideString;
recording_duration: WideString;
recording_player: WideString;
start_time: WideString;
tracking_phone_number: WideString;
voicemail: Integer;
agent_email: WideString;
page: Integer;
per_page: Integer;
total_pages: Integer;
total_records: Integer;
i: Integer;
count_i: Integer;

begin
success := 0;

// 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 -H "Authorization: Token token={api_token}" \
//      -X GET \
//      "https://api.callrail.com/v3/a/{account_id}/calls.json"

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

http.SetRequestHeader('Authorization','Token token={api_token}');

sbResponseBody := TChilkatStringBuilder.Create(Self);
success := http.QuickGetSb('https://api.callrail.com/v3/a/{account_id}/calls.json',sbResponseBody.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

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

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(jResp.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)

// {
//   "page": 1,
//   "per_page": 100,
//   "total_pages": 1,
//   "total_records": 9,
//   "calls": [
//     {
//       "answered": false,
//       "business_phone_number": null,
//       "customer_city": "Denver",
//       "customer_country": "US",
//       "customer_name": "RUEGSEGGER SIMO",
//       "customer_phone_number": "+13036231131",
//       "customer_state": "CO",
//       "direction": "inbound",
//       "duration": 4,
//       "id": "CAL8154748ae6bd4e278a7cddd38a662f4f",
//       "recording": "https://api.callrail.com/v3/a/227799611/calls/111222333/recording.json",
//       "recording_duration": "27",
//       "recording_player": "https://app.callrail.com/calls/111222333/recording?access_key=3b91eb7f7cc08a4d01ed",
//       "start_time": "2017-01-24T11:27:48.119-05:00",
//       "tracking_phone_number": "+13038163491",
//       "voicemail": false,
//       "agent_email": "gil@televised.com"
//     },
//     {
//       "answered": false,
//       "business_phone_number": null,
//       "customer_city": "Blue Ridge",
//       "customer_country": "US",
//       "customer_name": "BLUE RIDGE, GA",
//       "customer_phone_number": "+17064558047",
//       "customer_state": "GA",
//       "direction": "inbound",
//       "duration": 16,
//       "id": "CAL8154748ae6bd4e278a7cddd38a662f4f",
//       "recording": null,
//       "recording_duration": null,
//       "recording_player": null,
//       "start_time": "2017-01-24T19:50:03.456-05:00",
//       "tracking_phone_number": "+17708243899",
//       "voicemail": false,
//       "agent_email": "elbert@bpp.com"
//     }
//   ]
// }

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

page := jResp.IntOf('page');
per_page := jResp.IntOf('per_page');
total_pages := jResp.IntOf('total_pages');
total_records := jResp.IntOf('total_records');
i := 0;
count_i := jResp.SizeOfArray('calls');
while i < count_i do
  begin
    jResp.I := i;
    answered := jResp.BoolOf('calls[i].answered');
    business_phone_number := jResp.StringOf('calls[i].business_phone_number');
    customer_city := jResp.StringOf('calls[i].customer_city');
    customer_country := jResp.StringOf('calls[i].customer_country');
    customer_name := jResp.StringOf('calls[i].customer_name');
    customer_phone_number := jResp.StringOf('calls[i].customer_phone_number');
    customer_state := jResp.StringOf('calls[i].customer_state');
    direction := jResp.StringOf('calls[i].direction');
    duration := jResp.IntOf('calls[i].duration');
    id := jResp.StringOf('calls[i].id');
    recording := jResp.StringOf('calls[i].recording');
    recording_duration := jResp.StringOf('calls[i].recording_duration');
    recording_player := jResp.StringOf('calls[i].recording_player');
    start_time := jResp.StringOf('calls[i].start_time');
    tracking_phone_number := jResp.StringOf('calls[i].tracking_phone_number');
    voicemail := jResp.BoolOf('calls[i].voicemail');
    agent_email := jResp.StringOf('calls[i].agent_email');
    i := i + 1;
  end;
end;