流参数问题

Question

客户端数据流以参数形势向服务器端传送，activeform  中的ole类型应该选择哪一个。
多谢。

Answer 1

olevariant,不过要在提交之前要进行流数据转换.
给你两个函数自己考虑吧
procedure StreamToVariant(Stream: TMemoryStream; var v: OleVariant);
var
   p: pointer;
begin
   v := VarArrayCreate ([0, Stream.Size - 1], varByte);
   p := VarArrayLock (v);
   Stream.Position := 0;
   Stream.Read (p^, Stream.Size);
   VarArrayUnlock (v);
end;procedure VariantToStream(const v: olevariant; Stream: TMemoryStream);
var
   p: pointer;
begin
   Stream.Position := 0;
   Stream.Size := VarArrayHighBound (v, 1) - VarArrayLowBound (v, 1) + 1;
   p := VarArrayLock (v);
   Stream.Write (p^, Stream.Size);
   VarArrayUnlock (v);
   Stream.Position := 0;
end;