我使用内部TZipFile.
当我打开拉链时,德尔福似乎只打开它.
只要未释放zipfile,就会拒绝文件访问
当我打开拉链时,德尔福似乎只打开它.
只要未释放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吗?
解决方法
您可以创建使用所需共享模式打开的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;
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。