(Delphi DLL) Constant Contact: Create a Contact

Creates a single contact.

For more information, see https://v3.developer.constantcontact.com/api_guide/contacts_create.html#cURL2

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, HttpResponse, JsonObject;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: HCkHttp;
success: Boolean;
json: HCkJsonObject;
resp: HCkHttpResponse;
sbResponseBody: HCkStringBuilder;
jResp: HCkJsonObject;
respStatusCode: Integer;
contact_id: PWideChar;
email_addressAddress: PWideChar;
email_addressPermission_to_send: PWideChar;
email_addressCreated_at: PWideChar;
email_addressUpdated_at: PWideChar;
email_addressOpt_in_source: PWideChar;
email_addressOpt_in_date: PWideChar;
email_addressConfirm_status: PWideChar;
first_name: PWideChar;
last_name: PWideChar;
job_title: PWideChar;
company_name: PWideChar;
birthday_month: Integer;
birthday_day: Integer;
anniversary: PWideChar;
create_source: PWideChar;
created_at: PWideChar;
updated_at: PWideChar;

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 -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 := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'email_address.address','danipper@example.com');
CkJsonObject_UpdateString(json,'email_address.permission_to_send','implicit');
CkJsonObject_UpdateString(json,'first_name','David');
CkJsonObject_UpdateString(json,'last_name','Nipper');
CkJsonObject_UpdateString(json,'job_title','Musician');
CkJsonObject_UpdateString(json,'company_name','Acme Corp.');
CkJsonObject_UpdateString(json,'create_source','Account');
CkJsonObject_UpdateInt(json,'birthday_month',11);
CkJsonObject_UpdateInt(json,'birthday_day',24);
CkJsonObject_UpdateString(json,'anniversary','2006-11-15');
CkJsonObject_UpdateString(json,'steet_addresses.kind','home');
CkJsonObject_UpdateString(json,'steet_addresses.street','123 Kashmir Valley Road');
CkJsonObject_UpdateString(json,'steet_addresses.city','Chicago');
CkJsonObject_UpdateString(json,'steet_addresses.state','Illinois');
CkJsonObject_UpdateString(json,'steet_addresses.country','United States');

CkHttp_SetRequestHeader(http,'content-type','application/json');
// Adds the "Authorization: Bearer ACCESS_TOKEN" header.
CkHttp_putAuthToken(http,'ACCESS_TOKEN');
CkHttp_SetRequestHeader(http,'cache-control','no-cache');
CkHttp_SetRequestHeader(http,'accept','application/json');

resp := CkHttp_PostJson3(http,'https://api.cc.email/v3/contacts','application/json',json);
if (CkHttp_getLastMethodSuccess(http) = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

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

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

respStatusCode := CkHttpResponse_getStatusCode(resp);
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(CkHttpResponse__header(resp));
    Memo1.Lines.Add('Failed.');
    CkHttpResponse_Dispose(resp);
    Exit;
  end;
CkHttpResponse_Dispose(resp);

// 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 := CkJsonObject__stringOf(jResp,'contact_id');
email_addressAddress := CkJsonObject__stringOf(jResp,'email_address.address');
email_addressPermission_to_send := CkJsonObject__stringOf(jResp,'email_address.permission_to_send');
email_addressCreated_at := CkJsonObject__stringOf(jResp,'email_address.created_at');
email_addressUpdated_at := CkJsonObject__stringOf(jResp,'email_address.updated_at');
email_addressOpt_in_source := CkJsonObject__stringOf(jResp,'email_address.opt_in_source');
email_addressOpt_in_date := CkJsonObject__stringOf(jResp,'email_address.opt_in_date');
email_addressConfirm_status := CkJsonObject__stringOf(jResp,'email_address.confirm_status');
first_name := CkJsonObject__stringOf(jResp,'first_name');
last_name := CkJsonObject__stringOf(jResp,'last_name');
job_title := CkJsonObject__stringOf(jResp,'job_title');
company_name := CkJsonObject__stringOf(jResp,'company_name');
birthday_month := CkJsonObject_IntOf(jResp,'birthday_month');
birthday_day := CkJsonObject_IntOf(jResp,'birthday_day');
anniversary := CkJsonObject__stringOf(jResp,'anniversary');
create_source := CkJsonObject__stringOf(jResp,'create_source');
created_at := CkJsonObject__stringOf(jResp,'created_at');
updated_at := CkJsonObject__stringOf(jResp,'updated_at');

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

end;