网上文摘 最近更新 下载排行 资源分类 下载指南
经典编程资源 精彩不容错过
设为首页
加入收藏
联系我们
当前位置:Delphi园地精选控件套件 → JsonDataObjects
  本周下载排行
  本月下载排行
资源名称:JsonDataObjects
文件类型: RAR
适用版本: D2009, XE10.1
发 布 者: DelphiFans
资源类型: 免费
资源大?。?/td> 57 KB
资源等级:
整理时间: 2016-09-01 19:44:53
资源网址: https://github.com/ahausladen/JsonD..
下载次数: 本 周:5 本月:5 总计:581
下载链接:
资源简介: This Delphi unit contains a JSON parser that supports Delphi 2009-10Seattle and the platforms Win32, Win64 and ARM Android (MacOS and iOS may work).

Clone with GIT

> git clone [email protected]:ahausladen/JsonDataObjects.git
or

> git clone https://github.com/ahausladen/JsonDataObjects.git
This will get you the Json Data Objects repository.

How to install

Clone the JsonDataObjects repository
Add the JsonDataObjects.pas unit to your project.
Features

Fast dual JSON parser for parsing UTF8 and UTF16 without conversion
Automatic creation of arrays and objects
Easy access mode with implicit operators
Compact and formatted output modes
Variants support
Null can be auto-typecasted to a value type if JsonSerializationConfig.NullConvertsToValueTypes is set to True
Progress callback support for loading large JSON strings
Win32, Win64 and ARM Android support (MacOS and iOS may work)
Usage

Simple example

var
 Obj: TJsonObject;
begin
 Obj := TJsonObject.Parse('{ "foo": "bar", "array": [ 10, 20 ] }') as TJsonObject;
 try
  ShowMessage(Obj['foo']);
  ShowMessage(IntToStr(Obj['array'].Count));
  ShowMessage(IntToStr(Obj['array'].Items[0]));
  ShowMessage(IntToStr(Obj['array'].Items[1]));
 finally
  Obj.Free;
 end;
end;
Filling and serializing JSON objects

var
 Obj, ChildObj: TJsonObject;
begin
 Obj := TJsonObject.Create;
 try
  // easy access
  Obj['foo'] := 'bar';
  // normal (and faster) access
  Obj.S['bar'] := 'foo';
  // automatic array creation, Obj is the owner of 'array'
  Obj.A['array'].Add(10);
  Obj.A['array'].Add(20);
  // automatic object creation, 'array' is the owner of ChildObj
  ChildObj := Obj.A['array'].AddObject;
  ChildObj['value'] := 12.3;
  // automatic array creation, ChildObj is the owner of 'subarray'
  ChildObj.A['subarray'].Add(100);
  ChildObj.A['subarray'].Add(200);

  ShowMessage(Obj.ToJSON({Compact:=}False));
 finally
  Obj.Free;
 end;
{
  "foo": "bar",
  "bar": "foo",
  "array": [
    10,
    20,
    {
      "value": 12.3,
      "subarray": [
        100,
        200
      ]
    }
  ]
}
Copying JSON objects with Assign

var
 Obj, ClonedObj: TJsonObject;
begin
 Obj := TJsonObject.ParseUtf8('{ "foo": [ "bar", {}, null, true, false, { "key": "value" } ] }') as TJsonObject;
 try
  ClonedObj := TJsonObject.Create;
  try
   // Make a copy of Obj
   ClonedObj.Assign(Obj);
   ShowMessage(ClonedObj.ToJSON(False));
  finally
   ClonedObj.Free;
  end;
 finally
  Obj.Free;
 end;
end;
{
  "foo": [
    "bar",
    {},
    null,
    true,
    false,
    {
      "key": "value"
    }
  ]
}
下载帮助(?) 下载链接错误报告或者意见反馈
下载说明:
关于我们 | 广告服务 | 发布资源 | 江西时时彩停售公告 Copyright 2001-2018 Delphi园地 All Rights Reserved
  • 欧阳绍修:孜孜以求为祖国研制“争气机” 2019-06-13
  • 新疆举办高考招生咨询会 2019-06-13
  • 日喀则市转变发展方式 构建现代农业 2019-06-08
  • 直播回放:大型山水实景演出《遇见·鹿泉》 2019-06-08
  • “厨房革命”让你吃得更放心 2019-05-10
  • 回复@海之宁:啥事都要等安排,做好了无所得,做坏了不担责……那不是害人么? 2019-05-10
  • 亚冠-曾诚神扑救主 中超德比权健主场0-0恒大 2019-04-26
  • [微笑]其实很简单就能破这个局:立法禁止通过房地产二次交易获利,炒房就会被杜绝,炒房一旦被杜绝,房价就会受正常供需关系影响波动在合理范围内。 2019-04-13
  • 图解:第十九届中共中央组织结构图 2019-04-13
  • 高清组图遵义会议旧址重温中国革命的"生死转折" 2019-04-06
  • 始终坚持以人民为中心的发展思想不断满足群众日益增长美好生活需要 2019-04-03
  • 这艘中国船刚干了件勾起美国加拿大敏感矛盾的事,但国内却没啥人知道… 2019-03-23
  • 新疆呼图壁荒山变绿洲 水鸟不断增多 2019-03-20
  • 碧桂园宣布进军农业,将投资袁隆平第三代杂交水稻推广研究 2019-03-17
  • 套餐不限量,大优惠还是文字游戏? 2019-03-17
  • 214| 204| 982| 241| 480| 604| 463| 227| 886| 871|