Delphi ActiveX

Constant Contact: Create a Contact

See more Constant Contact Examples

Creates a single contact. 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;
json: TChilkatJsonObject;
resp: TChilkatHttpResponse;
sbResponseBody: TChilkatStringBuilder;
jResp: TChilkatJsonObject;
respStatusCode: Integer;
contact_id: WideString;
email_addressAddress: WideString;
email_addressPermission_to_send: WideString;
email_addressCreated_at: WideString;
email_addressUpdated_at: WideString;
email_addressOpt_in_source: WideString;
email_addressOpt_in_date: WideString;
email_addressConfirm_status: WideString;
first_name: WideString;
last_name: WideString;
job_title: WideString;
company_name: WideString;
birthday_month: Integer;
birthday_day: Integer;
anniversary: WideString;
create_source: WideString;
created_at: WideString;
updated_at: WideString;

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 -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 := TChilkatJsonObject.Create(Self);
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 := TChilkatHttpResponse.Create(Self);
success := http.HttpJson('POST','https://api.cc.email/v3/contacts',json.ControlInterface,'application/json',resp.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

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

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

respStatusCode := resp.StatusCode;
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(resp.Header);
    Memo1.Lines.Add('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');
end;