OleVariantToStream

最新推荐文章于 2020-04-22 14:22:58 发布

Oracle10g

最新推荐文章于 2020-04-22 14:22:58 发布

阅读量1.2k

点赞数

文章标签： stream function

本文链接：https://blog.youkuaiyun.com/Oracle10g/article/details/664159

版权

本文介绍了一种在Delphi中实现的将Variant类型数据转换为内存流和从内存流读取Variant类型数据的方法。procedureVariantToStream过程用于将Variant数据写入TMemoryStream，而StreamToVariant函数则用于从TStream读取数据并将其转换为OleVariant。这两种方法对于在应用程序间传递Variant数据特别有用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure VariantToStream(const Data: OleVariant; Stream: TMemoryStream);
var
p: Pointer;
begin

p := VarArrayLock(Data);
try
    Stream.Position := 0;
    Stream.Write(p^, VarArrayHighBound(Data, 1) + 1);
finally
    VarArrayUnlock(Data);
    Stream.Position := 0;
end;

end;

function StreamToVariant(Stream: TStream): OleVariant;
var
p: Pointer;
begin
Result := VarArrayCreate([0, Stream.Size - 1], varByte);
p := VarArrayLock(Result);
try
    Stream.Position := 0;
    Stream.Read(p^, Stream.Size);
finally
    VarArrayUnlock(Result);
    Stream.Position := 0;
end;
end;