mormot 使用json笔记1

米线老鼠

于 2023-11-21 15:44:45 发布

阅读量416

点赞数 2

CC 4.0 BY-SA版权

文章标签： json 笔记

本文链接：https://blog.csdn.net/loadymf/article/details/134533632

文章介绍了在Lazarus中使用Mormot库处理JSON时遇到的Unicode编码问题，以及两种方法：一是通过TDocVariantData对象操作，二是利用variant类型进行对象形式访问。展示了如何初始化、添加和更新JSON数据，以及路径访问数据。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

mormot 使用json笔记1,

转到lazarus原来superobject用不了，lazarus原生的json(引用fpjson, jsonparser,)存在编码问题，很多网络json是用unicode编码，软件用utf8都乱码了，使用mormot的json还可以，就是引用的文件比较多

使用方法一：直接使用

procedure TForm1.Button3Click(Sender: TObject);
var
 jObject,jo1:TDocVariantData;
 s:string;
 i:integer;
begin
 jObject.InitJSON('{}',[dvoCheckForDuplicatedNames]);//
 s:='中国人';
 jObject.U['Username']:=s;//lazarus要用U，不然会乱码，Utf8编码

 jo1.Init();//:=(jobject.O_['data']^);
 jo1.U['addr']:='家庭地址';
 jo1.U['workaddr']:='工作单位';
 // jobject.O_['data']^.AddValueFromText('addr','三中');//这个也可以加添加
  jobject.O_['data']^.AddOrUpdateFrom(_json(jo1.ToJSON()),false);//.O 没有值则不添加和.O_没有则添加

//O是对象‘{}‘，A是列表'[]'
  s:=jObject.ToJSON();
  //showmessage((s));
  memo1.Append((s));
  memo1.Append(jo1.ToJSON());
  jo1.U['addr']:='新工作单位';
  jobject.O_['data']^.AddOrUpdateFrom(_json(jo1.ToJSON()),false);//更新数据
     s:=jObject.ToJSON();
  memo1.Append((s));
  memo1.Append(jo1.ToJSON());
  jo1.Clear;//不影响jobject数据
     s:=jObject.ToJSON();
  memo1.Append((s));
   memo1.Append(jo1.ToJSON());
  s:=jObject.u['Username'];


  jdata:=jobject.getValueByPath('data.addr');
  memo1.Append(jdata);
end;

使用方法二:: variant类型，可能用用对象形式访问！

procedure TForm1.Button4Click(Sender: TObject);
var
jData: variant;
 jObject,jo1:TDocVariantData;
begin
 TDocVariantData(jData).InitJSON('{}');//初始化，不然后面会出错
 jdata.ymf:='张三' ;
 jdata.NAME:='loadymf';
 jobject.InitJSON('{}');//没有初始化最后会有很多null出现
 jobject.AddOrUpdateFrom(jdata,true);//jobject.O_['data']^.AddOrUpdateFrom(jdata,true);
 jobject.AddOrUpdateFrom(jdata,true);
 memo1.Append(jobject.ToJSON());
end;