(Delphi DLL) Another Path-in-Zip Example

Another example about getting the correct paths 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();

// Intialize the zip object by calling NewZip.
success := CkZip_NewZip(zip,'myZip.zip');

// Add references to files:
recurse := True;
success := CkZip_AppendFiles(zip,'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:
CkZip_putAppendFromDir(zip,'c:\\temp\\a');

success := CkZip_AppendFiles(zip,'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:
CkZip_putAppendFromDir(zip,'c:\\temp');
success := CkZip_AppendFiles(zip,'a\\subdir1\\*',recurse);

success := CkZip_WriteZipAndClose(zip);

CkZip_Dispose(zip);

end;