(プロジェクトは、https://bitbucket.org/OldTPFun/delphitest/src/master/JsonTest/Proj2/ に配置してあります。)
今回読み書きするのは以下のようなファイル。
{"TownName":"木組みの家と石畳の街", "Shops":{ "ラビットハウス": {"ShopName":"ラビットハウス", "Clerks":[ {"Name":"ココア","Age":17}, {"Name":"チノ","Age":15}, {"Name":"リゼ","Age":17} ] }, "甘兎庵": {"ShopName":"甘兎庵", "Clerks":[ {"Name":"チヤ","Age":17} ] } } }
先ずは書き込みから。
今回は、Keyが文字列で、ValueがTCoffeeShop型のTDictionaryをシリアライズ・デシリアライズすればよいので、前回にならって、TDictionary
TCoffieShopDicConverter = class(TJsonDictionaryConverter<string, TCoffeeShop>);
を作成して、上記のJSON文字列にシリアライズするためのクラスを作成して、TDictionary
[JsonSerialize(TJsonMemberSerialization.&Public)] TCofeeShopList = class private FTownName: String; FShops: TObjectDictionary<string, TCoffeeShop>; procedure SetTownName(const Value: String); procedure SetShops(const Value: TObjectDictionary<string, TCoffeeShop>); public property TownName : String read FTownName write SetTownName; [JsonConverter(TCoffieShopDicConverter)] property Shops : TObjectDictionary<string, TCoffeeShop> read FShops write SetShops; constructor Create; end;
で、シリアライズするためのコード
procedure TForm1.Button1Click(Sender: TObject); var CoffeeShop1,CoffeeShop2 : TCoffeeShop; serializer: TJsonSerializer; CofeeShopList : TCofeeShopList; s : string; begin CofeeShopList := TCofeeShopList.Create; CoffeeShop1 := TCoffeeShop.Create; CoffeeShop2 := TCoffeeShop.Create; try CoffeeShop1.ShopName := 'ラビットハウス'; CoffeeShop1.Clerks.Add(TClerk.Create('ココア',17)); CoffeeShop1.Clerks.Add(TClerk.Create('チノ',15)); CoffeeShop1.Clerks.Add(TClerk.Create('リゼ',17)); CoffeeShop2.ShopName := '甘兎庵'; CoffeeShop2.Clerks.Add(TClerk.Create('チヤ',17)); CofeeShopList.TownName := '木組みの家と石畳の街'; CofeeShopList.Shops.Add(CoffeeShop1.ShopName,CoffeeShop1); CofeeShopList.Shops.Add(CoffeeShop2.ShopName,CoffeeShop2); serializer := TJsonSerializer.Create; try s := serializer.Serialize(CofeeShopList); Memo1.Text := s; TFile.WriteAllText('CoffeeShop.Json',s); finally serializer.Free; end; finally CofeeShopList.Shops.Clear; CofeeShopList.Free; end; end;
を書いて実行すると、見事に成功と思いきや・・・・
例外クラスEAbstractError (メッセージ'抽象エラー')を送出しました。
と例外が発生。ありゃりゃ。
デバッグ実行した結果、PropertyToKeyの呼び出し時に例外が発生していることが分かったので、System.JSON.Converters.pasのTJsonDictionaryConverter<k,v>の定義を調べてみると、
TJsonDictionaryConverter<k,v> = class(TJsonConverter) protected function CreateDictionary: TDictionary<k,v>; virtual; function PropertyToKey(const APropertyName: string): K; virtual; abstract; function KeyToProperty(const AKey: K): string; virtual; abstract; function ReadKey(const AReader: TJsonReader; const ASerializer: TJsonSerializer): string; function ReadValue(const AReader: TJsonReader; const ASerializer: TJsonSerializer): V; virtual; procedure WriteValue(const AWriter: TJsonWriter; const AValue: V; const ASerializer: TJsonSerializer); virtual; public procedure WriteJson(const AWriter: TJsonWriter; const AValue: TValue; const ASerializer: TJsonSerializer); override; function ReadJson(const AReader: TJsonReader; ATypeInf: PTypeInfo; const AExistingValue: TValue; const ASerializer: TJsonSerializer): TValue; override; function CanConvert(ATypeInf: PTypeInfo): Boolean; override; end;
と、PropertyToKey,とKeyToPropertyにabstractがついているので、この2つは、継承先のコンバーターで実装しないといけなかったのね。
System.JSON.Converters.pasに、TJsonDictionaryConverterを継承した、キーが文字列のTJsonStringDictionaryConverter<V>の定義が あるので、中身をみてみると、
TJsonStringDictionaryConverter<V> = class(TJsonDictionaryConverter<string, V>) protected function PropertyToKey(const APropertyName: string): string; override; function KeyToProperty(const AKey: string): string; override; end;
とあって、実装が
function TJsonStringDictionaryConverter<V>.KeyToProperty(const AKey: string): string; begin Result := AKey; end; function TJsonStringDictionaryConverter<V>.PropertyToKey(const APropertyName: string): string; begin Result := APropertyName; end;
となっているので、Dictionaryのコンバーターを作成する時は、TJsonDictionaryConverterから、キーの型を決めた派生型を作成し、KeyToPropertyにはキーから文字列に変換、PropertyToKeyには文字列からキーの型のインスタンスへの変換を自前で実装すれば、良いわけですね。
例えば、キーが整数型のDictionaryのコンバータは
TJsonIntegerDictionaryConverter<V> = class(TJsonDictionaryConverter<Integer, V>) protected function PropertyToKey(const APropertyName: string): Integer; override; function KeyToProperty(const AKey: Integer): string; override; end; function TJsonStringDictionaryConverter<V>.KeyToProperty(const AKey: Integer): string; begin Result := AKey.ToString; end; function TJsonStringDictionaryConverter<V>.PropertyToKey(const APropertyName: string): Integer; begin Result := APropertyName.ToInteger; end;
とすれば、良いわけだ。
今回は、定義済みの、TJsonStringDictionaryConverterを使用して先ほどの
TCoffieShopDicConverter = class(TJsonDictionaryConverter<string, TCoffeeShop>);
を
TCoffieShopDicConverter = class(TJsonStringDictionaryConverter<TCoffeeShop>);
に修正し実行すれば、目的のJSON形式の文字列のファイルが作成できます。
ファイルの読み込みは前回と同様、次のコードになります。(確認用に読み込んだものメモに列挙しております。)
procedure TForm1.Button2Click(Sender: TObject); var CoffeeShop : TCoffeeShop; CofeeShopList : TCofeeShopList; serializer: TJsonSerializer; s : string; Clerk : TClerk; begin s := TFile.ReadAllText('CoffeeShop.Json',TEncoding.UTF8); serializer := TJsonSerializer.Create; try CofeeShopList := serializer.Deserialize<tcofeeshoplist>(s); try Memo1.Clear; Memo1.Lines.Add(CofeeShopList.TownName); for CoffeeShop in CofeeShopList.Shops.Values do begin Memo1.Lines.Add(CoffeeShop.ShopName); for Clerk in CoffeeShop.Clerks do begin Memo1.Lines.Add(Clerk.Name + '(' + Clerk.Age.ToString() + ')'); end; end; finally CoffeeShop.Clerks.Clear(); CoffeeShop.Free; end; finally serializer.Free end;