delphi 实体类 JSON 数组

delphi 实体类 与JSON转换,序列化

TJson
REST.JSON.pas
 
TJson.JsonToObject
TJson.ObjectToJsonString
JsonEncode
ObjectToJsonObject
 
http://docwiki.embarcadero.com/Libraries/Seattle/en/REST.Json.TJson_Methods
 
 
 
 

TJsonReader\TJsonTextWriter

uses System.JSON.Readers,System.JSON.Writers

http://docwiki.embarcadero.com/Libraries/Seattle/en/System.JSON.Readers

http://docwiki.embarcadero.com/Libraries/Seattle/en/System.JSON.Writers

 

http://docwiki.embarcadero.com/Libraries/Seattle/en/System.JSON.Readers.TJsonReader

http://docwiki.embarcadero.com/Libraries/Seattle/en/System.JSON.Writers.TJsonTextWriter

http://docwiki.embarcadero.com/Libraries/Seattle/en/System.JSON.Readers.TJsonReader_Methods
http://docwiki.embarcadero.com/Libraries/Seattle/en/System.JSON.Writers.TJsonTextWriter_Methods
 
来源
http://www.malcolmgroves.com/blog/?p=1084
http://stackoverflow.com/questions/21528552/how-to-bind-contained-objects-with-live-binding
https://community.embarcadero.com/blogs/entry/xe3-visual-livebindings-user-defined-c-objects-32002
 

unit CollectionObjects;

interface

type
TPerson = class private FAge: Integer; FLastName: string; FFirstName: string; public constructor Create(const FirstName, LastName: String; Age: Integer); property FirstName: string read FFirstName write FFirstName; property LastName: string read FLastName write FLastName; property Age: Integer read FAge write FAge; end; implementation { TPerson } constructor TPerson.Create(const FirstName, LastName: String; Age: Integer); begin FFirstName := FirstName; FLastName := LastName; FAge := Age; end;

 

fMyPeople: TObjectList;

fMyPeople := TObjectList.Create(True);

// The individual TPerson objects
fMyPeople.Add(TPerson.Create('Gomez', 'Addams', 40));
fMyPeople.Add(TPerson.Create('Morticia', 'Addams', 38));
fMyPeople.Add(TPerson.Create('Pugsley', 'Addams', 8));
fMyPeople.Add(TPerson.Create('Wednesday', 'Addams', 12));



// Use TObjectBindSourceAdapter for a single object
ABindSourceAdapter := TListBindSourceAdapter.Create(Self, FMyPeople, True);

function PrettyJSON(AJson: String): String;
begin
Result := StringReplace(AJson, '},', '},' + sLineBreak, [rfReplaceAll]);
Result := StringReplace(Result, '[{', '[' + sLineBreak + '{', [rfReplaceAll]);
end;

procedure TABSMainForm.JsonToObjects;
var
NewPeople: TObjectList;
begin
NewPeople := TJson.JsonToObject>(Memo1.Text);
fMyPeople.Clear;
fMyPeople.AddRange(NewPeople.ToArray);
end;

procedure TABSMainForm.ObjectsToJson;
begin
Memo1.Text := PrettyJSON(TJson.ObjectToJsonString(fMyPeople));
end;

 JsonToObject

ObjectToJsonString

JSON字符串转换为对象

{"ownsObjects":true,"listHelper":[9],"items":[
{"age":40,"lastName":"Addams","firstName":"Gomez"},
{"age":38,"lastName":"Addams","firstName":"Morticia"},
{"age":8,"lastName":"Addams","firstName":"Pugsley"},
{"age":12,"lastName":"Addams","firstName":"Wednesday"},
{"age":55,"lastName":"Fester","firstName":"Uncle"},
{"age":72,"lastName":"Frump","firstName":"Grandmama"},
{"age":50,"lastName":"Lurch","firstName":""},
{"age":99,"lastName":"Thing","firstName":"Thing T."},
{"age":21,"lastName":"Itt","firstName":"Cousin"},
null,null,null,null,null,null,null]}

 TJson::ObjectToJsonString();

 

数据集转为Json

DataSetConverter4Delphi

https://github.com/ezequieljuliano/DataSetConverter4Delphi

 

Object>JsonString 类对象序列化为json字符串。

TPerson=class()....

string astr:= TJson.ObjectToJsonString(person);

JsonString反序列化 实例化为类对象

person := TJson.JsonToObject(astr);

 

Tokyo 10.2新增类,效率更高更快。

TJsonSerializer

Serializer:=TJsonSerializer.Create

String astr=Serializer.Serialize(aperson);

person= nSeriallizer.Deserialize(astring);

 

感觉TJsonSerializer与.net的开源Newtonsoft.Json类似,功能基本相同了。

TJsonSerializer在c++builder的应用

https://community.embarcadero.com/blogs/entry/10-2-tokyo-tjsonserializer-and-json-converters

First declare with Pascal to use the converter and generics.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    
////
unit Unit2;
 
interface
uses
  System.JSON.Converters, System.JSON.Serializers, System.Generics.Collections;
type
  TListString = TList<String>;
  TDictionaryStrStr = class(TDictionary<String, String>)
    constructor Create; overload;
 
  end;
  TTJsonListConverterString = TJsonListConverter<String>;
  TJsonDictionaryConverterStrStr = class(TJsonStringDictionaryConverter<String>)
  end;

This is because the use of generics in C++Builder. C++Builder used Win64.
1
2
3
4
5
6
    
////
#include <System.JSON.Converters.hpp>
#include <System.JSON.Serializers.hpp>
#include <System.Generics.Collections.hpp>
#include <System.JSON.Writers.hpp>
#include <memory>
View Code
 
////
template <typename T1, typename T2>
struct jCollections
{
    UnicodeString _property_name{L""};
    std::unique_ptr<TStringWriter> _string_write{std::make_unique<TStringWriter>()};
    std::unique_ptr<TJsonSerializer> _j_serializer{std::make_unique<TJsonSerializer>()};
    std::unique_ptr<TJsonTextWriter> _json_writer{std::make_unique<TJsonTextWriter>(_string_write.get())};
    jCollections(UnicodeString lname)
    {
        ///Constructor.
        ///Determine the property name.
        _property_name = lname;
    }
    String listtoj(T1 l_list)
    {
        ///Start of object and setting property name.
        _json_writer->WriteStartObject();
        _json_writer->WritePropertyName(_property_name);
        ///TJsonListConverter__1 or TJsonDictionaryConverterStrStr.
        std::unique_ptr<T2 > l_json_conv{std::make_unique<T2 >()};
 
        ///Here convert the value of the input list.
        l_json_conv->WriteJson(_json_writer.get(), TValue::_op_Implicit(l_list), _j_serializer.get());
        _json_writer->WriteEndObject();
        ///returns a string.
        return _string_write->ToString();
    }
 
};
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TList__1<String>* l_list= new TList__1<String>();
    try
    {
        jCollections<TList__1<String>*, TJsonListConverter__1<String> > _jCollections{L"language_List"};
        l_list->Add("Python");
        l_list->Add("Delphi");
        l_list->Add("C++");
        l_list->Add("JAVA");
        l_list->Add("ひまわり");
        Memo1->Lines->Append(_jCollections.listtoj(l_list) );
    }
    __finally
    {
        delete l_list;
    }
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    TDictionaryStrStr* l_dic = new TDictionaryStrStr();
    try
    {
        jCollections<TDictionaryStrStr*, TJsonDictionaryConverterStrStr > _jCollections{L"2017_MotoGP_standings"};
        l_dic->Add("Maverick Vinales", "Movistar Yamaha");
        l_dic->Add("Andrea Dovizioso", "Ducati");
        l_dic->Add("Valentino Rossi", "Movistar Yamaha");
        l_dic->Add("Marc Marquez", "Repsol Honda Team");
        l_dic->Add("Dani Pedrosa", "Repsol Honda Team");
        Memo1->Lines->Append(_jCollections.listtoj(l_dic));
    }
    __finally
    {
        delete l_dic;
    }
 
 
}
View Code

Button1 is TList<String> to JSON Convert. Button2 is TDictionary<String, String>to JSON.

delphi 实体类 JSON 数组_第1张图片

 

 

3.数组json

  TUser = class
  public
    FAge: Integer;
    FLastName: string;
    FFirstName: string;

  end;

 TJsonSerializer的序列化操作,class和 record都支持,使用起来太方便了。

数组2json

procedure TForm3.Button14Click(Sender: TObject);
var
  user: TUser;
  userList: TArray;
begin
  user := TUser.Create;
  user.FAge := 1;
  user.FFirstName := 'delphi';
  user.FLastName := 'berlin';

  SetLength(userList, 2);

  userList[0] := user;

  user := TUser.Create;
  user.FFirstName := 'delphi';
  user.FAge := 2;
  user.FLastName := 'tokyo';

  userList[1] := (user);
  self.Memo1.Text := TJsonSerializer.Create.Serialize(userList);

end;

 

json2数组

procedure TForm3.Button15Click(Sender: TObject);
var
  userList: TArray;
  user: TUser;
  i: TArray;
begin
  userList := TJsonSerializer.Create.Deserialize < TArray < TUser >> (Memo1.Text);

  Memo2.Clear;
  for user in userList do
  begin
    Memo2.Lines.Add(user.FAge.ToString);
    Memo2.Lines.Add(user.FFirstName);
    Memo2.Lines.Add(user.FLastName);
  end;

end;

 

你可能感兴趣的:(json,c/c++,java)