(Delphi ActiveX) CallRail API - Retrieving a Single Call

Returns a single call object associated with the target account.

For more information, see https://apidocs.callrail.com/#retrieving-a-single-call

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;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
keyword: WideString;
j: Integer;
count_j: Integer;
speaker: WideString;
start: WideString;
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;
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 -H "Authorization: Token token={api_token}" \
//      -X GET \
//      "https://api.callrail.com/v3/a/{account_id}/calls/{call_id}.json?fields=keywords_spotted"

// 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/{call_id}.json?fields=keywords_spotted',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)

// {
//   "answered": false,
//   "business_phone_number": null,
//   "customer_city": "New York City",
//   "customer_country": "US",
//   "customer_name": "Jimmy Pesto, Sr.",
//   "customer_phone_number": "+13036231131",
//   "customer_state": "NY",
//   "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",
//   "keywords_spotted": [
//     {
//       "keyword": "test phrase one",
//       "locations": [
//         {
//           "speaker": "caller",
//           "start": 7.71
//         },
//         {
//           "speaker": "agent",
//           "start": 13.38
//         },
//         {
//           "speaker": "caller",
//           "start": 17.96
//         }
//       ]
//     },
//     {
//       "keyword": "test phrase two",
//       "locations": [
//         {
//           "speaker": "caller",
//           "start": 8.44
//         }
//       ]
//     }
//   ]
// }

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

answered := jResp.BoolOf('answered');
business_phone_number := jResp.StringOf('business_phone_number');
customer_city := jResp.StringOf('customer_city');
customer_country := jResp.StringOf('customer_country');
customer_name := jResp.StringOf('customer_name');
customer_phone_number := jResp.StringOf('customer_phone_number');
customer_state := jResp.StringOf('customer_state');
direction := jResp.StringOf('direction');
duration := jResp.IntOf('duration');
id := jResp.StringOf('id');
recording := jResp.StringOf('recording');
recording_duration := jResp.StringOf('recording_duration');
recording_player := jResp.StringOf('recording_player');
start_time := jResp.StringOf('start_time');
tracking_phone_number := jResp.StringOf('tracking_phone_number');
voicemail := jResp.BoolOf('voicemail');
agent_email := jResp.StringOf('agent_email');
i := 0;
count_i := jResp.SizeOfArray('keywords_spotted');
while i < count_i do
  begin
    jResp.I := i;
    keyword := jResp.StringOf('keywords_spotted[i].keyword');
    j := 0;
    count_j := jResp.SizeOfArray('keywords_spotted[i].locations');
    while j < count_j do
      begin
        jResp.J := j;
        speaker := jResp.StringOf('keywords_spotted[i].locations[j].speaker');
        start := jResp.StringOf('keywords_spotted[i].locations[j].start');
        j := j + 1;
      end;

    i := i + 1;
  end;
end;