json - Delphi: super 对象序列化自定义转换器/逆变器

Question

我想序列化对象和记录以发送它们并在远程端点上恢复。有本地和远程端的共享对象声明单元。

我有一个记录，其中的字段包含作为 JSON 对象的不同记录:

TPmMessage = record
  CorrelationId: TGUID;
  BatchId: TGUID;
  MessageName: string; 
  Data: ISuperObject; // TAlarms, TCommand record and etc. can be inside as JSON object
end;

案例1

我需要在 JSON 对象中为数据字段写入类型名称 (TRttiType.QualifiedName)，以便在另一端反序列化。

示例结构:

  TDeviceInfo = record
    DeviceType: string;
    DeviceIp: string;
  end;

  TAlarmLocation = record
    Name: string;
    rack: Word;
    slot: Word;
    port: Word;
  end;

  TAlarmInfo = record
    AlarmType: string;
    Severity: string;
    ConditionType: string;
    Datetime: TDateTime;
    Location: TAlarmLocation;
  end;

  TAlarm = record
    DeviceInfo: TDeviceInfo;
    Alarm: TAlarmInfo;
  end;

  TAlarmsList = array of TAlarmInfo;

用法:

var
  msg: TPmMessage;
  als: TAlarms;
  ctx: TSuperRttiContext;
  JsonText: string;
begin
  ctx := TSuperRttiContext.Create;
  try
  SetLength(als,2);
  // init array of als
  ...
  // init TPmMessage Fields
  ...
  // serialize TAlarms
  msg.Data := ctx.AsJson<TAlarms>(als);
  // serialize TPmMessage
  JsonText := ctx.AsJson<TPmMessage>(msg).AsString;
  ...
  // Restore record from JSON object
  msg := ctx.AsType<TPmMessage>(SO(JsonText));
  ...
  finally
    ctx.Free;
  end;
end;

恢复后，我收到 TPmMessage，但我不知道数据 JSON 对象的类型。

案例2

在情况 1 中，我不知道数据 JSON 对象的类型。因此，我添加了 DataObjectType 字段，并将 QualifiedName 作为值。

在这种情况下，我会创建另一个序列化结构:

  TPmMessageData = record
    DataObjectType: string;
    DataObject: ISuperObject;
  end;

  TPmMessage = record
    Source: string;
    CorrelationId: TGUID;
    BatchId: TGUID;
    MessageName: string;
    Data: TPmMessageData;
  end;

该结构使用代码正确序列化:

var 
  msg: TPmMessage;
  ti: PTypeInfo;
  uals: TAlarms;
begin
  {fill Alarms array}
  ti := TypeInfo(TAlarms);
  msg.Data.DataObjectType := ctx.Context.GetType(ti).QualifiedName;
  msg.Data.DataObject := ctx.AsJson<TAlarms>(uals);
end;

DataObject:ISuperObject也序列化得很好。

问题是如何反序列化DataObject？

我认为可以使用

{var DataType: TRttiType;}
DataType := ctx.Context.FindType(DecodedMsg.Data.DataObjectType);
uals := ctx.AsJson<DataType>(DecodedMsg.Data.DataObject);

但是方法“AsType”需要显式类型参数。

所以我认为使用case来设置正确的类型是唯一的方法。

如何更好地使用 super 对象进行序列化/反序列化？

您能为我建议一个更好的消息结构来代替这个吗？

Answer 1

您可以将 JSON 序列化对象包装在具有两个属性的容器对象中:

• 输入姓名
• 被包裹的对象

然后在反序列化时，首先读取包含的对象的类型，然后将序列化的对象加载到相应类型的Delphi对象变量中。

但是，记录中的接口(interface)指针无论如何都不容易序列化(它包含一个指针而不是完整的 JSON 编码字符串) - 因此我不确定记录序列化是否因其他原因失败。