文件与Olevariant

最新推荐文章于 2021-02-28 14:51:17 发布

原创最新推荐文章于 2021-02-28 14:51:17 发布 · 1.3k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #function #string

Delphi基础专栏收录该内容

43 篇文章

订阅专栏

博客给出了两个关键函数，Getobj函数用于将数据读入OleVariant，writeFileFromOle函数用于将OleVariant数据写入新文件，还介绍了获取数组指定维长度和创建数组的函数，均为信息技术领域的代码实现。

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

//---------------------------读数据到olevariant
//pfileName:带路径的文件名
function Getobj(pfileName:string): OleVariant;
var fs:TFileStream;
begin
fs := TFileStream.Create(pfileName,fmOpenRead);
try
    result := VarArrayCreate([0,fs.size-1],varbyte);
    fs.position := 0;
    fs.readbuffer(varArrayLock(result)^, fs.size);
finally
    fs.free;
    varArrayunlock(result);
end;
end;

//---------------------------从 olevariant 写到新文件
function writeFileFromOle(pfileName:string;pOleVariant:OleVariant):integer;
var fs:TFileStream;
begin
result:=0;
fs := TFileStream.Create(pfileName,fmCreate);
try
    try
      fs.WriteBuffer(varArrayLock(pOleVariant)^, VarArrayHighBound(pOleVariant,1)+1);
    except
      result:=-1;
    end;
finally
    fs.free;
    varArrayunlock(pOleVariant);
end;
end;

------------------------------ 函数说明：
//取得数组A的第Dim维的长度
function VarArrayHighBound(const A: Variant; Dim: Integer): Integer;
//创建数组
function VarArrayCreate(const Bounds: array of Integer; VarType: Integer): Variant;