Delphi用QJSON解析JSON格式的数据 【转】

本来用superobject来解析JSON已经够用了,可惜这个东东不能在移动端使用,于是找到QJSON来处理。

这是一个国内高手写开源免费的东西,赞一个。

假入数据如下:

{"message":"ok","status":"1","state":"3","data":
[{"time":"2012-07-07 13:35:14","context":"客户已签收"},
{"time":"2012-07-07 09:10:10","context":"离开 [北京石景山营业厅] 派送中,递送员
[温],电话[]"},
{"time":"2012-07-06 19:46:38","context":"到达 [北京石景山营业厅]"},
{"time":"2012-07-06 15:22:32","context":"离开 [北京石景山营业厅] 派送中,递送员
[温],电话[]"},
{"time":"2012-07-06 15:05:00","context":"到达 [北京石景山营业厅]"},
{"time":"2012-07-06 13:37:52","context":"离开 [北京_同城中转站] 发往 [北京石景山
营业厅]"},
{"time":"2012-07-06 12:54:41","context":"到达 [北京_同城中转站]"},
{"time":"2012-07-06 11:11:03","context":"离开 [北京运转中心驻站班组] 发往 [北京_
同城中转站]"},
{"time":"2012-07-06 10:43:21","context":"到达 [北京运转中心驻站班组]"},
{"time":"2012-07-05 21:18:53","context":"离开 [福建_厦门支公司] 发往 [北京运转中
心_航空]"},
{"time":"2012-07-05 20:07:27","context":"已取件,到达 [福建_厦门支公司]"}
]}

procedure TForm15.Button1Click(Sender: TObject);
var
  aqjson,aqjsonarr : TQJSON;
  i : Integer;
  stime, scontext : string;
begin
  aqjson := TQJSON.Create;
  aqjson.parse(memo1.lines.text);
  if aqjson.ValueByName(‘message‘, ‘‘) = ‘ok‘ then
  begin
    memo2.Clear;
    aqjsonarr := aqjson.ItemByName(‘data‘);
    for i := 0 to aqjsonarr.Count - 1 do
    begin
      stime := aqjsonarr.Items[i].ValueByName(‘time‘, ‘‘);
      scontext := aqjsonarr.Items[i].ValueByName(‘context‘, ‘‘);

      Memo2.Lines.Add(stime+‘----‘+scontext);
    end;
  end;
end;

可以看到QJSON的解析还是很方便的。

不过这种格式存在大量冗余数据——每个数据项都携带了字段信息,其实可以只返回一次字段信息即可。

数据精简如下:

{"message":"ok","status":"1","state":"3","data":
["2012-07-07 13:35:14","客户已签收",
 "2012-07-07 09:10:10","离开 [北京石景山营业厅] 派送中,递送员[温],电话[]",
]} 

可以看到数组里面的串不再是JSON格式(Key:Value)的了,这时不能再使用ValueByName,而直接使用Value。
procedure TForm15.Button2Click(Sender: TObject);
var
  aqjson,aqjsonarr : TQJSON;
  i : Integer;
  stime, scontext : string;
begin
  aqjson := TQJSON.Create;
  aqjson.parse(memo3.lines.text);
  if aqjson.ValueByName(‘message‘, ‘‘) = ‘ok‘ then
  begin
    memo2.Clear;
    aqjsonarr := aqjson.ItemByName(‘data‘);
    for i := 0 to aqjsonarr.Count - 1 do
    begin
      stime := aqjsonarr.Items[i].ValueByName(‘time‘, ‘‘);
      scontext := aqjsonarr.Items[i].ToString;

      Memo2.Lines.Add(stime+‘----‘+scontext);
    end;
  end;
end;

实际编码中,会存在返回图片到客户端的情况,如果也采用JSON格式传输的话,需要把图片转成Base64格式的传包装,然后再传输到客户端解析。

这里是一个演示,首先把图片转成流:

Image1.Picture.Graphic.SaveToStream(ss);

然后编码成base64格式的:

EncodeStream(ss, ss1);

注意ss和ss1的定义:

var
  ss: TMemoryStream;
  ss1,ss2 : TStringStream;
EncodeStream的调用需要引用EncdDecd.pas单元。

然后把流转成字符串
var
  sdata : string;
begin
...
  sData := ss1.DataString;
...
end;

再把该字符串包装到JSON串:

var
  aqjson : TQJSON;
begin
  aqjson := TQJSON.Create;
  aqjson.Parse(memo3.Lines.Text);
...
  aqjson.AddArray(‘pic‘).Add.AsString :=sdata;
...
end;

这样图片就打包到JSON里面了,传到客户端以后,再反过来解析即可:

ss2 := TStringStream.Create(aqjson.ItemByName(‘pic‘).Items[0].value);
DecodeStream(ss2,ss);//将base64字符流还原为内存流
ss.Position := 0; // 必须
Image2.Picture.Graphic.LoadFromStream(ss);

转自:https://www.cnblogs.com/codingnote/p/3821025.html?utm_source=tuicool&utm_medium=referral

原文地址:https://www.cnblogs.com/railgunman/p/10805625.html

时间: 2024-11-05 17:30:00

Delphi用QJSON解析JSON格式的数据 【转】的相关文章

Delphi用QJSON解析JSON格式的数据

本来用superobject来解析JSON已经够用了,可惜这个东东不能在移动段使用,于是找到QJSON来处理. 这是一个国内高手写开源免费的东西,赞一个. 加入数据如下: {"message":"ok","status":"1","state":"3","data": [{"time":"2012-07-07 13:35:14"

解析JSON格式数据

 别想一下造出大海,必须先由小河川开始. 本讲内容:解析JSON格式数据 1)比起XML,JSON的主要优势在于它的体积更小,在网络上传输的时候可以更省流量.但缺点在于,它的语义性较差,看起来不如XML直观. 2)解析JSON格式的数据有多种方式,常用的两种是:使用官方提供的JSONObject和谷歌的开源库GSON. 示例一:解析服务器返回的数据 一.JSONObject解析方式 步骤: 1.在服务器中定义一个JSONArray,并将服务器返回的数据传入到JSONArray对象中 2.循环

用GSON解析Json格式数据

GSON是谷歌提供的开源库,用来解析Json格式的数据,非常好用.如果要使用GSON的话,则要先下载gson-2.2.4.jar这个文件,如果是在Android项目中使用,则在Android项目的libs目录下添加这个文件即可:如果是在Java项目中,则把gson-2.2.4.jar先添加到当前项目的任意一个包中,然后右键点击这个jar包 -> 构建路径 -> 添加至构建路径.这样准备工作就做好了. (一)单条无嵌套Json数据的解析 比如有如下Json数据:{"name"

android学习二十三(解析json格式数据)

前面我们已经掌握了xml格式数据的解析方式,那么接下来我们学习下如何解析json格式的数据.比起xml,json的主要优势在于它体积更小,在网络上传输的时候可以更省流量.但缺点在于,它的语义性差,看起来不如xml直观. 开始之前,先在自己的电脑apache-tomcat-6.0.39\webapps\ROOT路径目录下新建一个get_data.json的文件,然后编辑这个文件,并加入如下json格式的内容: [{"id":"5","version"

在C#中通过使用Newtonsoft.Json库来解析百度地图地理编码(GeoCoder)服务接口返回的Json格式的数据

百度地图地理编码(GeoCoder)服务接口返回的Json格式的数据,如下所示: http://api.map.baidu.com/geocoding/v3/?address=**省**市**区**路**号院**社区&output=json&ak=您的AK密钥 返回结果实例: { "status":0, "result": { "location":{"lng":116.79, "lat":

Android上解析Json格式数据

package com.practice.json; import org.json.JSONArray; import org.json.JSONException; import org.json.JSONObject; import android.app.Activity; import android.os.Bundle; import android.util.Log; public class JsonDemo extends Activity { /*http://www.hui

将Array格式的数据解析成JSON格式的数据

在编程的过程中,数据的传输格式如何,会影响开发的效率和后期代码的维护, 并且现在许多的js中支持了JSON格式的数据, 比如angular.nodejs.本篇文章主要讲解Array(数组)形式数据的解析.其它格式的数据会在后续的文章中进行书写. (1)定义一个解析Array的类JSONArray. public class JSONArray { @SuppressWarnings("unchecked") public static String toJSONString(List

如何使用fastJson来解析JSON格式数据和生成JSON格式数据

由于项目用到了JSON格式的数据,在网上搜索到了阿里的fastjson比较好用,特此记录fastjson用法,以备以后查询之用. decode: 首先创建一个JSON解析类: public class JsonParser { private int devid; public int getDevid() { return devid; } public void setDevid(int devid) { this.devid = devid; } } 在需要用到解析的地方创建一个对应的对象

Jquery解析Json格式数据

今天稍微学习了一下Json,JSON (JavaScript Object Notation) 是一种轻量级的数据交换格式. 易于人阅读和编写.同时也易于机器解析和生成. JSON采用完全独立于语言的文本格式,但是也使用了类似于C语言家族的习惯(包括C, C++, C#, Java, JavaScript, Perl, Python等). 这些特性使JSON成为理想的数据交换语言. JSON建构于两种结构: “名称/值”对的集合(A collection of name/value pairs)