小编Rai*_*ido的帖子

在Delphi XE2 DataSnap中,是否有通用的方法来跳过JSON编组中的字段序列化？

TBizObjects = class
  DataObject: TDataObject; -- skip this field on serializaing descendants
end;

Model = class(TBizObject);

如何通过datasnap传输TObject与TMemoryStream？

TMyObject = class(TBizObject)
  FText: TMemoryStream;  <-- Content not sent
  ...
end

在服务器端

TServerMethods.GetMyClass(const AId: Integer): TMyObject
begin
  Result := TMyObject.find(AId);
end;

在客户端TMyObject正确解组,但FText内容为空.

TMemoryStream Json内容

"FText": {
        "type":"System.Classes.TMemoryStream",
        "id":2,
        "fields":{
            "FCapacity":16384,
            "FSize":11788,
            "FPosition":11788
        }
    }