JSON共32篇

本栏目向大家介绍Delphi生成JSON,主要包括Delphi生成、处理、解析JSON使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值。

Delphi中使用ISuperObject解析Json数据

下面先说一下ISuperObject中几个常用的函数function SO(const s: SOString = ‘{}’): ISuperObject; overload; 此函数传入json数据字符串,并返回一个ISuperObject对象,这一般是我们解析json...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
01079

Delphi 解析JSON生成JSON

unit Unit1;interfaceuses   System.SysUtils, System.Types, System.UITypes, System.Classes,  System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dia...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
010915

Delphi 用 SuperObject 解析淘宝上的 Json 数据

 测试 json {'items_search_response':{'item_search':{'item_categories':{'item_category':[{'category_id':150708,'count':66},{'category_id':50002480,'count':93},{'category_i...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0666

Delphi 关于内存数据与 JSON

闲话:正在用 WebBroker 写一个小网站,感受颇多:1、如果是写一个小东西,应该先考虑下 WebBroker,因为它是分分钟即可上手的。2、如果要写一个大东西,或许也应该考虑下 WebBroker,因为相比其...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
08215

Delphi调用JavaScript解析JSON

Delphi调用JavaScript解析Json1.首先加入ComObj单元2.加入函数functin RunJs(const JsCode,JsVar:string):string;var script:OleVariant;begin try  Script :=CreateOleObject('...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
05915

Delphi DataSetToJson JsonToDataSet

function _DataSetToJson(ADataset: TDataSet): string;// 不含字段类型 部分, 数据均按 字符串格式返回// [{'CityId':'18','CityName':'西安'},{'CityId':'53','CityName':'广州'}]var  L...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
05713
Delphi 将对象转换为JSON字符串或TJSONObject-Delphi编程技巧大全

Delphi 将对象转换为JSON字符串或TJSONObject

type  TPerson = record  private    FAge: Integer;    FName: string;  public    property Name: string read FName write FName;  &nbs...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
07814

Delphi JSON字符串转义

创建一个函数,将接收到的字符串转换为TJSONObject并显示它。uses  System.JSON;procedure Print(const JSONStr: string);var  JSONValue: TJSONValue;  JSONObj: TJSONObject;&...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
05012

Delphi中创建JSON字符串

这是在Delphi中创建JSON字符串的方法。使用TJSONObject创建键/值对。uses Data.DBXJSON;var  JSON: TJSONObject;begin  JSON := TJSONObject.Create;  JSON.AddPair('name', 'Jo...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
07414

Delphi xe使用TJSONObject解析JSON数据

在Delphi 10 Seattle中重写 “ 使用TJSONObject分析JSON数据 ”。由于不推荐使用某些方法,因此已对其进行了更改。要使用TJSONObject,请添加“ System.JSON”。uses System.JSON;使用TJSONObje...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04611

Delphi Json 转换成 TFDMemTable

工作的时候(虽然我不喜欢弄这些玩意儿) 需要将返回过来的json数据 转到本地的DBGrid展示。所以便搜罗了一下 ,使用 XSuperJSON 将数据转成内存表 使用 .我们从请求返回的JSON数组对象 ISuperArr...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0835
Delphi10.3通过Json.Serializers单元对大量数据序列化-Delphi编程技巧大全

Delphi10.3通过Json.Serializers单元对大量数据序列化

Delphi10.3通过Json.Serializers单元对大量数据序列化一、参考我之前的博客,Delphi可以很方便的把类和结构体转换成JSON数据,但是数据量大了,就会非常之慢,1万条数据需要20秒左右。如果引用S...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
07513
Delphi10.3通过REST单元使类和JSON数据互相转换-Delphi编程技巧大全

Delphi10.3通过REST单元使类和JSON数据互相转换

Delphi10.3通过REST单元使类和JSON数据互相转换一、我们定义一个简单的类复制代码  TPeople = class  private    FName: string;    FScore: Integer;  &nb...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0689

Delphi10.3读取JSON数据

Delphi10.3读取JSON数据一、我们有一段JSON数据如下:复制代码{    '五班': [        {            '姓名': '张三',   ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
06111

Delphi10.3构造一个JSON数据的第三种方法,并格式化输出

用Delphi10.3构造一个JSON数据的第三种方法,并格式化输出,代码如下:复制代码uses  // System.JSON,  System.JSON.Types,  System.JSON.Writers,  System.JSON.Builders;...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0488

Delphi10.3构造一个JSON数据的第二种方法,并格式化输出

用Delphi10.3构造一个JSON数据的第二种方法,并格式化输出,代码如下:复制代码uses  //System.JSON,  System.JSON.Types,  System.JSON.Writers;procedure TForm1.Button2Click...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0427
Delphi10.3读取JSON数组-Delphi编程技巧大全

Delphi10.3读取JSON数组

一、Delphi读取JSON数组是非常方便的,首先我们网上找一段JSON数据复制代码{ 'error': 0, 'status': 'success', 'date': '2014-03-04', 'results': [{  'currentCity'...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
01088
Delphi10.3 创建一条JSON数据-Delphi编程技巧大全

Delphi10.3 创建一条JSON数据

uses  System.JSON;procedure TForm1.Button1Click(Sender: TObject);var  m_Object, m_Json1, m_Json2: TJSONObject;  m_JsonArray: TJSONArray;begin  m_Object := TJSON...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0719

Windows 编程 窗体生成的过程

新建一个控制台程序, 贴入下面代码即可运行:program Project1;uses  Windows, Messages;{等待调用的过程, 用于在窗体上绘制文本}Procedure OnPaint(h: HDC);const  s = 'CodeGear Del...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
03710
Delphi使用JSON解析调用淘宝IP地址库REST API 示例-Delphi编程技巧大全

Delphi使用JSON解析调用淘宝IP地址库REST API 示例

Delphi XE 调试通过,关键代码如下:uses DBXJSON, DBXJSONCommon, DBXJSONReflect, IdHTTP,system.json;var  IdHTTP: TIdHTTP;  RequestURL: string;  ResponseStream: TString...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
05811

Delphi10.3 构造生成输出JSON数据

uses  System.JSON;procedure TForm1.Button1Click(Sender: TObject);var  m_Object, m_Json1, m_Json2: TJSONObject;  m_JsonArray: TJSONArray;begin  m_Object := TJSON...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
05015

Delphi中JSON回车换行符转义

Delphi使用json作为标准对接的时候,如果入参含有回车和换行符那么会破坏原json数据结构。导致服务端处理异常。这个时候就需要对输入的json字符串进行转义。首先Delphi中#13代表回车,#10代表换...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0439

DELPHI解析JSON格式化的日期

DELPHI解析JSON格式化的日期json返回的日期是 /Date(1560355200000)/ 这样的格式。这个1560355200000,是指1970年以后的秒数。DELPHI如何解析这种日期格式?网上找到的多是JAVASCRIPT的代码,没...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04813

Delphi中DataSet和JSON的互转

Delphi中DataSet和JSON的互转//1)数据集转换为JSON字符串://需USES System.JSON;function DataSetToJson(ADataset: TDataSet): string;// [{'CityId':'18','CityName':'西安'},{'CityId':'53'...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
03713

Delphi 10 Seattle plus 新特性——System.JSON.Builders

{   全能中间件 —— 简单、高效、稳定、安全的三层中间件   1.支持 多账套多数据库,包括SQLite, MySQL, SQL Server, Oracle, PostgreSQL, DB2, SQL Anywhere,Firebird等...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0636

Delphi xe10对json的解析应用

Json语句{'code':100,'state':'true','data':['hero','npc','pet']}引用单元System.JSON  类型说明//申明变量  Root:TJSONObject;  //赋值  Root:= TJSONObject.ParseJSONV...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0697

Delphi xe10 对 json的解析应用

Json语句{'code':100,'state':'true','data':['hero','npc','pet']}引用单元System.JSON  类型说明//申明变量  Root:TJSONObject;  //赋值  Root:= TJSONObject.ParseJSONV...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
05411

delphi xe5 delphi 解析 json

最简单的JSON大致像这样{          'date':'周二(今天, 实时:12℃)',          ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0506

delphi xe5 JSON

unit Unit1;interfaceuses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdC...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04412

delphi TFont类型和JSON互相转换的函数

 做一个小项目中,要将TFont保存下来,想使用JSON格式,所以写了两个函数进行互相转换![Quote title=""]function FontToJson(AFont: TFont): string;varJson: ISuperObject;beg...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0639