Delphi 7 remobjects - 序列化组件

Question

我有一个用 Delphi 7 和 RemObjects SDK 构建的客户端-服务器应用程序。客户端和服务器之间的消息是二进制的（http://wiki.remobjects.com/wiki/BinMessage ）。我的问题是： 1）如果我填充数据TDataSet/TDataSource并将它们从客户端发送到服务器，服务器组件的DataSet将包含数据？数据应该保持持久不是吗？ 2）我尝试通过 RemObjects 发送组件，封装在 TROBinaryMemoryStream 后代类中，但如果没有成功

发送数据源的类定义

  TRODataSource=class(TROBinaryMemoryStream)
   private
     FNameDS:String;
     FDS:TDataSource;
     procedure SetName(aValue:String);
     procedure SetDS(aValue:TDataSource);
  public
   published
    property Name:String read FNameDS write SetName;
    property DataSource:TDataSource read FDS write SetDS;
  end;

方法，

function foo(aDataSource: TDataSource):integer;
var
  wStream:TRODataSource;
begin
 wStream:=TRODataSource.Create;
 wStream.Name:='TEST';
 wStream.DataSource:=aDataSource;
 try
  Result:=(RORemoteService as ISvc..).foo1(wstream);//method existing on the server will //return how many records are in the dataset
 finally
  freeandnil(wstream);
 end;
end;

任何答案都会受到赞赏。

LE：似乎只有 TROComplexType 的后代类可以被序列化 http://wiki.remobjects.com/wiki /Remote_Object_Allocation_and_Serialization。但我不确定是否无法序列化流上的组件。

Answer 1

当您将组件序列化为流时（请参阅我的另一篇文章），您可以使用“Binary”类型将流从服务器发送到客户端（以及反向）：
http://wiki.remobjects.com/wiki/TROBinaryMemoryStream_Class

或者只是将其作为字符串发送： -)。无需覆盖 TROBinaryMemoryStream！

Answer 2

对于 TComponent/TPersistent 序列化（就像 Delphi 对 .dfm 文件所做的那样），您可以使用“ObjectTextToBinary”：
http://docs. embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/Classes_ObjectTextToBinary@[电子邮件保护编辑]

但是，如果您使用子对象（对象属性），这会产生问题。

您还可以搜索更通用的序列化（使用 RTTI）到 XML 等：
Delphi (win32) 序列化库
Delphi组件序列化

编辑：您可以将结果作为RemObjects中的字符串发送或将其放入TMemoryStream中使用 RO 二进制类型。