Unzip a Single File by Index

Unzip a single file by index.

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

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    ChilkatZip2Lib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
zip: TChilkatZip2;
success: Integer;
n: Integer;
entry: IChilkatZipEntry2;

begin
zip := TChilkatZip2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := zip.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(zip.LastErrorText);

  end;

success := zip.OpenZip('my_photos.zip');
if (success <> 1) then
  begin
    ShowMessage(zip.LastErrorText);

  end;

//  How many files and directory entries are in this .zip?

n := zip.NumEntries;
Memo1.Lines.Add('Num entries = ' + IntToStr(n));

//  Let's say we want to unzip the 3rd entry:

entry := zip.GetEntryByIndex(2);
if (entry = nil ) then
  begin
    ShowMessage('Index out of range!');

  end
else
  begin
    //  Unzip it to C:/myTempDir
    success := entry.ExtractInto('c:/myTempDir');
    if (success <> 1) then
      begin
        ShowMessage(entry.LastErrorText);

      end
    else
      begin
        ShowMessage('Extracted 1 file!');
      end;
  end;
end;