(Delphi DLL) CallRail API - Listing All Calls

Returns a paginated list of all calls in the target account.

For more information, see https://apidocs.callrail.com/#listing-all-calls

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;
jResp: HCkJsonObject;
respStatusCode: Integer;
answered: Boolean;
business_phone_number: PWideChar;
customer_city: PWideChar;
customer_country: PWideChar;
customer_name: PWideChar;
customer_phone_number: PWideChar;
customer_state: PWideChar;
direction: PWideChar;
duration: Integer;
id: PWideChar;
recording: PWideChar;
recording_duration: PWideChar;
recording_player: PWideChar;
start_time: PWideChar;
tracking_phone_number: PWideChar;
voicemail: Boolean;
agent_email: PWideChar;
page: Integer;
per_page: Integer;
total_pages: Integer;
total_records: Integer;
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 -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

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

sbResponseBody := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,'https://api.callrail.com/v3/a/{account_id}/calls.json',sbResponseBody);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

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

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

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)

// {
//   "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 := CkJsonObject_IntOf(jResp,'page');
per_page := CkJsonObject_IntOf(jResp,'per_page');
total_pages := CkJsonObject_IntOf(jResp,'total_pages');
total_records := CkJsonObject_IntOf(jResp,'total_records');
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'calls');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    answered := CkJsonObject_BoolOf(jResp,'calls[i].answered');
    business_phone_number := CkJsonObject__stringOf(jResp,'calls[i].business_phone_number');
    customer_city := CkJsonObject__stringOf(jResp,'calls[i].customer_city');
    customer_country := CkJsonObject__stringOf(jResp,'calls[i].customer_country');
    customer_name := CkJsonObject__stringOf(jResp,'calls[i].customer_name');
    customer_phone_number := CkJsonObject__stringOf(jResp,'calls[i].customer_phone_number');
    customer_state := CkJsonObject__stringOf(jResp,'calls[i].customer_state');
    direction := CkJsonObject__stringOf(jResp,'calls[i].direction');
    duration := CkJsonObject_IntOf(jResp,'calls[i].duration');
    id := CkJsonObject__stringOf(jResp,'calls[i].id');
    recording := CkJsonObject__stringOf(jResp,'calls[i].recording');
    recording_duration := CkJsonObject__stringOf(jResp,'calls[i].recording_duration');
    recording_player := CkJsonObject__stringOf(jResp,'calls[i].recording_player');
    start_time := CkJsonObject__stringOf(jResp,'calls[i].start_time');
    tracking_phone_number := CkJsonObject__stringOf(jResp,'calls[i].tracking_phone_number');
    voicemail := CkJsonObject_BoolOf(jResp,'calls[i].voicemail');
    agent_email := CkJsonObject__stringOf(jResp,'calls[i].agent_email');
    i := i + 1;
  end;

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

end;