(Delphi DLL) Controlling paths within a Zip

How to control the paths stored within a .zip.

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

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
zip: HCkZip;
success: Boolean;
recurse: Boolean;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

zip := CkZip_Create();

// This is the directory structure on the local filesystem
// from which we'll create .zip archives:
// The root directory is /temp/filesToZip
// 
// We have these files:
// /temp/filesToZip/faxCover.doc
// /temp/filesToZip/exe/Setup.exe
// /temp/filesToZip/images/cheese.jpg
// /temp/filesToZip/images/dude.gif
// /temp/filesToZip/images/img3.gif
// /temp/filesToZip/images/img4.gif
// /temp/filesToZip/images/img5.gif
// /temp/filesToZip/images/scream.jpg
// /temp/filesToZip/images/imageInfo/scream.xml
// /temp/filesToZip/images/imageInfo/cheese.xml
// /temp/filesToZip/text/html/bonaireFishing.html
// /temp/filesToZip/text/html/upload.html
// /temp/filesToZip/text/txt/hello.txt
// /temp/filesToZip/text/txt/HelloWorld123.txt
// /temp/filesToZip/text/xml/hamlet.xml
// /temp/filesToZip/text/xml/pigs.xml

// There are three properties to help control the paths stored
// within a .zip:
// AppendFromDir
// PathPrefix
// DiscardPaths
// 

// First we'll demonstrate AppendFromDir
// When a directory tree is appended via AppendFiles or
// AppendFilesEx, the AppendFromDir sets the base of the 
// directory tree appended (if the file pattern contains a 
// relative path, or no path at all).

// Clear the zip object.
CkZip_NewZip(zip,'test1.zip');

recurse := True;

CkZip_putAppendFromDir(zip,'/temp/filesToZip');
success := CkZip_AppendFiles(zip,'*.xml',recurse);

// The zip will contain:
// images/imageInfo/scream.xml
// images/imageInfo/cheese.xml
// text/xml/hamlet.xml
// text/xml/pigs.xml

success := CkZip_WriteZipAndClose(zip);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkZip__lastErrorText(zip));
    Exit;
  end;

// Clear the zip object.
success := CkZip_NewZip(zip,'test2.zip');

CkZip_putAppendFromDir(zip,'/temp/filesToZip/images');
success := CkZip_AppendFiles(zip,'*.xml',recurse);
CkZip_putAppendFromDir(zip,'/temp/filesToZip/text');
success := CkZip_AppendFiles(zip,'*.xml',recurse);

// The zip will contain:
// imageInfo/scream.xml
// imageInfo/cheese.xml
// xml/hamlet.xml
// xml/pigs.xml

success := CkZip_WriteZipAndClose(zip);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkZip__lastErrorText(zip));
    Exit;
  end;

// The PathPrefix property adds an arbitrary path prefix to each
// file in the .zip.
// For example:

// Clear the zip object.
success := CkZip_NewZip(zip,'test3.zip');

CkZip_putPathPrefix(zip,'chilkat/');

CkZip_putAppendFromDir(zip,'/temp/filesToZip/images');
success := CkZip_AppendFiles(zip,'*.xml',recurse);
CkZip_putAppendFromDir(zip,'/temp/filesToZip/text');
success := CkZip_AppendFiles(zip,'*.xml',recurse);

// The zip will contain:
// chilkat/imageInfo/scream.xml
// chilkat/imageInfo/cheese.xml
// chilkat/xml/hamlet.xml
// chilkat/xml/pigs.xml

success := CkZip_WriteZipAndClose(zip);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkZip__lastErrorText(zip));
    Exit;
  end;

// The DiscardPaths property removes the path from each file
// in the zip:
// For example:

// Clear the zip object.
success := CkZip_NewZip(zip,'test4.zip');

CkZip_putPathPrefix(zip,'');
CkZip_putDiscardPaths(zip,True);

CkZip_putAppendFromDir(zip,'/temp/filesToZip/');
success := CkZip_AppendFiles(zip,'*',recurse);

// The zip will contain:
// faxCover.doc
// Setup.exe
// cheese.jpg
// dude.gif
// img3.gif
// img4.gif
// img5.gif
// scream.jpg
// scream.xml
// cheese.xml
// bonaireFishing.html
// upload.html
// hello.txt
// HelloWorld123.txt
// hamlet.xml
// pigs.xml

success := CkZip_WriteZipAndClose(zip);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkZip__lastErrorText(zip));
    Exit;
  end;

// You can combine PathPrefix with DiscardPaths:

// Clear the zip object.
success := CkZip_NewZip(zip,'test5.zip');

CkZip_putPathPrefix(zip,'chilkat/');
CkZip_putDiscardPaths(zip,True);

CkZip_putAppendFromDir(zip,'/temp/filesToZip/');
success := CkZip_AppendFiles(zip,'*',recurse);

// The zip will contain:
// chilkat/faxCover.doc
// chilkat/Setup.exe
// chilkat/cheese.jpg
// chilkat/dude.gif
// chilkat/img3.gif
// chilkat/img4.gif
// chilkat/img5.gif
// chilkat/scream.jpg
// chilkat/scream.xml
// chilkat/cheese.xml
// chilkat/bonaireFishing.html
// chilkat/upload.html
// chilkat/hello.txt
// chilkat/HelloWorld123.txt
// chilkat/hamlet.xml
// chilkat/pigs.xml

success := CkZip_WriteZipAndClose(zip);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkZip__lastErrorText(zip));
    Exit;
  end;

// One last example -- combine DiscardPaths with PathPrefix
// with multiple calls to AppendFiles:

// Clear the zip object.
success := CkZip_NewZip(zip,'test6.zip');

CkZip_putDiscardPaths(zip,True);
CkZip_putAppendFromDir(zip,'/temp/filesToZip/');

// Get all .gif files:
CkZip_putPathPrefix(zip,'gif/');
success := CkZip_AppendFiles(zip,'*.gif',recurse);

// Get all .jpg files:
CkZip_putPathPrefix(zip,'jpg/');
success := CkZip_AppendFiles(zip,'*.jpg',recurse);

// Get all .xml files:
CkZip_putPathPrefix(zip,'xml/');
success := CkZip_AppendFiles(zip,'*.xml',recurse);

// The zip will contain:
// jpg/cheese.jpg
// gif/dude.gif
// gif/img3.gif
// gif/img4.gif
// gif/img5.gif
// jpg/scream.jpg
// xml/scream.xml
// xml/cheese.xml
// xml/hamlet.xml
// xml/pigs.xml

success := CkZip_WriteZipAndClose(zip);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkZip__lastErrorText(zip));
    Exit;
  end;

CkZip_Dispose(zip);

end;