SugarCRM Create a Record

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;
  id: string;
  name: string;
  date_entered: string;
  date_modified: string;
  modified_user_id: string;
  modified_by_name: string;
  modified_user_linkFull_name: string;
  modified_user_linkId: string;
  modified_user_link_aclDelete: string;
  modified_user_link_acl_hash: string;
  created_by: string;
  created_by_name: string;
  created_by_linkFull_name: string;
  created_by_linkId: string;
  created_by_link_aclDelete: string;
  created_by_link_acl_hash: string;
  description: string;
  deleted: Boolean;
  facebook: string;
  twitter: string;
  googleplus: string;
  account_type: string;
  industry: string;
  annual_revenue: string;
  phone_fax: string;
  billing_address_street: string;
  billing_address_street_2: string;
  billing_address_street_3: string;
  billing_address_street_4: string;
  billing_address_city: string;
  billing_address_state: string;
  billing_address_postalcode: string;
  billing_address_country: string;
  rating: string;
  phone_office: string;
  phone_alternate: string;
  website: string;
  ownership: string;
  employees: string;
  ticker_symbol: string;
  shipping_address_street: string;
  shipping_address_street_2: string;
  shipping_address_street_3: string;
  shipping_address_street_4: string;
  shipping_address_city: string;
  shipping_address_state: string;
  shipping_address_postalcode: string;
  shipping_address_country: string;
  parent_id: string;
  sic_code: string;
  duns_num: string;
  parent_name: string;
  member_ofName: string;
  member_ofId: string;
  member_of_acl_hash: string;
  campaign_id: string;
  campaign_name: string;
  campaign_accountsName: string;
  campaign_accountsId: string;
  campaign_accounts_acl_hash: string;
  following: Boolean;
  my_favorite: Boolean;
  assigned_user_id: string;
  assigned_user_name: string;
  assigned_user_linkFull_name: string;
  assigned_user_linkId: string;
  assigned_user_link_acl_hash: string;
  team_count: string;
  team_count_linkTeam_count: string;
  team_count_linkId: string;
  team_count_link_acl_hash: string;
  email1: string;
  email2: string;
  invalid_email: Boolean;
  email_opt_out: Boolean;
  email_addresses_non_primary: string;
  v_module: string;
  i: Integer;
  count_i: Integer;
  id_int: Integer;
  name_2: string;
  primary: Boolean;
  email_address: string;
  opt_out: Boolean;
  primary_address: Boolean;
  reply_to_address: Boolean;

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 -H OAuth-Token:<access_token> -H Cache-Control:no-cache -d '{ 
  //     "name":"Test Record",
  //     "email1":"test@sugar.com"
  //  }' http://<site_url>/rest/v10/Accounts

  //  Use this online tool to generate code from sample JSON:
  //  Generate Code to Create JSON

  //  The following JSON is sent in the request body.

  //  {
  //    "name": "Test Record",
  //    "email1": "test@sugar.com"
  //  }

  json := TJsonObject.Create;
  json.UpdateString('name','Test Record');
  json.UpdateString('email1','test@sugar.com');

  http.SetRequestHeader('Cache-Control','no-cache');
  http.SetRequestHeader('OAuth-Token','<access_token>');

  resp := THttpResponse.Create;
  success := http.HttpJson('POST','http://<site_url>/rest/v10/Accounts',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)

  //  {
  //    "id": "ab2222df-73da-0e92-6887-5705428f4d68",
  //    "name": "Test Record",
  //    "date_entered": "2016-04-06T13:07:41-04:00",
  //    "date_modified": "2016-04-06T13:07:41-04:00",
  //    "modified_user_id": "1",
  //    "modified_by_name": "Administrator",
  //    "modified_user_link": {
  //      "full_name": "Administrator",
  //      "id": "1",
  //      "_acl": {
  //        "fields": [
  //        ],
  //        "delete": "no",
  //        "_hash": "8e11bf9be8f04daddee9d08d44ea891e"
  //      }
  //    },
  //    "created_by": "1",
  //    "created_by_name": "Administrator",
  //    "created_by_link": {
  //      "full_name": "Administrator",
  //      "id": "1",
  //      "_acl": {
  //        "fields": [
  //        ],
  //        "delete": "no",
  //        "_hash": "8e11bf9be8f04daddee9d08d44ea891e"
  //      }
  //    },
  //    "description": "",
  //    "deleted": false,
  //    "facebook": "",
  //    "twitter": "",
  //    "googleplus": "",
  //    "account_type": "",
  //    "industry": "",
  //    "annual_revenue": "",
  //    "phone_fax": "",
  //    "billing_address_street": "",
  //    "billing_address_street_2": "",
  //    "billing_address_street_3": "",
  //    "billing_address_street_4": "",
  //    "billing_address_city": "",
  //    "billing_address_state": "",
  //    "billing_address_postalcode": "",
  //    "billing_address_country": "",
  //    "rating": "",
  //    "phone_office": "",
  //    "phone_alternate": "",
  //    "website": "",
  //    "ownership": "",
  //    "employees": "",
  //    "ticker_symbol": "",
  //    "shipping_address_street": "",
  //    "shipping_address_street_2": "",
  //    "shipping_address_street_3": "",
  //    "shipping_address_street_4": "",
  //    "shipping_address_city": "",
  //    "shipping_address_state": "",
  //    "shipping_address_postalcode": "",
  //    "shipping_address_country": "",
  //    "parent_id": "",
  //    "sic_code": "",
  //    "duns_num": "",
  //    "parent_name": "",
  //    "member_of": {
  //      "name": "",
  //      "id": "",
  //      "_acl": {
  //        "fields": [
  //        ],
  //        "_hash": "654d337e0e912edaa00dbb0fb3dc3c17"
  //      }
  //    },
  //    "campaign_id": "",
  //    "campaign_name": "",
  //    "campaign_accounts": {
  //      "name": "",
  //      "id": "",
  //      "_acl": {
  //        "fields": [
  //        ],
  //        "_hash": "654d337e0e912edaa00dbb0fb3dc3c17"
  //      }
  //    },
  //    "following": true,
  //    "my_favorite": false,
  //    "tag": [
  //    ],
  //    "assigned_user_id": "",
  //    "assigned_user_name": "",
  //    "assigned_user_link": {
  //      "full_name": "",
  //      "id": "",
  //      "_acl": {
  //        "fields": [
  //        ],
  //        "_hash": "654d337e0e912edaa00dbb0fb3dc3c17"
  //      }
  //    },
  //    "team_count": "",
  //    "team_count_link": {
  //      "team_count": "",
  //      "id": "1",
  //      "_acl": {
  //        "fields": [
  //        ],
  //        "_hash": "654d337e0e912edaa00dbb0fb3dc3c17"
  //      }
  //    },
  //    "team_name": [
  //      {
  //        "id": 1,
  //        "name": "Global",
  //        "name_2": "",
  //        "primary": true
  //      }
  //    ],
  //    "email": [
  //      {
  //        "email_address": "test@sugar.com",
  //        "invalid_email": false,
  //        "opt_out": false,
  //        "primary_address": true,
  //        "reply_to_address": false
  //      }
  //    ],
  //    "email1": "test@sugar.com",
  //    "email2": "",
  //    "invalid_email": false,
  //    "email_opt_out": false,
  //    "email_addresses_non_primary": "",
  //    "_acl": {
  //      "fields": {}
  //    },
  //    "_module": "Accounts"
  //  }

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

  id := jResp.StringOf('id');
  name := jResp.StringOf('name');
  date_entered := jResp.StringOf('date_entered');
  date_modified := jResp.StringOf('date_modified');
  modified_user_id := jResp.StringOf('modified_user_id');
  modified_by_name := jResp.StringOf('modified_by_name');
  modified_user_linkFull_name := jResp.StringOf('modified_user_link.full_name');
  modified_user_linkId := jResp.StringOf('modified_user_link.id');
  modified_user_link_aclDelete := jResp.StringOf('modified_user_link._acl.delete');
  modified_user_link_acl_hash := jResp.StringOf('modified_user_link._acl._hash');
  created_by := jResp.StringOf('created_by');
  created_by_name := jResp.StringOf('created_by_name');
  created_by_linkFull_name := jResp.StringOf('created_by_link.full_name');
  created_by_linkId := jResp.StringOf('created_by_link.id');
  created_by_link_aclDelete := jResp.StringOf('created_by_link._acl.delete');
  created_by_link_acl_hash := jResp.StringOf('created_by_link._acl._hash');
  description := jResp.StringOf('description');
  deleted := jResp.BoolOf('deleted');
  facebook := jResp.StringOf('facebook');
  twitter := jResp.StringOf('twitter');
  googleplus := jResp.StringOf('googleplus');
  account_type := jResp.StringOf('account_type');
  industry := jResp.StringOf('industry');
  annual_revenue := jResp.StringOf('annual_revenue');
  phone_fax := jResp.StringOf('phone_fax');
  billing_address_street := jResp.StringOf('billing_address_street');
  billing_address_street_2 := jResp.StringOf('billing_address_street_2');
  billing_address_street_3 := jResp.StringOf('billing_address_street_3');
  billing_address_street_4 := jResp.StringOf('billing_address_street_4');
  billing_address_city := jResp.StringOf('billing_address_city');
  billing_address_state := jResp.StringOf('billing_address_state');
  billing_address_postalcode := jResp.StringOf('billing_address_postalcode');
  billing_address_country := jResp.StringOf('billing_address_country');
  rating := jResp.StringOf('rating');
  phone_office := jResp.StringOf('phone_office');
  phone_alternate := jResp.StringOf('phone_alternate');
  website := jResp.StringOf('website');
  ownership := jResp.StringOf('ownership');
  employees := jResp.StringOf('employees');
  ticker_symbol := jResp.StringOf('ticker_symbol');
  shipping_address_street := jResp.StringOf('shipping_address_street');
  shipping_address_street_2 := jResp.StringOf('shipping_address_street_2');
  shipping_address_street_3 := jResp.StringOf('shipping_address_street_3');
  shipping_address_street_4 := jResp.StringOf('shipping_address_street_4');
  shipping_address_city := jResp.StringOf('shipping_address_city');
  shipping_address_state := jResp.StringOf('shipping_address_state');
  shipping_address_postalcode := jResp.StringOf('shipping_address_postalcode');
  shipping_address_country := jResp.StringOf('shipping_address_country');
  parent_id := jResp.StringOf('parent_id');
  sic_code := jResp.StringOf('sic_code');
  duns_num := jResp.StringOf('duns_num');
  parent_name := jResp.StringOf('parent_name');
  member_ofName := jResp.StringOf('member_of.name');
  member_ofId := jResp.StringOf('member_of.id');
  member_of_acl_hash := jResp.StringOf('member_of._acl._hash');
  campaign_id := jResp.StringOf('campaign_id');
  campaign_name := jResp.StringOf('campaign_name');
  campaign_accountsName := jResp.StringOf('campaign_accounts.name');
  campaign_accountsId := jResp.StringOf('campaign_accounts.id');
  campaign_accounts_acl_hash := jResp.StringOf('campaign_accounts._acl._hash');
  following := jResp.BoolOf('following');
  my_favorite := jResp.BoolOf('my_favorite');
  assigned_user_id := jResp.StringOf('assigned_user_id');
  assigned_user_name := jResp.StringOf('assigned_user_name');
  assigned_user_linkFull_name := jResp.StringOf('assigned_user_link.full_name');
  assigned_user_linkId := jResp.StringOf('assigned_user_link.id');
  assigned_user_link_acl_hash := jResp.StringOf('assigned_user_link._acl._hash');
  team_count := jResp.StringOf('team_count');
  team_count_linkTeam_count := jResp.StringOf('team_count_link.team_count');
  team_count_linkId := jResp.StringOf('team_count_link.id');
  team_count_link_acl_hash := jResp.StringOf('team_count_link._acl._hash');
  email1 := jResp.StringOf('email1');
  email2 := jResp.StringOf('email2');
  invalid_email := jResp.BoolOf('invalid_email');
  email_opt_out := jResp.BoolOf('email_opt_out');
  email_addresses_non_primary := jResp.StringOf('email_addresses_non_primary');
  v_module := jResp.StringOf('_module');
  i := 0;
  count_i := jResp.SizeOfArray('modified_user_link._acl.fields');
  while i < count_i do
    begin
      jResp.I := i;
      i := i + 1;
    end;

  i := 0;
  count_i := jResp.SizeOfArray('created_by_link._acl.fields');
  while i < count_i do
    begin
      jResp.I := i;
      i := i + 1;
    end;

  i := 0;
  count_i := jResp.SizeOfArray('member_of._acl.fields');
  while i < count_i do
    begin
      jResp.I := i;
      i := i + 1;
    end;

  i := 0;
  count_i := jResp.SizeOfArray('campaign_accounts._acl.fields');
  while i < count_i do
    begin
      jResp.I := i;
      i := i + 1;
    end;

  i := 0;
  count_i := jResp.SizeOfArray('tag');
  while i < count_i do
    begin
      jResp.I := i;
      i := i + 1;
    end;

  i := 0;
  count_i := jResp.SizeOfArray('assigned_user_link._acl.fields');
  while i < count_i do
    begin
      jResp.I := i;
      i := i + 1;
    end;

  i := 0;
  count_i := jResp.SizeOfArray('team_count_link._acl.fields');
  while i < count_i do
    begin
      jResp.I := i;
      i := i + 1;
    end;

  i := 0;
  count_i := jResp.SizeOfArray('team_name');
  while i < count_i do
    begin
      jResp.I := i;
      id_int := jResp.IntOf('team_name[i].id');
      name := jResp.StringOf('team_name[i].name');
      name_2 := jResp.StringOf('team_name[i].name_2');
      primary := jResp.BoolOf('team_name[i].primary');
      i := i + 1;
    end;

  i := 0;
  count_i := jResp.SizeOfArray('email');
  while i < count_i do
    begin
      jResp.I := i;
      email_address := jResp.StringOf('email[i].email_address');
      invalid_email := jResp.BoolOf('email[i].invalid_email');
      opt_out := jResp.BoolOf('email[i].opt_out');
      primary_address := jResp.BoolOf('email[i].primary_address');
      reply_to_address := jResp.BoolOf('email[i].reply_to_address');
      i := i + 1;
    end;



  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.