Delphi - 以只读方式打开压缩文件

Question

我使用内部 TZipFile。 当我打开 zip 时，Delphi 似乎只打开它。 只要压缩文件没有被释放，文件访问就会被拒绝

lZipFile := tZipFile.Create;
if lZipFile.IsValid( sPath) then begin
  lZipFile.Open( sPath, zmRead );
...
// access denied to sPath
end;
lZipFile.Free;

我只想读书。为什么delphi会这样？ 如果我想多次访问一个 zip 文件，那么我必须制作一个本地副本并使用该副本吗？我真的不喜欢这种解决方法。首先，因为 zip 文件可能很大。

知道我可以做些什么来在只读模式下多次访问同一个 zip 文件吗？

Answer 1

您可以创建以所需共享模式打开的TFileStream 实例。然后使用接受TStream 的TZipFile 的重载Open 方法。

请注意TZipFile.IsValid 也会尝试以独占方式打开文件。由于 IsValid 没有像 Open 那样做，我添加了一个 try-except 块来捕获任何无效或不可访问的目标。因此可以省略对IsValid 的调用。

  zip := TZipFile.Create;
  try
    stream := TFileStream.Create(sPath, fmOpenRead + fmShareDenyWrite);
    try
      try
        zip.Open(stream, zmRead);
      except
        on EZipException do begin
          // access denied to sPath
        end;
      end;
    finally
      stream.Free;
    end;
  finally
    zip.Free;
  end;