Question

Using Delphi XE, TZipMaster 1.91 (latest)

I want to get the file name of first file name matching the FSpec arg that is passed to the Find function. However, I get an access violation when calling this function.

  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;

Any help appreciated.

EDIT:
I sent an email got an almost immediate answer from one of the component’s authors, Russell Peters.
See my answer below.

Answer 1

I sent an email got an almost immediate answer from one of the component’s authors, Russell Peters:

I am not surprise you get an AV

var
  Idx: Integer;
  Entry: TZMDirEntry;
   DBBakFl : String;
 begin
 try
   Idx := -1;  // search from beginning, starts at Idx + 1
   Index := ZipMaster191.Find('*.FBK', Idx);
   if Index <> nil then
      DBBakFl := Index .FileName;
 except
   raise Exception.Create('Find raised an exception');
 end;

OR
var
  Idx: Integer;
   DBBakFl : String;
 begin
 try
   Idx := -1;  // search from beginning, starts at Idx + 1
   if ZipMaster191.Find('*.FBK', Idx) <> nil then
      DBBakFl := ZipMaster191[Idx].FileName;
 except
   raise Exception.Create('Find raised an exception');
 end;

OR

var
  Idx: Integer;
   DBBakFl : String;
 begin
 try
   Idx := -1;  // search from beginning, starts at Idx + 1
   ZipMaster191.Find('*.FBK', Idx) ;
   if Idx >= 0 then
      DBBakFl := ZipMaster191[Idx].FileName;
 except
   raise Exception.Create('Find raised an exception');
 end;

In a loop it is easy

Idx := -1;
while ZipMaster191.Find('*.FBK', Idx) <> nil do
begin
      DBBakFl := ZipMaster191[Idx].FileName;

Russell Peters