Delphi ActiveX

Unzip an Entire ZIP Archive While Preserving Directory Structure

See more Zip Examples

Extract an Entire ZIP Archive While Preserving Directory Structure

This example demonstrates how to use the Unzip method to extract all files and directories from a ZIP archive.

The example shows how the stored ZIP directory structure is recreated beneath the target extraction directory.

Suppose the ZIP archive contains:

aaa/pigs.json
bbb/base64Cert.txt
bbb/sub1/brasil_cert.pem
bbb/sub2/penguins.gif
bbb/sub2/starfish.jpg
hamlet.xml
hello.pdf

After extraction to:

c:/temp/testDir

The following filesystem structure will be created:

c:/temp/testDir/aaa/pigs.json
c:/temp/testDir/bbb/base64Cert.txt
c:/temp/testDir/bbb/sub1/brasil_cert.pem
c:/temp/testDir/bbb/sub2/penguins.gif
c:/temp/testDir/bbb/sub2/starfish.jpg
c:/temp/testDir/hamlet.xml
c:/temp/testDir/hello.pdf

If the target extraction directory does not already exist, it is automatically created.

The Unzip method returns the number of files extracted, or -1 if the extraction fails.

Delphi ActiveX

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;
numFilesUnzipped: Integer;

begin
success := 0;

zip := TChilkatZip.Create(Self);

// Open an existing ZIP archive.
success := zip.OpenZip('qa_data/zips/sample.zip');
if (success = 0) then
  begin
    Memo1.Lines.Add(zip.LastErrorText);
    Exit;
  end;

// ------------------------------------------------------------
// Extract all files to:
// 
//     c:/temp/testDir
// 
// If the target directory does not already exist,
// Chilkat will automatically create it.
// 
// The Unzip method recreates the stored ZIP directory
// structure beneath the target directory.
// 
numFilesUnzipped := zip.Unzip('c:/temp/testDir');

if (numFilesUnzipped < 0) then
  begin
    Memo1.Lines.Add(zip.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Number of files extracted = ' + IntToStr(numFilesUnzipped));
Memo1.Lines.Add('');

// ------------------------------------------------------------
// Suppose the ZIP archive contains these entries:
// 
//     aaa/pigs.json
//     bbb/base64Cert.txt
//     bbb/sub1/brasil_cert.pem
//     bbb/sub2/penguins.gif
//     bbb/sub2/starfish.jpg
//     hamlet.xml
//     hello.pdf
// 
// After extraction, the following files will exist:
// 
//     c:/temp/testDir/aaa/pigs.json
//     c:/temp/testDir/bbb/base64Cert.txt
//     c:/temp/testDir/bbb/sub1/brasil_cert.pem
//     c:/temp/testDir/bbb/sub2/penguins.gif
//     c:/temp/testDir/bbb/sub2/starfish.jpg
//     c:/temp/testDir/hamlet.xml
//     c:/temp/testDir/hello.pdf
// 
// The ZIP directory structure is preserved during extraction.

// Close the ZIP archive.
zip.CloseZip();

Memo1.Lines.Add('Unzip completed successfully.');
end;