Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
Constant Contact: Create a Contact
See more Constant Contact Examples
Creates a single contact.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.HttpResponse,
Chilkat.JsonObject;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
http: THttp;
json: TJsonObject;
resp: THttpResponse;
sbResponseBody: TStringBuilder;
jResp: TJsonObject;
respStatusCode: Integer;
contact_id: string;
email_addressAddress: string;
email_addressPermission_to_send: string;
email_addressCreated_at: string;
email_addressUpdated_at: string;
email_addressOpt_in_source: string;
email_addressOpt_in_date: string;
email_addressConfirm_status: string;
first_name: string;
last_name: string;
job_title: string;
company_name: string;
birthday_month: Integer;
birthday_day: Integer;
anniversary: string;
create_source: string;
created_at: string;
updated_at: string;
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 POST \
// https://api.cc.email/v3/contacts \
// -H 'accept: application/json' \
// -H 'authorization: Bearer {access_token}' \
// -H 'cache-control: no-cache' \
// -H 'content-type: application/json' \
// -d '{
// "email_address": {
// "address": "danipper@example.com",
// "permission_to_send": "implicit"
// },
// "first_name": "David",
// "last_name": "Nipper",
// "job_title": "Musician",
// "company_name": "Acme Corp.",
// "create_source": "Account",
// "birthday_month": 11,
// "birthday_day": 24,
// "anniversary": "2006-11-15",
// "steet_addresses":{
// "kind":"home",
// "street": "123 Kashmir Valley Road",
// "city": "Chicago",
// "state": "Illinois",
// "country": "United States",
// }
// }'
// Use the following online tool to generate HTTP code from a CURL command
// Convert a cURL Command to HTTP Source Code
// Use this online tool to generate code from sample JSON:
// Generate Code to Create JSON
// The following JSON is sent in the request body.
// {
// "email_address": {
// "address": "danipper@example.com",
// "permission_to_send": "implicit"
// },
// "first_name": "David",
// "last_name": "Nipper",
// "job_title": "Musician",
// "company_name": "Acme Corp.",
// "create_source": "Account",
// "birthday_month": 11,
// "birthday_day": 24,
// "anniversary": "2006-11-15",
// "steet_addresses": {
// "kind": "home",
// "street": "123 Kashmir Valley Road",
// "city": "Chicago",
// "state": "Illinois",
// "country": "United States"
// }
// }
json := TJsonObject.Create;
json.UpdateString('email_address.address','danipper@example.com');
json.UpdateString('email_address.permission_to_send','implicit');
json.UpdateString('first_name','David');
json.UpdateString('last_name','Nipper');
json.UpdateString('job_title','Musician');
json.UpdateString('company_name','Acme Corp.');
json.UpdateString('create_source','Account');
json.UpdateInt('birthday_month',11);
json.UpdateInt('birthday_day',24);
json.UpdateString('anniversary','2006-11-15');
json.UpdateString('steet_addresses.kind','home');
json.UpdateString('steet_addresses.street','123 Kashmir Valley Road');
json.UpdateString('steet_addresses.city','Chicago');
json.UpdateString('steet_addresses.state','Illinois');
json.UpdateString('steet_addresses.country','United States');
http.SetRequestHeader('content-type','application/json');
// Adds the "Authorization: Bearer ACCESS_TOKEN" header.
http.AuthToken := 'ACCESS_TOKEN';
http.SetRequestHeader('cache-control','no-cache');
http.SetRequestHeader('accept','application/json');
resp := THttpResponse.Create;
success := http.HttpJson('POST','https://api.cc.email/v3/contacts',json,'application/json',resp);
if (success = False) then
begin
WriteLn(http.LastErrorText);
Exit;
end;
sbResponseBody := TStringBuilder.Create;
resp.GetBodySb(sbResponseBody);
jResp := TJsonObject.Create;
jResp.LoadSb(sbResponseBody);
jResp.EmitCompact := False;
WriteLn('Response Body:');
WriteLn(jResp.Emit());
respStatusCode := resp.StatusCode;
WriteLn('Response Status Code = ' + respStatusCode);
if (respStatusCode >= 400) then
begin
WriteLn('Response Header:');
WriteLn(resp.Header);
WriteLn('Failed.');
Exit;
end;
// Sample JSON response:
// (Sample code for parsing the JSON response is shown below)
// {
// "contact_id": "{contact_id}",
// "email_address": {
// "address": "danipper@example.com",
// "permission_to_send": "implicit",
// "created_at": "2018-02-23T13:38:28-05:00",
// "updated_at": "2018-02-23T13:38:28-05:00",
// "opt_in_source": "Account",
// "opt_in_date": "2018-02-23T13:38:28-05:00",
// "confirm_status": "off"
// },
// "first_name": "David",
// "last_name": "Nipper",
// "job_title": "Musician",
// "company_name": "Acme Corp.",
// "birthday_month": 11,
// "birthday_day": 24,
// "anniversary": "2006-11-15",
// "create_source": "Account",
// "created_at": "2018-02-23T13:38:28-05:00",
// "updated_at": "2018-02-23T13:38:28-05:00"
// }
// Sample code for parsing the JSON response...
// Use the following online tool to generate parsing code from sample JSON:
// Generate Parsing Code from JSON
contact_id := jResp.StringOf('contact_id');
email_addressAddress := jResp.StringOf('email_address.address');
email_addressPermission_to_send := jResp.StringOf('email_address.permission_to_send');
email_addressCreated_at := jResp.StringOf('email_address.created_at');
email_addressUpdated_at := jResp.StringOf('email_address.updated_at');
email_addressOpt_in_source := jResp.StringOf('email_address.opt_in_source');
email_addressOpt_in_date := jResp.StringOf('email_address.opt_in_date');
email_addressConfirm_status := jResp.StringOf('email_address.confirm_status');
first_name := jResp.StringOf('first_name');
last_name := jResp.StringOf('last_name');
job_title := jResp.StringOf('job_title');
company_name := jResp.StringOf('company_name');
birthday_month := jResp.IntOf('birthday_month');
birthday_day := jResp.IntOf('birthday_day');
anniversary := jResp.StringOf('anniversary');
create_source := jResp.StringOf('create_source');
created_at := jResp.StringOf('created_at');
updated_at := jResp.StringOf('updated_at');
http.Free;
json.Free;
resp.Free;
sbResponseBody.Free;
jResp.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.