Another Path-in-Zip Example

Another example about getting the correct paths within a .zip.

Download Chilkat Zip ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
zip: TChilkatZip2;
success: Integer;
recurse: Integer;

begin
zip := TChilkatZip2.Create(Self);

success := zip.UnlockComponent('anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Failed to unlock zip component');

  end;

//  Intialize the zip object by calling NewZip.
zip.NewZip('myZip.zip');

//  Add references to files:
recurse := 1;
zip.AppendFiles('c:\\temp\\a\\subdir1\\*',recurse);

//  Assuming that the file c:\temp\a\subdir1\dude.gif exists,
//  the .zip will contain "dude.gif" without any path information.

//  The component has no
//  choice but to use "c:\\temp\\a\\subdir1" as the root.
//  It's not possible for the component to know if you
//  wanted subdir1\ or a\subdir1\ or temp\a\subdir1
//  paths prefixed for each file added.

//  To control the path within the zip, set the AppendFromDir
//  directory and then use a relative path in AppendFiles.
//  For example:
zip.AppendFromDir := 'c:\\temp\\a';

zip.AppendFiles('subdir1\\*',recurse);

//  This causes c:\temp\a\subdir1\dude.gif to be added as
//  "subdir1\dude.gif" within the .zip.

//  If you need the path within the .zip to be "a\subdir", then
//  do this:
zip.AppendFromDir := 'c:\\temp';
zip.AppendFiles('a\\subdir1\\*',recurse);

success := zip.WriteZipAndClose();
end;