61 lJSONString: String = '{"type":"Unit2.TPerson","id":1,"fields":{"Name":"Hezihang","Password":"123","Age":23}}'; 62 begin 63 Memo1.Lines.Clear; 64 /// Object Convert to JSON 65 Memo1.Lines.Add('Object to JSON String'); 66 Memo1.Lines.Add('---'); 67 Memo1.Line...
72 lJSONValue := ObjectToJSON(lPerson); 73 FreeAndNil(lPerson); 74 Memo1.Lines.Add(lJSONValue.ToString); 75 lJSONValue.Free; 76 Memo1.Lines.Add(''); 77 Memo1.Lines.Add('---'); 78 /// JSON Convert to Object 79 Memo1.Lines.Add(''); 80 Memo1.Lines.Add('JSON String'' To...
"FieldSize":0,"FieldName":"ID","Required":false},{"JsonType":"string","FieldIndex":1,"FieldType":"String","FieldSize":100,"FieldName":"Title","Required":false},{"JsonType":"variant","FieldIndex":2,"FieldType":"Blob","FieldSize":0,"FieldName":"Picture","Required":false}]...
"Cols":[{"JsonType":"integer","FieldIndex":0,"FieldType":"Integer","FieldSize":0,"FieldName":"ID","Required":false},{"JsonType":"string","FieldIndex":1,"FieldType":"String","FieldSize":100,"FieldName":"Title","Required":false},{"JsonType":"variant","FieldIndex":2,"FieldTyp...
stString: Result := Json.S[Name]; end; end; class function TTableJSon.GetValue2Field(Field: TField; JsonValue:ISuperObject): Variant; begin if JsonValue.DataType = stNull then Result := Null else if Field is TDateTimeField then Result := JavaToDelphiDateTime(JsonValue.AsInteger) else...
showmessage( j.toJson() ); //查看j的json文本 j:=nil; //不能写j.Free end; 代码演示 因为这是在项目的边做边写的,所以我们还是用上一章的《Delphi调用动态链接库》PosPayIntf动态库项目,先看一下我们的目录结构 我们把Json这块的处理都放在了BaseClass下的Json文件夹下 ...
//把数组a添加进j,其key名为arr showmessage( j.toJson() ); //查看j的json文本 j:=nil; //不能写j.Free end; 代码演示 因为这是在项目的边做边写的,所以我们还是用上一章的《Delphi调用动态链接库》PosPayIntf动态库项目,先看一下我们的目录结构 ...
使用DBXJSONReflect 可以把json 和TObject 类型 相互转换。但是转换的结果却是让人难以接受。使用方法见:http://blog.csdn.net/cmdasm/article/details/12784627例如:delphi:{"type":"dtTest.TChapter","id":3,"fields":{"ID":2,"Caption":"我的章节2"}}C#, java ,js:{"ID":5,"Caption":"我的章节...
showmessage( aJson['animals'].AsString );{3、多值的读取} aSuperArray:= aJson['animals'].AsArray;//多值 "animals":[{"name":"猴⼦","year":"12"},// {"name":"⽼虎","year":"132"}]for i:=0to aSuperArray.Length-1do memo1.Lines.Add(aSuperArray[i]['name'].AsStri...
Delphi 10.4 Sydney RTTI marshalling of "Managed Records" ... What is JSON ? JSON (JavaScript Object Notation) is a lightweight data-interchange format. It is easy for humans to read and write. It is easy for machines to parse and generate. ...