Delphi TZipMaster - 如何使用Find方法？

Question

使用Delphi XE、TZipMaster 1.91(最新)

我想获取与传递给 Find 函数的 FSpec 参数匹配的第一个文件名的文件名。但是，我在调用此函数时遇到访问冲突。

  var
    DBBakFl : String;
    d : Integer;
  begin
    ZipMaster191.ZipFileName := 'myzip.zip';

    try
      DBBakFl := ZipMaster191.Find('*.FBK', d).FileName;
    except
      raise Exception.Create('Find raised an exception');
    end;

感谢任何帮助。

编辑:我发送了一封电子邮件，几乎立即得到了该组件作者之一 Russell Peters 的答复。请参阅下面我的回答。

Answer 1

尝试如下:

 var
   DBBakFl : String;
   d : Integer;
   DirEntry: TZMDirEntry;
 begin
   ZipMaster191.ZipFileName := 'myzip.zip';

   DirEntry := ZipMaster191.Find('*.FBK', d);
   if Assigned(DirEntry) then
   begin
     DBBakF1 := DirEntry.FileName;
     ....
   end;

由于 find 失败，您实际上正在尝试从 nil TZMDirEntry 中获取文件名。基本相同:

var
  DBBakFl : String;
  DirEntry: TZMDirEntry;
begin

  DirEntry := nil;
  DBBakF1 := DirEntry.FileName;
end;