Sample code for 30+ languages & platforms
Xbase++

Constant Contact: Create a Contact

See more Constant Contact Examples

Creates a single contact.

Chilkat Xbase++ Downloads

Download Chilkat for Xbase++
Xbase++ 
LOCAL nSuccess
LOCAL oHttp
LOCAL oJson
LOCAL oResp
LOCAL oSbResponseBody
LOCAL oJResp
LOCAL nRespStatusCode
LOCAL cContact_id
LOCAL cEmail_addressAddress
LOCAL cEmail_addressPermission_to_send
LOCAL cEmail_addressCreated_at
LOCAL cEmail_addressUpdated_at
LOCAL cEmail_addressOpt_in_source
LOCAL cEmail_addressOpt_in_date
LOCAL cEmail_addressConfirm_status
LOCAL cFirst_name
LOCAL cLast_name
LOCAL cJob_title
LOCAL cCompany_name
LOCAL nBirthday_month
LOCAL nBirthday_day
LOCAL cAnniversary
LOCAL cCreate_source
LOCAL cCreated_at
LOCAL cUpdated_at

nSuccess := 0

//  This example assumes the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oHttp := CreateObject("Chilkat.Http")

//  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"
//    }
//  }

oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("email_address.address", "danipper@example.com")
oJson:UpdateString("email_address.permission_to_send", "implicit")
oJson:UpdateString("first_name", "David")
oJson:UpdateString("last_name", "Nipper")
oJson:UpdateString("job_title", "Musician")
oJson:UpdateString("company_name", "Acme Corp.")
oJson:UpdateString("create_source", "Account")
oJson:UpdateInt("birthday_month", 11)
oJson:UpdateInt("birthday_day", 24)
oJson:UpdateString("anniversary", "2006-11-15")
oJson:UpdateString("steet_addresses.kind", "home")
oJson:UpdateString("steet_addresses.street", "123 Kashmir Valley Road")
oJson:UpdateString("steet_addresses.city", "Chicago")
oJson:UpdateString("steet_addresses.state", "Illinois")
oJson:UpdateString("steet_addresses.country", "United States")

oHttp:SetRequestHeader("content-type", "application/json")
//  Adds the "Authorization: Bearer ACCESS_TOKEN" header.
oHttp:AuthToken := "ACCESS_TOKEN"
oHttp:SetRequestHeader("cache-control", "no-cache")
oHttp:SetRequestHeader("accept", "application/json")

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", "https://api.cc.email/v3/contacts", oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJson:destroy()
    oResp:destroy()
    RETURN
ENDIF

oSbResponseBody := CreateObject("Chilkat.StringBuilder")
oResp:GetBodySb(oSbResponseBody)
oJResp := CreateObject("Chilkat.JsonObject")
oJResp:LoadSb(oSbResponseBody)
oJResp:EmitCompact := 0

? "Response Body:"
? oJResp:Emit()

nRespStatusCode := oResp:StatusCode
? "Response Status Code = " + Str(nRespStatusCode)
IF (nRespStatusCode >= 400)
    ? "Response Header:"
    ? oResp:Header
    ? "Failed."
    oHttp:destroy()
    oJson:destroy()
    oResp:destroy()
    oSbResponseBody:destroy()
    oJResp:destroy()
    RETURN
ENDIF

//  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

cContact_id := oJResp:StringOf("contact_id")
cEmail_addressAddress := oJResp:StringOf("email_address.address")
cEmail_addressPermission_to_send := oJResp:StringOf("email_address.permission_to_send")
cEmail_addressCreated_at := oJResp:StringOf("email_address.created_at")
cEmail_addressUpdated_at := oJResp:StringOf("email_address.updated_at")
cEmail_addressOpt_in_source := oJResp:StringOf("email_address.opt_in_source")
cEmail_addressOpt_in_date := oJResp:StringOf("email_address.opt_in_date")
cEmail_addressConfirm_status := oJResp:StringOf("email_address.confirm_status")
cFirst_name := oJResp:StringOf("first_name")
cLast_name := oJResp:StringOf("last_name")
cJob_title := oJResp:StringOf("job_title")
cCompany_name := oJResp:StringOf("company_name")
nBirthday_month := oJResp:IntOf("birthday_month")
nBirthday_day := oJResp:IntOf("birthday_day")
cAnniversary := oJResp:StringOf("anniversary")
cCreate_source := oJResp:StringOf("create_source")
cCreated_at := oJResp:StringOf("created_at")
cUpdated_at := oJResp:StringOf("updated_at")

oHttp:destroy()
oJson:destroy()
oResp:destroy()
oSbResponseBody:destroy()
oJResp:destroy()