SugarCRM Getting a Record

#include <C_CkHttpW.h>
#include <C_CkStringBuilderW.h>
#include <C_CkJsonObjectW.h>

void ChilkatSample(void)
    {
    BOOL success;
    HCkHttpW http;
    HCkStringBuilderW sbResponseBody;
    HCkJsonObjectW jResp;
    int respStatusCode;
    const wchar_t *id;
    const wchar_t *name;
    const wchar_t *date_modified;
    const wchar_t *industry;
    const wchar_t *email1;
    const wchar_t *v_module;

    success = FALSE;

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

    http = CkHttpW_Create();

    // Implements the following CURL command:

    // curl -H OAuth-Token:<access_token> -H Cache-Control:no-cache http://<site_url>/rest/v10/Accounts/<record_id>?fields=name,email1,industry

    CkHttpW_SetRequestHeader(http,L"Cache-Control",L"no-cache");
    CkHttpW_SetRequestHeader(http,L"OAuth-Token",L"<access_token>");

    sbResponseBody = CkStringBuilderW_Create();
    success = CkHttpW_QuickGetSb(http,L"http://<site_url>/rest/v10/Accounts/<record_id>?fields=name,email1,industry",sbResponseBody);
    if (success == FALSE) {
        wprintf(L"%s\n",CkHttpW_lastErrorText(http));
        CkHttpW_Dispose(http);
        CkStringBuilderW_Dispose(sbResponseBody);
        return;
    }

    jResp = CkJsonObjectW_Create();
    CkJsonObjectW_LoadSb(jResp,sbResponseBody);
    CkJsonObjectW_putEmitCompact(jResp,FALSE);

    wprintf(L"Response Body:\n");
    wprintf(L"%s\n",CkJsonObjectW_emit(jResp));

    respStatusCode = CkHttpW_getLastStatus(http);
    wprintf(L"Response Status Code = %d\n",respStatusCode);
    if (respStatusCode >= 400) {
        wprintf(L"Response Header:\n");
        wprintf(L"%s\n",CkHttpW_lastHeader(http));
        wprintf(L"Failed.\n");
        CkHttpW_Dispose(http);
        CkStringBuilderW_Dispose(sbResponseBody);
        CkJsonObjectW_Dispose(jResp);
        return;
    }

    // Sample JSON response:
    // (Sample code for parsing the JSON response is shown below)

    // {
    //   "id": "ab2222df-73da-0e92-6887-5705428f4d68",
    //   "name": "Test Record",
    //   "date_modified": "2016-04-06T15:03:21-04:00",
    //   "industry": "",
    //   "email1": "test@sugar.com",
    //   "_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 = CkJsonObjectW_stringOf(jResp,L"id");
    name = CkJsonObjectW_stringOf(jResp,L"name");
    date_modified = CkJsonObjectW_stringOf(jResp,L"date_modified");
    industry = CkJsonObjectW_stringOf(jResp,L"industry");
    email1 = CkJsonObjectW_stringOf(jResp,L"email1");
    v_module = CkJsonObjectW_stringOf(jResp,L"_module");


    CkHttpW_Dispose(http);
    CkStringBuilderW_Dispose(sbResponseBody);
    CkJsonObjectW_Dispose(jResp);

    }