求对象转Viriant的装载器,要求高效率,并可装载任意类型.

Question

如题!!
最好是类似DoNet的序列化功能的.

Answer 1

下面的函数不知道能不能满足你的需要。function ComponentToString(Component: TComponent): string;
var
  BinStream:TMemoryStream;
  StrStream: TStringStream;
  s: string;
begin
  BinStream := TMemoryStream.Create;
  try
    StrStream := TStringStream.Create(s);
    try
      BinStream.WriteComponent(Component);
      BinStream.Seek(0, soFromBeginning);
      ObjectBinaryToText(BinStream, StrStream);
      StrStream.Seek(0, soFromBeginning);
      Result:= StrStream.DataString;
    finally
      StrStream.Free;    end;
  finally
    BinStream.Free
  end;
end;function StringToComponent(Value: string): TComponent;
var
  StrStream:TStringStream;
  BinStream: TMemoryStream;
begin
  StrStream := TStringStream.Create(Value);
  try
    BinStream := TMemoryStream.Create;
    try
      ObjectTextToBinary(StrStream, BinStream);
      BinStream.Seek(0, soFromBeginning);
      Result := BinStream.ReadComponent(nil);    finally
      BinStream.Free;
    end;
  finally
    StrStream.Free;
  end;
end;

Answer 2

我要的是三层可传递对象,目前是手写代码把对象转换为Variant, 另一端再转换回来,
因为类库庞大,如果都从Component继承的话,会占用过多系统资源.