Pascal (Lazarus/Delphi)

Another Path-in-Zip Example

See more Zip Examples

Another example about getting the correct paths within a .zip. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Zip;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  zip: TZip;
  recurse: Boolean;

begin
  success := False;

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

  zip := TZip.Create;

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

  //  Add references to files:
  recurse := True;
  success := 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';

  success := 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';
  success := zip.AppendFiles('a\\subdir1\\*',recurse);

  success := zip.WriteZipAndClose();


  zip.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.