Pascal (Lazarus/Delphi)

Unzip all Files to a Single Directory (Ignoring Subdirectories in Zip)

See more Zip Examples

Demonstrates how to unzip all files into a single directory, ignoring the internal directory structure of the files in the .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,
  Chilkat.FileAccess;

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

procedure RunDemo;
var
  success: Boolean;
  outDir: string;
  fac: TFileAccess;
  zip: TZip;
  numUnzipped: Integer;

begin
  success := False;

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

  outDir := 'c:/temp/testUnzipDir';

  //  Make sure our output directory exists.
  fac := TFileAccess.Create;
  success := fac.DirEnsureExists(outDir);
  if (success = False) then
    begin
      WriteLn(fac.LastErrorText);
      Exit;
    end;

  zip := TZip.Create;

  //  In this example, the xml_files.zip contains some files in the subdirectories "dir1" and also "dir2/dir3".

  //  a1.xml
  //  b1.xml
  //  c1.xml
  //  dir1/a2.xml
  //  dir1/c2.xml
  //  dir2/dir3/c3.xml

  success := zip.OpenZip('qa_data/zips/xml_files.zip');
  if (success = False) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  //  Unzip all files into the directory c:/temp/testUnzipDir
  numUnzipped := zip.UnzipInto(outDir);
  if (numUnzipped < 0) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  WriteLn('Num unzipped = ' + numUnzipped);

  //  After unzipping via UnzipInto, we have this:

  //  c:\temp\testUnzipDir\a1.xml
  //  c:\temp\testUnzipDir\b1.xml
  //  c:\temp\testUnzipDir\c1.xml
  //  c:\temp\testUnzipDir\a2.xml
  //  c:\temp\testUnzipDir\c2.xml
  //  c:\temp\testUnzipDir\c3.xml

  zip.CloseZip();

  WriteLn('Success.');


  fac.Free;
  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.