OleVariantToStream

最新推荐文章于 2023-09-20 16:38:24 发布

原创最新推荐文章于 2023-09-20 16:38:24 发布 · 1.3k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

当前文章被以下社区和专栏收录：

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

开发板推荐：天空星STM32F407VET6开发板

超高性价比 STM32主控 | 超高主频 | 一板兼容百芯 | 比赛神器 | 沉金彩色丝印

点击查看

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;