(Delphi DLL) 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 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;
keyword: PWideChar;
j: Integer;
count_j: Integer;
speaker: PWideChar;
start: PWideChar;
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;
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/{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

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

sbResponseBody := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,'https://api.callrail.com/v3/a/{account_id}/calls/{call_id}.json?fields=keywords_spotted',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)

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

    i := i + 1;
  end;

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

end;