Xbase++

Constant Contact - Delete a Contact

See more Constant Contact Examples

Deletes the contact with a given id. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oResp

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 DELETE \
//    https://api.cc.email/v3/contacts/{contact_id} \
//    -H 'Accept: application/json' \
//    -H 'Authorization: Bearer {access_token}' \
//    -H 'Cache-Control: no-cache' \
//    -H 'Content-Type: application/json' \

//  Use the following online tool to generate HTTP code from a CURL command
//  Convert a cURL Command to HTTP Source Code

//  Adds the "Authorization: Bearer ACCESS_TOKEN" header.
oHttp:AuthToken := "ACCESS_TOKEN"
oHttp:SetRequestHeader("Accept", "application/json")
oHttp:SetRequestHeader("Content-Type", "application/json")
oHttp:SetRequestHeader("Cache-Control", "no-cache")

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpNoBody("DELETE", "https://api.cc.email/v3/contacts/{contact_id}", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  Success is a 204 response status code with an empty body.
? "Response status code: " + Str(oResp:StatusCode)
? "Response body:"
? oResp:BodyStr

oHttp:destroy()
oResp:destroy()