Delphi - 以只读方式打开zipfile

Question

我使用内部TZipFile.当我打开拉链时,德尔福似乎只打开它.只要未释放zipfile,就会拒绝文件访问

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

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

知道我可以做什么来同时以只读模式访问同一个zip吗？

Answer 1

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

请注意,TZipFile.IsValid也会尝试独占打开文件.至于IsValid什么也不做什么Open也不会,我添加了一个尝试-除了块捕获任何无效或不可访问目标.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;