3

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

我有一个包含不同记录的字段作为 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 对象中为 Data 字段写一个类型名称（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，但我不知道 Data JSON 对象中的类型。

案例二

情况 1 我不知道 Data JSON 对象的类型。所以我添加了带有 QualifiedName 作为值的DataObjectType字段。

在这种情况下，我为序列化制作了另一种结构：

  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”需要显式类型参数。

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

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

你能给我建议一个更好的消息结构而不是这个吗？

4

1 回答 1

1

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

  • 类型名称
  • 被包裹的物体

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

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

于 2012-09-03T14:52:14.900 回答