网上文摘 最近更新 下载排行 资源分类 下载指南
经典编程资源 精彩不容错过
设为首页
加入收藏
联系我们
当前位置: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-04-13
  • 图解:第十九届中共中央组织结构图 2019-04-13
  • 高清组图遵义会议旧址重温中国革命的"生死转折" 2019-04-06
  • 始终坚持以人民为中心的发展思想不断满足群众日益增长美好生活需要 2019-04-03
  • 这艘中国船刚干了件勾起美国加拿大敏感矛盾的事,但国内却没啥人知道… 2019-03-23
  • 新疆呼图壁荒山变绿洲 水鸟不断增多 2019-03-20
  • 碧桂园宣布进军农业,将投资袁隆平第三代杂交水稻推广研究 2019-03-17
  • 套餐不限量,大优惠还是文字游戏? 2019-03-17
  • 凤凰月报:5月高端成交活跃带动均价创新高 ——凤凰网房产上海 2019-03-14
  • 云知声梁家恩:用语音智能 塑造智慧生活丨产品家16 2019-03-11
  • “中国端午·诗意宜昌”端午诗会精彩上演 2019-03-11
  • 长城新媒体集团基本情况简介 2019-03-08
  • 权健提前完成亚冠目标 小组赛拿13分恒大7年没做到 2018-08-10
  • 人民日报:美方一意孤行必将损人害己 2018-08-10
  • SUV销量5月大降 前五月乘用车轿车增长明显 2018-08-04
  • 225| 296| 350| 846| 284| 818| 359| 667| 392| 800|