C++ Builder 解析和生成 json (使用 jsoncpp (0.y.z))

jsoncpp 的 0.y.z 分支適用于早期版本的編譯器签则,低版本的 C++ Builder 也可以使用汰寓。
下載和編譯 jsoncpp 0.y.z 可以參考 《C++ Builder 編譯 jsoncpp 庫 (0.y.z 分支)》
master 分支的 jsoncpp 已經不使用本文的解析和生成 json 的方法了卦方。

  • 使用 jsoncpp 靜態(tài)庫
  • 解析 json
    · 解析 json 字符串
    · 解析 json 文件
  • 生成 json
    · 一般格式 toStyledString
    · 壓縮格式 FastWriter
    · 保存 json 文件
  • 下載本文例子源碼

一. 使用 jsoncpp 靜態(tài)庫

1. 下載和編譯 jsoncpp 靜態(tài)庫

下載和編譯 jsoncpp 0.y.z 可以參考 《C++ Builder 編譯 jsoncpp 庫 (0.y.z 分支)》

2. 在項目選項里面,添加頭文件和庫文件的路徑

選擇菜單 Project -> Options

添加頭文件和庫文件的路徑

頭文件的路徑需要添加這個文件夾:

頭文件的文件夾

庫文件的路徑需要添加這個文件夾:

庫文件的文件夾

3. 包含頭文件和鏈接庫文件

#include "json/json.h"
#if defined(__clang__) && (__POINTER_WIDTH__ == 64)
  #pragma link "jsoncpp.a"
#else
  #pragma link "jsoncpp.lib"
#endif
包含頭文件江解,鏈接庫文件

二. 解析 json

由于 jsoncpp 必須采用 UTF-8 編碼块仆,所以必須用 UTF8String 字符串類型。

1. 解析 json 字符串

使用 Json::Reader 解析 json 字符串惋鹅,解析之后放在 Json::Value 里面则酝。

Json::Value 里面存儲的可能是一個單個的值,比如整數(shù)闰集、浮點數(shù)沽讹、字符串等,也可能是一組鍵值對武鲁,也可能是數(shù)組爽雄。

Json::Value v;

如果 v 是 "key" : value 形式的鍵值對,
Json::Value &value = v["key"]; // 關鍵字 key 的值

如果 v 是數(shù)組
Json::Value &value = v[i]; // 數(shù)組第 i 個元素的值

如果要把 Json::Value 儲存的單個值讀出來沐鼠,需要用 Json::Value 的成員函數(shù):

函數(shù) 得到的值
asBool() 布爾型 bool
asInt() 整型 int
asInt64() 64位整型 long long
asUInt() 無符號整型 unsigned int
asUInt64() 64位無符號整型 unsigned long long
asLargestInt() 最大位數(shù)的整型 intmax_t
asLargestUInt() 最大位數(shù)的無符號整型 uintmax_t
asFloat() 浮點數(shù) float
asDouble() 雙精度浮點數(shù) double
asString() 字符串 std::string
asCString() 字符串 const char *

例:從 Memo 控件里面獲取 json 字符串挚瘟,假定內容如下:

{
    "name" : "JSON 測試程序 - 玄坴",
    "desc" : "Test JSON, Copyright ? Hsuanlu",
    "value": 1234.56,
    "故障" :
    [
        { "編碼":101, "描述":"故障1" },
        { "編碼":102, "描述":"故障2" }
    ]
}

程序代碼:

雖然 C++ 11 規(guī)定了 u8"這是 UTF-8 字符串" 這樣的寫法,但是目前的 C++ Builder 編譯器還不支持饲梭,所以定義了一個 _u8s 在程序里面使用能夠簡單方便一些:
#define _u8s(s) UTF8String(s).c_str()

#define _u8s(s) UTF8String(s).c_str()
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    try
    {
        UTF8String txt = Memo1->Text; // Memo1 里面的文字轉為 UTF-8 編碼

        Json::Reader jsReader;
        Json::Value jsValue;
        if(!jsReader.parse(txt.c_str(), jsValue))
        {
            Memo2->Lines->Add(L"JSON 解析錯誤");
            return;
        }

        UTF8String sVal;
        double lfVal;
        int iVal;

        sVal = jsValue["name"].asCString();
        Memo2->Lines->Add(sVal);

        sVal = jsValue["desc"].asCString();
        Memo2->Lines->Add(sVal);

        lfVal = jsValue["value"].asDouble();
        Memo2->Lines->Add(lfVal);

        for(int i=0; i<2; i++)
        {
            Json::Value &jsFault = jsValue[_u8s(L"故障")][i];
            iVal = jsFault[_u8s(L"編碼")].asInt();
            Memo2->Lines->Add(iVal);

            sVal = jsFault[_u8s(L"描述")].asCString();
            Memo2->Lines->Add(sVal);
        }
    }
    catch(std::exception &e)
    {
        UTF8String sErrStr = e.what();
        Memo2->Lines->Add(L"錯誤:" + sErrStr);
    }
    catch(Exception &e)
    {
        UTF8String sErrStr = e.Message;
        Memo2->Lines->Add(L"錯誤:" + sErrStr);
    }
}

運行結果:

解析 json 的運行結果

2. 解析 json 文件

只要把文件內容讀到 UTF8String 里面就可以用前面的解析 json 字符串的方法解析了乘盖。

下面程序把 L"d:\\folder\\filename.txt" 讀到 UTF8String txt 里面,按照 BOM 自動識別文件編碼 UTF-8 / UNICODE 等憔涉,如果沒有 BOM 會認為是 ANSI 編碼 (由操作系統(tǒng)確定具體編碼订框,Windows 10 新版在控制面板里面可以設為沒有 BOM 認為是 UTF-8,否則認為是 ANSI)兜叨。

    std::auto_ptr<TStringList>sl(new TStringList);
    sl->LoadFromFile(L"d:\\folder\\filename.txt");
    UTF8String txt = sl->Text;

如果要指定讀取的文件是 UTF-8 編碼穿扳,LoadFromFile 需要加參數(shù) TEncoding::UTF8,如果讀取的文件不是 UTF-8 編碼国旷,會拋出異常纵揍。

    sl->LoadFromFile(L"d:\\folder\\filename.txt", TEncoding::UTF8);

文件讀取完成,就可以按照前面第二部分所述的解析 json 字符串的方法了议街。

三. 生成 json

1. 生成 json 字符串

例:要生成這樣的 json:

{
   "data" : 12345,
   "error" : [
      {
         "描述" : "故障1",
         "編碼" : "101"
      },
      {
         "描述" : "故障2",
         "編碼" : "102"
      }
   ]
}

生成 json 的代碼如下泽谨,把生成的 json 顯示在 Memo2 里面。

void __fastcall TForm1::Button3Click(TObject *Sender)
{
    Json::Value J;
    J["data"] = 12345;
    J["error"][0][UTF8String(L"編碼").c_str()] = UTF8String(L"101" ).c_str();
    J["error"][0][UTF8String(L"描述").c_str()] = UTF8String(L"故障1").c_str();
    J["error"][1][UTF8String(L"編碼").c_str()] = UTF8String(L"102" ).c_str();
    J["error"][1][UTF8String(L"描述").c_str()] = UTF8String(L"故障2").c_str();

    Memo2->Lines->LineBreak = L"\n"; // jsoncpp 的換行符是 "\n"
    Memo2->Lines->Text = UTF8String(J.toStyledString().c_str());
    Memo2->Lines->LineBreak = L"\r\n"; // 恢復 Windows 的換行符 "\r\n"
}

運行結果:

生成 json 的運行結果

前面的代碼是通過 json 根節(jié)點直接創(chuàng)建 json 字符串特漩,下面代碼是通過中間變量創(chuàng)建:

void __fastcall TForm1::Button4Click(TObject *Sender)
{
    typedef struct
    {
        const wchar_t *sCode;
        const wchar_t *sDesc;
    }   TErrorInfo;

    static const TErrorInfo EInfo[] =
    {
        { L"101", L"故障1" },
        { L"102", L"故障2" },
        { NULL  , NULL     },
    };

    Json::Value J;
    J["data"] = 12345;

    Json::Value &jsError = J["error"];

    for(int i=0; EInfo[i].sCode; i++)
    {
        const TErrorInfo &EI = EInfo[i];
        Json::Value &jsErrInfo = jsError[i];
        jsErrInfo[UTF8String(L"編碼").c_str()] = UTF8String(EI.sCode).c_str();
        jsErrInfo[UTF8String(L"描述").c_str()] = UTF8String(EI.sDesc).c_str();
    }

    Memo2->Lines->LineBreak = L"\n"; // jsoncpp 的換行符是 "\n"
    Memo2->Lines->Text = UTF8String(J.toStyledString().c_str());
    Memo2->Lines->LineBreak = L"\r\n"; // 恢復 Windows 的換行符 "\r\n"
}

運行結果:

生成 json 的運行結果

2. 一般格式 toStyledString

用 Json::Value 的 toStyledString() 方法得到的就是一般格式的 json 字符串吧雹,如前面例子的效果。

3. 壓縮格式 FastWriter

如果生成的 json 字符串用于網絡傳輸涂身,用前面的 toStyledString() 方法得到的字符串有大量的空格和換行符雄卷,占用空間太大了,需要用壓縮格式的 json 字符串蛤售,不包含沒有必要的空格和換行符丁鹉。

void __fastcall TForm1::Button5Click(TObject *Sender)
{
    Json::Value J;
    J["data"] = 12345;
    J["error"][0][UTF8String(L"編碼").c_str()] = UTF8String(L"101" ).c_str();
    J["error"][0][UTF8String(L"描述").c_str()] = UTF8String(L"故障1").c_str();
    J["error"][1][UTF8String(L"編碼").c_str()] = UTF8String(L"102" ).c_str();
    J["error"][1][UTF8String(L"描述").c_str()] = UTF8String(L"故障2").c_str();

    Memo2->Lines->LineBreak = L"\n"; // jsoncpp 的換行符是 "\n"
    Memo2->Lines->Text = UTF8String(Json::FastWriter().write(J).c_str());
    Memo2->Lines->LineBreak = L"\r\n"; // 恢復 Windows 的換行符 "\r\n"
}

運行結果:

生成壓縮格式 json 的運行結果

4. 保存 json 文件

4.1 例:生成一般格式的 UTF-8 編碼的 json 文件

void __fastcall TForm1::Button6Click(TObject *Sender)
{
    Json::Value J;
    J["data"] = 12345;
    J["error"][0][UTF8String(L"編碼").c_str()] = UTF8String(L"101" ).c_str();
    J["error"][0][UTF8String(L"描述").c_str()] = UTF8String(L"故障1").c_str();
    J["error"][1][UTF8String(L"編碼").c_str()] = UTF8String(L"102" ).c_str();
    J["error"][1][UTF8String(L"描述").c_str()] = UTF8String(L"故障2").c_str();

    std::auto_ptr<TStringList>sl(new TStringList);
    sl->LineBreak = L"\n"; // jsoncpp 的換行符是 "\n"
    sl->Text = UTF8String(J.toStyledString().c_str());
    sl->LineBreak = L"\r\n"; // 恢復 Windows 的換行符 "\r\n"
    sl->SaveToFile(L"d:\\test.txt", TEncoding::UTF8);
}

生成的文件用記事本打開查看內容:

生成的 json 文件的內容

4.2 生成壓縮格式的 UTF-8 編碼的 json 文件

void __fastcall TForm1::Button7Click(TObject *Sender)
{
    Json::Value J;
    J["data"] = 12345;
    J["error"][0][UTF8String(L"編碼").c_str()] = UTF8String(L"101" ).c_str();
    J["error"][0][UTF8String(L"描述").c_str()] = UTF8String(L"故障1").c_str();
    J["error"][1][UTF8String(L"編碼").c_str()] = UTF8String(L"102" ).c_str();
    J["error"][1][UTF8String(L"描述").c_str()] = UTF8String(L"故障2").c_str();

    std::auto_ptr<TStringList>sl(new TStringList);
    sl->Text = UTF8String(Json::FastWriter().write(J).c_str());
    sl->SaveToFile(L"d:\\test.txt", TEncoding::UTF8);
}

生成的 json 文件用記事本打開查看內容:

生成的 json 文件的內容

四. 下載本文例子源碼

請點擊:jsoncpp-0.10.7-src-cbuilder 下載 jsoncpp 0.10.7 完整源碼妒潭、C++ Builder 項目文件、編譯好了的庫文件揣钦、例子程序等雳灾。


參考:

最后編輯于
?著作權歸作者所有,轉載或內容合作請聯(lián)系作者
  • 序言:七十年代末谎亩,一起剝皮案震驚了整個濱河市,隨后出現(xiàn)的幾起案子宇姚,更是在濱河造成了極大的恐慌匈庭,老刑警劉巖,帶你破解...
    沈念sama閱讀 222,104評論 6 515
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件浑劳,死亡現(xiàn)場離奇詭異阱持,居然都是意外死亡,警方通過查閱死者的電腦和手機魔熏,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 94,816評論 3 399
  • 文/潘曉璐 我一進店門衷咽,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人道逗,你說我怎么就攤上這事兵罢。” “怎么了滓窍?”我有些...
    開封第一講書人閱讀 168,697評論 0 360
  • 文/不壞的土叔 我叫張陵卖词,是天一觀的道長。 經常有香客問我吏夯,道長此蜈,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 59,836評論 1 298
  • 正文 為了忘掉前任噪生,我火速辦了婚禮裆赵,結果婚禮上,老公的妹妹穿的比我還像新娘跺嗽。我一直安慰自己战授,他們只是感情好,可當我...
    茶點故事閱讀 68,851評論 6 397
  • 文/花漫 我一把揭開白布桨嫁。 她就那樣靜靜地躺著植兰,像睡著了一般。 火紅的嫁衣襯著肌膚如雪璃吧。 梳的紋絲不亂的頭發(fā)上楣导,一...
    開封第一講書人閱讀 52,441評論 1 310
  • 那天,我揣著相機與錄音畜挨,去河邊找鬼筒繁。 笑死噩凹,一個胖子當著我的面吹牛,可吹牛的內容都是我干的毡咏。 我是一名探鬼主播驮宴,決...
    沈念sama閱讀 40,992評論 3 421
  • 文/蒼蘭香墨 我猛地睜開眼,長吁一口氣:“原來是場噩夢啊……” “哼血当!你這毒婦竟也來了幻赚?” 一聲冷哼從身側響起禀忆,我...
    開封第一講書人閱讀 39,899評論 0 276
  • 序言:老撾萬榮一對情侶失蹤臊旭,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后箩退,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體离熏,經...
    沈念sama閱讀 46,457評論 1 318
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內容為張勛視角 年9月15日...
    茶點故事閱讀 38,529評論 3 341
  • 正文 我和宋清朗相戀三年戴涝,在試婚紗的時候發(fā)現(xiàn)自己被綠了滋戳。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點故事閱讀 40,664評論 1 352
  • 序言:一個原本活蹦亂跳的男人離奇死亡啥刻,死狀恐怖奸鸯,靈堂內的尸體忽然破棺而出,到底是詐尸還是另有隱情可帽,我是刑警寧澤娄涩,帶...
    沈念sama閱讀 36,346評論 5 350
  • 正文 年R本政府宣布,位于F島的核電站映跟,受9級特大地震影響蓄拣,放射性物質發(fā)生泄漏。R本人自食惡果不足惜努隙,卻給世界環(huán)境...
    茶點故事閱讀 42,025評論 3 334
  • 文/蒙蒙 一球恤、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧荸镊,春花似錦咽斧、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,511評論 0 24
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽。三九已至优构,卻和暖如春诵叁,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背钦椭。 一陣腳步聲響...
    開封第一講書人閱讀 33,611評論 1 272
  • 我被黑心中介騙來泰國打工拧额, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留碑诉,地道東北人。 一個月前我還...
    沈念sama閱讀 49,081評論 3 377
  • 正文 我出身青樓侥锦,卻偏偏與公主長得像进栽,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子恭垦,可洞房花燭夜當晚...
    茶點故事閱讀 45,675評論 2 359

推薦閱讀更多精彩內容