[原创](现代C++ Builder 12指南): 再谈如何使用System.JSON？附加代码示例更加详细

$作者$

常用网名: 猪头三

出生日期: 1981.XX.XX

企鹅交流: 643439947

个人网站: 80x86汇编小站

编程生涯: 2001年~至今 $共24年$

职业生涯: 22年

开发语言: C/C++、80x86ASM、Object Pascal、Objective-C、C#、R、Python、PHP、Perl、

开发工具: Visual Studio、Delphi、XCode、C++ Builder、Eclipse

技能种类: 逆向驱动磁盘文件大数据分析

涉及领域: Windows应用软件安全/Windows系统内核安全/Windows系统磁盘数据安全/macOS应用软件安全

项目经历: 股票模型量化/磁盘性能优化/文件系统数据恢复/文件信息采集/敏感文件监测跟踪/网络安全检测

专注研究: 机器学习、股票模型量化、金融分析

$序言$

在现代软件开发中, 处理JSON数据已经成为一项普遍的需求. 无论是从API获取数据、存储配置信息还是进行跨平台通信, JSON都扮演着至关重要的角色. C++ Builder 12 提供了强大的System.JSON组件库(TJSONObject, TJSONArray, JSONPath), 使得在Windows平台上轻松解析和操作JSON数据成为可能.

$代码演示$

cpp 复制代码

void __fastcall TFrom_Main::Bn_ParserJsonClick(TObject *Sender)
{
    // json字符串示例
	String ustr_Json = LR"({
        "rc": 0,
		"rt": 22,
		"svr": 2887155414,
		"lt": 1,
        "full": 0,
        "dlmkts": "",
		"data": {
            "code": "000890",
			"market": 5,
			"name": "法尔胜",
			"klines": [
                "2024-09-20,-1850901.0",
                "2024-09-23,-3759668.0",
                "2024-09-24,974176.0"
            ]
        }
	})";


    // 把Json字符串转换为JSON对象
	auto json_Root = dynamic_cast<TJSONObject*>(TJSONObject::ParseJSONValue(ustr_Json)) ;

	// 利用JSONPath技术定位到klines字段
	auto jo_array_Klines = dynamic_cast<TJSONArray*>(json_Root->FindValue(L"data.klines"));
	// 遍历 klines 数组
	for (int int_Index {} ; int_Index < jo_array_Klines->Count; ++int_Index)
	{
		// 提取行内容
		UnicodeString ustr_Line = Trim(jo_array_Klines->Items[int_Index]->ToString());
	}

	// 也可以不用遍历, 数组定位也是JSONPath技术
	// 获取第二行
	auto auto_kline = jo_array_Klines->FindValue(L"[1]")->ToString() ;

	// 利用JSONPath技术定位到market字段
	int int_market {0} ;
	json_Root->TryGetValue(L"data.market", int_market) ;

	// 常规获取
	int int_rt =  dynamic_cast<TJSONNumber*>(json_Root->Values[L"rt"])->AsInt  ;
	String ustr_svr = json_Root->GetValue(L"svr")->ToString() ;

}// End Bn_ParserJsonClick()

$代码说明$

解析JSON: 使用TJSONObject::ParseJSONValue()函数将JSON字符串转换为TJSONObject对象
JSONPath查询: System.JSON支持JSONPath技术, 可以方便地定位到JSON结构中的特定字段
遍历JSONArray: TJSONArray类表示JSON数组. 可以使用Count属性获取数组的长度, 并使用Items $index$ 访问每个元素.
数组定位: 使用FindValue(L" $1$ ")可以直接通过索引访问JSONArray中的元素. 这里获取了klines数组的第二行数据.
TryGetValue: TryGetValue()方法用于安全地获取JSON对象中的值. 如果字段不存在, 它不会抛出异常, 而是将默认值赋给目标变量. 这是一种更健壮的方式来访问JSON数据.
常规获取: 使用Values $L"rt"$ 可以直接通过键名访问JSON对象中的值. 需要进行类型转换才能获取到正确的值类型. 例如, 使用dynamic_cast<TJSONNumber*>(...)->AsInt 将JSON数字转换为整数.

$总结$

使用TJSONObject, TJSONArray, JSONPath技术以及一些常用的方法来提取和操作JSON数据, 可以轻松地获取数据、存储配置信息并进行跨平台通信，从而提高开发效率和代码质量.