delphi variant和stream相互转换的函数

网上广为流传的两个函数，确实好用。记录一下

procedure VariantToStream (const v : OleVariant; Stream : TMemoryStream); 
var 
  p : pointer; 
begin 
  Stream.Position := 0; 
  Stream.Size := VarArrayHighBound (v, 1) - VarArrayLowBound (v, 1) + 1;  //其实能够直接取下维做为流大小，由于通常状况下变体数组上维为0的
  p := VarArrayLock (v);   //我写程序时，就是到此卡住了，由于变体数组是一种安全数组，它是有描述数据的数组，v[0]才是它的真实起始地址，但就是很可贵到它的地址，而这个函数恰好处理了这个问题!
  Stream.Write (p^, Stream.Size);  //此句让我这个初学者惊叹，也不是没有这样用过，只是没有在数组中这样结合用过，呵呵，学习学习!
  VarArrayUnlock (v);   //再使用了VarArratLock()函数之后，必定要用此函，否则会报错的!
  Stream.Position := 0; 
end;

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;