怎么能把variant变量里的内容放到流里去。

Question

我在程序里用的ACTIVEX控件，取对象时设置的类型是variant。不知道怎么能把variant里的内容放到流里面。我在网上查到一段程序，不过不好使，不知道有没有什么解决办法。
TForm2.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;

Answer 1

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;http://lysoft.7u7.net

Answer 2

你的Variant是数组么
VarIsArray