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