文件与Olevariant

　　//---------------------------读数据到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;