(Delphi ActiveX) Iterate Over ZIP Entries Using EntryAt

This example demonstrates how to use the EntryAt method to iterate over all entries contained within a ZIP archive.

The EntryAt method retrieves a ZipEntry object for a given zero-based index.

This is useful for:

• Enumerating all entries in a ZIP archive
• Inspecting filenames, sizes, and timestamps
• Searching or filtering ZIP contents

Suppose the ZIP archive contains:

docs/readme.txt
images/logo.png
data/config.json

The example loops through all ZIP entries and prints information about each entry.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
zip: TChilkatZip;
numEntries: Integer;
entry: TChilkatZipEntry;
i: Integer;

begin
success := 0;

success := 0;

// Open an existing ZIP archive.
zip := TChilkatZip.Create(Self);

success := zip.OpenZip('example.zip');
if (success = 0) then
  begin
    Memo1.Lines.Add(zip.LastErrorText);
    Exit;
  end;

// Get the total number of entries in the ZIP archive.
numEntries := zip.NumEntries;

Memo1.Lines.Add('Number of ZIP entries = ' + IntToStr(numEntries));

// Create a ZipEntry object that will be reused
// for each entry retrieved by EntryAt.
entry := TChilkatZipEntry.Create(Self);

// Iterate over all ZIP entries.
i := 0;
while i < numEntries do
  begin

    // Retrieve the entry at index i.
    success := zip.EntryAt(i,entry.ControlInterface);
    if (success = 0) then
      begin
        Memo1.Lines.Add(zip.LastErrorText);
        Exit;
      end;

    Memo1.Lines.Add('Entry ' + IntToStr(i));
    Memo1.Lines.Add('  FileName: ' + entry.FileName);
    Memo1.Lines.Add('  Uncompressed Length: ' + IntToStr(entry.UncompressedLength));
    Memo1.Lines.Add('  Compressed Length: ' + IntToStr(entry.CompressedLength));
    Memo1.Lines.Add('');

    i := i + 1;
  end;

// Sample output:
// 
// Entry 0
//   FileName: docs/readme.txt
//   Uncompressed Length: 1204
//   Compressed Length: 512
// 
// Entry 1
//   FileName: images/logo.png
//   Uncompressed Length: 84211
//   Compressed Length: 84102
// 

zip.CloseZip();

Memo1.Lines.Add('Done.');
end;