Delphi ActiveX Requires Chilkat v11.0.0+

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.

Delphi ActiveX

var
success: Integer;
zip: TChilkatZip;
numEntries: Integer;
entry: TChilkatZipEntry;
i: Integer;

begin
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.');