Iterating with FirstEntry / NextEntry

Download Chilkat Zip ActiveX (includes objects for .zip, .gz, .bz2, and .Z)

Delphi example program to open a .zip file display the files and directories using the FirstEntry / NextEntry methods.

// Another way of listing files in a zip.
procedure TForm1.Button7Click(Sender: TObject);
var
  i : Integer;
  success : Integer;
  entry: IChilkatZipEntry2;
begin
  ChilkatZip21.UnlockComponent('anything for 30-day trial');

  // Open a zip.
  success := ChilkatZip21.OpenZip('test.zip');
  if (success = 0) then
    begin
      ChilkatZip21.SaveLastError('zipErrorLog.txt');
      ShowMessage(ChilkatZip21.LastErrorText);
    end
  else
    begin
      Memo1.Lines.Clear();

      entry := ChilkatZip21.FirstEntry();
      while (entry <> nil) do
        begin
          Memo1.Lines.Add(entry.FileName);
          entry := entry.NextEntry();
        end;

    end;

end;