kbmmw 中JSON 操作入门

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了kbmmw 中JSON 操作入门，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含4552字，纯文字阅读大概需要7分钟。

内容图文

现在各种系统中JSON 用的越来越多。delphi 也自身支持JSON 处理。

今天简要说一下kbmmw 内部如何使用和操作JSON。

kbmmw 中json的操作是以TkbmMWJSONStreamer 为基础，要导入、导出JSON字符串, 首先要创建TkbmMWJSONStreamer.

然后是 TkbmMWJSONObject和 TkbmMWJSONArray。

先举一个最简单的例子。

            procedure
             TForm1.Button3Click(Sender: TObject);

            var
            
  myjson:TkbmMWJSONStreamer;
  alljson: TkbmMWJSONObject;
  s:String;

            begin
            

   myjson:=TkbmMWJSONStreamer.Create; // 建立JSON流

   alljson:=TkbmMWJSONObject.Create; // 建立JSON 对象

   alljson.AsString[‘root‘]:=‘ok‘; // 赋值

   s:=myjson.SaveToUTF16String(alljson);
   memo1.Lines.Clear;
   memo1.Lines.Add(s);

   alljson.Free;
   myjson.Free;
end;

以上代码运行结果为

{"root":"ok"}

继续修改添加一些代码

            procedure
             TForm1.Button3Click(Sender: TObject);

            var
            
  myjson:TkbmMWJSONStreamer;
  alljson: TkbmMWJSONObject;
  djson:TkbmMWJSONObject;
  s:String;

            begin
            

   myjson:=TkbmMWJSONStreamer.Create;

   alljson:=TkbmMWJSONObject.Create;

   djson:=TkbmMWJSONObject.Create; // 新建一个子对象
   djson.Asinteger[‘ID‘]:=1;
   djson.AsString[‘name‘]:=‘xalion‘;
   djson.AsDateTime[‘date‘]:=now;

   alljson.AsObject[‘result‘]:=djson;

   s:=myjson.SaveToUTF16String(alljson);
   memo1.Lines.Clear;
   memo1.Lines.Add(s);


   alljson.Free;
   myjson.Free;

end;

这样返回的结果如下

{"result":{"ID":1,"name":"xalion","date":"2017-07-01T01:00:00.427+08:00"}}

即返回一条记录信息。

如果需要返回多条记录，就需要使用TkbmMWJSONArray。

            procedure
             TForm1.Button3Click(Sender: TObject);

            var
            
  myjson:TkbmMWJSONStreamer;
  alljson: TkbmMWJSONObject;
  djson:TkbmMWJSONObject;
   datajson: TkbmMWJSONArray;
  s:String;
  I: Integer;

            begin
            

   myjson:=TkbmMWJSONStreamer.Create;  // 建立一个JSON 流
   alljson:=TkbmMWJSONObject.Create;  // 建立一个JOSN 根对象
   datajson:=TkbmMWJSONArray.Create;   //建立一个JSON 数组for I :=1to10dobegin
         djson:=TkbmMWJSONObject.Create;
         djson.Asinteger[‘ID‘]:=i;
         djson.AsString[‘name‘]:=‘xalion‘;
         djson.AsDateTime[‘date‘]:=now;

         datajson.Add(djson);         // 加入数据end;

    alljson.AsArray[‘result‘]:=datajson;

   s:=myjson.SaveToUTF16String(alljson);
   memo1.Lines.Clear;
   memo1.Lines.Add(s);


   alljson.Free;
   myjson.Free;

end;

最后输出结果为

            {
            "result":[{"ID":1,"name":"xalion","date":"2017-07-01T01:16:44.960+08:00"
            },{"ID":2,"name":"xalion","date":"2017-07-01T01:16:44.960+08:00"},{"ID":3,"name":"xalion","date":"2017-07-01T01:16:44.960+08:00"},{"ID":4,"name":"xalion","date":"2017-07-01T01:16:44.960+08:00"},{"ID":5,"name":"xalion","date":"2017-07-01T01:16:44.960+08:00"},{"ID":6,"name":"xalion","date":"2017-07-01T01:16:44.960+08:00"},{"ID":7,"name":"xalion","date":"2017-07-01T01:16:44.960+08:00"},{"ID":8,"name":"xalion","date":"2017-07-01T01:16:44.960+08:00"},{"ID":9,"name":"xalion","date":"2017-07-01T01:16:44.960+08:00"},{"ID":10,"name":"xalion","date":"2017-07-01T01:16:44.960+08:00"}]}

下面讲一下如何访问JSON字符串里面的对象和值

            procedure
             TForm1.Button4Click(Sender: TObject);

            var
            
  myjson:TkbmMWJSONStreamer;
  alljson: TkbmMWJSONObject;

            begin
            
    myjson:=TkbmMWJSONStreamer.Create;  // 建立一个JSON 流
    alljson:=TkbmMWJSONObject( myjson.LoadFromUTF16String(memo1.Lines.Text)); // 载入到根JSON
    memo2.Lines.Clear;

    memo2.Lines.Add(alljson.AsString[‘root‘]);

    alljson.Free;
    myjson.Free;

end;

运行截图

技术分享

访问对象

            procedure
             TForm1.Button4Click(Sender: TObject);

            var
            
  myjson:TkbmMWJSONStreamer;
  alljson: TkbmMWJSONObject;

            begin
            
    myjson:=TkbmMWJSONStreamer.Create;  // 建立一个JSON 流
    alljson:=TkbmMWJSONObject( myjson.LoadFromUTF16String(memo1.Lines.Text)); // 载入到根JSON
    memo2.Lines.Clear;

    memo2.Lines.Add(alljson.AsObject[‘result‘].AsString[‘name‘] );

    alljson.Free;
    myjson.Free;

end;

运行结果

技术分享

访问数组

            procedure
             TForm1.Button4Click(Sender: TObject);

            var
            
  myjson:TkbmMWJSONStreamer;
  alljson: TkbmMWJSONObject;
   jresult:TkbmMWJSONArray;

            begin
            
    myjson:=TkbmMWJSONStreamer.Create;  // 建立一个JSON 流
    alljson:=TkbmMWJSONObject( myjson.LoadFromUTF16String(memo1.Lines.Text)); // 载入到根JSON
    memo2.Lines.Clear;

    jresult:=TkbmMWJSONArray(alljson.AsArray[‘result‘]);    // 返回数组

    memo2.Lines.Add(jresult.AsObject[5].AsString[‘name‘] );


    alljson.Free;
    myjson.Free;

end;

运行结果

技术分享

延伸一下

            procedure
             TForm1.Button4Click(Sender: TObject);

            var
            
  myjson:TkbmMWJSONStreamer;
  alljson: TkbmMWJSONObject;
  jresult:TkbmMWJSONArray;
  i:integer;

            begin
            
    myjson:=TkbmMWJSONStreamer.Create;  // 建立一个JSON 流
    alljson:=TkbmMWJSONObject( myjson.LoadFromUTF16String(memo1.Lines.Text)); // 载入到根JSON
    memo2.Lines.Clear;

    jresult:=TkbmMWJSONArray(alljson.AsArray[‘result‘]);    // 返回数组

    memo2.Lines.Add(jresult.AsObject[5].AsString[‘name‘] );

    memo2.lines.Add(‘数组大小:‘+jresult.Count.ToString  );
    memo2.lines.Add(‘属性个数:‘+jresult.AsObject[5].PropertyCount.ToString  );

    for I := 1to jresult.AsObject[5].PropertyCount do

          memo2.lines.Add(‘属性‘+i.ToString+‘名:‘+jresult.AsObject[5].PropertyName[i-1]);


    alljson.Free;
    myjson.Free;

end;

运行结果

技术分享

总之，用kbmmw 操作JSON 非常方便，更牛的是，这个可以与XML,BSON,YAML 实现无缝互转。

原文：http://www.cnblogs.com/xalion/p/7100177.html

内容总结

以上是互联网集市为您收集整理的kbmmw 中JSON 操作入门全部内容，希望文章能够帮你解决kbmmw 中JSON 操作入门所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/1333395.html

来源：【匿名】

【下一篇】浅析php中json_encode()和json_decode()

更多 ►

【kbmmw 中JSON 操作入门】教程文章相关的互联网学习教程文章

现在各种系统中JSON 用的越来越多。delphi 也自身支持JSON 处理。今天简要说一下kbmmw 内部如何使用和操作JSON。kbmmw 中json的操作是以TkbmMWJSONStreamer 为基础，要导入、导出JSON字符串, 首先要创建TkbmMWJSONStreamer. 然后是 TkbmMWJSONObject和 TkbmMWJSONArray。先举一个最简单的例子。procedure TForm1.Button3Click(Sender: TObject); varmyjson:TkbmMWJSONStreamer;alljson: TkbmMWJSONObject;s:String; beginmyjson:=T...

Json 入门例子【3】【代码】

Javascript 和Jquery 通过ID 获取值。<script> var txt1 = [{ "CityId": 18, "CityName": "西安", "ProvinceId": 27, "CityOrder": 1 }, { "CityId": 53, "CityName": "广州", "ProvinceId": 27, "CityOrder": 1 }];$("#a1").html(txt1[0].CityName); document.getElementById("a1").innerHTML = txt1[0].CityName; //以上两种写法结果都一样。通过Id 获取值。 </script> <body><p>城市:<span id="a1"></span><br /></p> </body>J...

JSON--JSON学习入门（了解什么是JSON）

JSON格式化工具：tool.oschina.net/codeformat/jsonJSON定义JSON(JavaScript Object Notation)一种轻量级的数据交换格式，具有良好的可读和便于快速编写的特性。可在不同平台之间进行数据交换。JSON采用兼容性很高的、完全独立于语言文本格式，同时也具备类似于C语言的习惯(包括C, C++, C#,Java, JavaScript, Perl, Python等)体系的行为。这些特性使JSON成为理想的数据交换语言。JSON基于JavaScript Programming Language , Standa...

JSON 入门

JSON维基百科JSON百度百科JSON格式在线验证{ "AA": 4, "BN": { "A": 4, "B": 4 }, "ARRARY": [ 1, 2 ]}ASP.NET JSONNewtonsoft.Json序列化和反序列[ASP.net MVC 4] 使用AngularJS計算Html Table中的小計數量JavaScript eval() 函数原文：http://www.cnblogs.com/pengyou8696/p/3577053.html

JSON入门（Understanding JSON）

Understanding JSONJSON（JavaScript Object Notation）是一种轻量级的数据交换语法，易于人类理解、易于机器解析。正如其名，JSON基于JavaScript脚本语言；然而，JSON本身是完全语言无关的。JSON是RESTful web services之间进行数据传输的一种常用表示法。大多数编程语言提供了解析JSON数据的库，很多web框架现在也支持JSON格式的响应数据。由于JSON比XML占用存储空间小，它非常适合网速较低的情况。例如，移动设备通常连接速度较...

SpringBoot入门笔记(二)、使用fastjson【代码】【图】

1、添加fastjson配置<dependency><groupId>com.alibaba</groupId><artifactId>fastjson</artifactId><version>1.2.15</version></dependency>2、重写configureMessageConverters@Override publicvoid configureMessageConverters(List<HttpMessageConverter<?>> converters) { super.configureMessageConverters(converters); FastJsonHttpMessageConverter fastConverter=new FastJsonHttpMessageConverter(); FastJsonConfig ...

JSON 入门指南【代码】

尽管有许多宣传关于 XML 如何拥有跨平台，跨语言的优势，然而，除非应用于 Web Services，否则，在普通的 Web 应用中，开发者经常为 XML 的解析伤透了脑筋，无论是服务器端生成或处理 XML，还是客户端用 JavaScript 解析 XML，都常常导致复杂的代码，极低的开发效率。实际上，对于大多数 Web 应用来说，他们根本不需要复杂的 XML 来传输数据，XML 的扩展性很少具有优势，许多 AJAX 应用甚至直接返回 HTML 片段来构建动态 Web 页面。...

[ Python入门教程 ] Python中JSON模块基本使用方法【代码】

JSON (JavaScript Object Notation)是一种使用广泛的轻量数据格式，Python标准库中的json模块提供了一种简单的方法来编码和解码JSON格式的数据。用于完成字符串和python数据类型间进行转换。 json模块基本函数 json.dumps()：把Python数据类型转换成JSON字符串 json.loads()：把JSON字符串转换成Python数据类型 json.dump()：把Python数据类型转换成JSON字符串并存储在文件中 json.load()：把文件打开并将JSON字符串转换...

php入门4解析json对象

functionlogging(){var x = new XMLHttpRequest();x.onreadystatechange =function(){if(x.readyState == 4) {if(x.status == 200) {console.log("The server replied with: " + x.responseText);txt.text = x.responseText;}}};var xxx = newObject;xxx.id=289672082;xxx.pwd = '12345';var pcode= JSON.stringify(xxx);x.open("GET","http://localhost/mycode/Test/index.php?code="+pcode);x.send(null);}解析$pcode = $_GET[...

JSON入门指南想了解json的朋友可以看下_json

json入门基础教程推荐_json

如果您阅读了本系列前面的文章，那么应已对数据格式有了相当的认识。前面的文章解释了在许多异步应用程序中如何恰当地使用纯文本和简单的名称/值对。可以将数据组合成下面这样的形式：firstName=Brett&lastName=McLaughlin&email=brett@newInstance.com这样就行了，不需要再做什么了。实际上，Web 老手会意识到通过 GET 请求发送的信息就是采用这种格式。然后，本系列讨论了 XML。显然，XML 得到了相当多的关注（正面和负面的评价...

javascriptjson新手入门文档_json

json入门学习笔记示例代码_json【图】

Json介绍：JSON(JavaScript Object Notation) 是一种轻量级的数据交换格式。易于人阅读和编写。 json 官方网站 http://www.json.org/ json.net 下载地址 http://json.codeplex.com/releases/view/37810 Demo:描述：　　点击获取按钮后，将请求页面，获取json数据，填充到表格html代码：代码如下: $(function() { $("#Button1").click(function() { $.get("json1.aspx?m=m", null, function(callbackmsg) { var pr...

javascriptJSON操作入门实例_json

JSON的规则很简单：对象是一个无序的“‘名称/值'对”集合。一个对象以“{”（左括号）开始，“}”（右括号）结束。每个“名称”后跟一个“:”（冒号）；“‘名称/值' 对”之间使用“,”（逗号）分隔。具体细节参考http://www.json.org/json-zh.html 这篇有个入门的文章，也可以参考下 JSON 学习之完全手册图文举个简单的例子： js 代码代码如下: function showJSON() { var user = { "username":"andy", "age":20, "info": { "...

JavaScript入门之对象与JSON详解_基础知识

JavaScript对象与传统的面向对象中的对象几乎没有相似之处，传统的面向对象语言中，创建一个对象必须先有对象的模板：类，类中定义了对象的属性和操作这些属性的方法。通过实例化来构筑一个对象，然后使用对象间的协作来完成一项功能，通过功能的集合来完成整个工程。而Javascript中是没有类的概念的，借助JavaScript的动态性，我们完全可以创建一个空的对象(而不是类)，通过像对象动态的添加属性来完善对象的功能。 JSON是JavaScr...

入门 - 相关标签

入门编程入门基础教程

JSON - 最热教程

demjsonpython如何安装？简介dem指标的...基于JSON格式数据的简单jQuery幻灯片插...如何处理JSON中的特殊字符 node将geojson转shp返回给前端的实现方...nodejs更新package.json中的dependenci...怎样使用js实现前后台传输Json JavaScript使用两种方法实现url解析为j...php获取通过url的json数据，返回的是空...php判断json格式是否正确的方法 Redis中添加json格式的字符串

首页 / JSON / kbmmw 中JSON 操作入门

kbmmw 中JSON 操作入门

内容导读

内容图文

内容总结

内容备注

内容手机端

【kbmmw 中JSON 操作入门】教程文章相关的互联网学习教程文章