Delphi--Stream和Variant的转化

Delphi--Stream和Variant的转化

网上广为流传的两个函数，确实好用。记录一下 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;