Lazarus Pascal Requires Chilkat v11.0.0+

Merge ZIP Archives Using AppendZip

See more Zip Examples

This example demonstrates how to use the AppendZip method to append all entries from one ZIP archive into another ZIP archive.

The AppendZip method reads the entries from an existing ZIP file in the local filesystem and appends them to the current in-memory Zip object.

This is useful for:

• Merging multiple ZIP archives into a single ZIP
• Adding the contents of a previously created ZIP archive
• Building larger ZIP archives from smaller ZIP files

The appended entries are not written to the output ZIP until a Write* method is called.

Suppose the ZIP archive reports.zip contains:

reports/january.pdf
reports/february.pdf

And suppose the ZIP archive images.zip contains:

images/logo.png
images/banner.jpg

After calling AppendZip for both ZIP files and writing the final ZIP archive, the resulting ZIP will contain:

reports/january.pdf
reports/february.pdf
images/logo.png
images/banner.jpg

te> Lazarus Pascal

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;

begin
  success := False;

  //  --------------------------------------------------------------------------------
  //  Note: The AppendZip method is currently not working and will be fixed in v11.5.0
  //  --------------------------------------------------------------------------------
  zip := TZip.Create;

  success := zip.NewZip('merged.zip');
  if (success = False) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  //  Append all entries from reports.zip.
  success := zip.AppendZip('c:/zips/reports.zip');
  if (success = False) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  //  Append all entries from images.zip.
  success := zip.AppendZip('c:/zips/images.zip');
  if (success = False) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  //  Additional entries can still be added.
  success := zip.AddString('readme.txt','Merged ZIP archive','utf-8');
  if (success = False) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  //  Write the final ZIP archive.
  success := zip.WriteZipAndClose();
  if (success = False) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  WriteLn('ZIP archive created successfully.');


  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.