Lazarus Pascal

Extract Only Newer Files Using UnzipNewer

See more Zip Examples

This example demonstrates how to use the UnzipNewer method to extract only those ZIP entries that are newer than existing files already present on disk.

This is useful for:

• Updating previously extracted ZIP contents
• Avoiding unnecessary overwriting of unchanged files
• Incremental deployment or synchronization scenarios
• Faster extraction when many files are already up-to-date

Suppose the ZIP archive contains:

docs/readme.txt
images/logo.png
data/config.json

And suppose the target extraction directory already contains:

c:/temp/app/docs/readme.txt
c:/temp/app/images/logo.png

If the ZIP version of docs/readme.txt is newer than the existing file on disk, it will be extracted and overwrite the existing file.

If the existing images/logo.png file is already newer or has the same timestamp, it will not be overwritten.

Files that do not yet exist on disk are extracted normally.

The UnzipNewer method returns the number of files extracted, or -1 if the operation fails.

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;
  numFilesUnzipped: Integer;

begin
  success := False;

  zip := TZip.Create;

  //  Open an existing ZIP archive.
  success := zip.OpenZip('qa_data/zips/applicationUpdate.zip');
  if (success = False) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  //  ------------------------------------------------------------
  //  Extract only ZIP entries that are newer than the
  //  corresponding files already existing on disk.
  //  
  //  Existing files that are already up-to-date are skipped.
  //  
  numFilesUnzipped := zip.UnzipNewer('c:/temp/app');

  if (numFilesUnzipped < 0) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  WriteLn('Number of files extracted = ' + numFilesUnzipped);
  WriteLn('');

  //  ------------------------------------------------------------
  //  Example behavior:
  //  
  //  ZIP contains:
  //  
  //      docs/readme.txt
  //      images/logo.png
  //      data/config.json
  //  
  //  Existing filesystem files:
  //  
  //      c:/temp/app/docs/readme.txt
  //      c:/temp/app/images/logo.png
  //  
  //  If the ZIP version of docs/readme.txt is newer,
  //  it will overwrite the existing file.
  //  
  //  If c:/temp/app/images/logo.png is already newer,
  //  it will be skipped.
  //  
  //  data/config.json will be extracted if it does not
  //  already exist.
  //  

  zip.CloseZip();

  WriteLn('UnzipNewer completed 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.