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オブジェクトにタイプ名（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が表示されますが、DataJSONオブジェクトのタイプがわかりません。

ケース2

ケース1の場合、DataJSONオブジェクトのタイプがわかりません。そこで、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 のシリアル化されたオブジェクトを、次の 2 つのプロパティを持つコンテナー オブジェクトにラップできます。

  • 型名
  • ラップされたオブジェクト

次に、逆シリアル化で、最初に含まれているオブジェクトの型を読み取り、次にシリアル化されたオブジェクトを対応する型の Delphi オブジェクト変数にロードします。

ただし、レコード内のインターフェイス ポインターをシリアル化するのは簡単ではありません (JSON でエンコードされた完全な文字列ではなく、ポインターが含まれています)。そのため、レコードのシリアル化が別の理由で失敗するかどうかはわかりません。

于 2012-09-03T14:52:14.900 に答える