现在各种系统中JSON 用的越来越多。delphi 也自身支持JSON 处理。
今天简要说一下kbmmw 内部如何使用和操作JSON。
kbmmw 中json的操作是以TkbmMWJSONStreamer 为基础,要导入、导出JSON字符串, 首先要创建TkbmMWJSONStreamer.
然后是 TkbmMWJSONObject和 TkbmMWJSONArray。
先举一个最简单的例子。
以上代码运行结果为
继续修改添加一些代码
这样返回的结果如下
即返回一条记录信息。
如果需要返回多条记录,就需要使用TkbmMWJSONArray。
最后输出结果为
下面讲一下如何访问JSON字符串里面的对象和值
运行截图

访问对象
运行结果
访问数组
延伸一下
总之,用kbmmw 操作JSON 非常方便,更牛的是,这个可以与XML,BSON,YAML 实现无缝互转。