How to transfer TObject with TMemoryStream through datasnap?
TMyObject = class(TBizObject)
FText: TMemoryStream; <-- Content not sent
...
end
on server side
TServerMethods.GetMyClass(const AId: Integer): TMyObject
begin
Result := TMyObject.find(AId);
end;
On client side TMyObject in correctly unmarshalled except that FText content is empty.
TMemoryStream Json content
"FText": {
"type":"System.Classes.TMemoryStream",
"id":2,
"fields":{
"FCapacity":16384,
"FSize":11788,
"FPosition":11788
}
}
MarshalUnmarshal
sample project. – Ondrej Kelle