Pascal (Lazarus/Delphi)

Create Zip in a BinData Object

See more Zip Examples

Recursively appends files in a directory tree and writes a zip archive into a Chilkat BinData object. 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.BinData,
  Chilkat.Zip;

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

procedure RunDemo;
var
  success: Boolean;
  zip: TZip;
  recurse: Boolean;
  bdZip: TBinData;
  zipAsBase64: string;

begin
  success := False;

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

  zip := TZip.Create;

  //  Initialize the zip object.  Because we will never actually write a zip file to the filesystem,
  //  the filepath passed to NewZip does not matter.
  success := zip.NewZip('x.zip');
  if (success <> True) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  //  Append a directory tree.  The call to AppendFiles does
  //  not read the file contents or append them to the zip
  //  object in memory.  It simply appends references
  //  to the files so that when WriteBd, WriteZip, or WriteZipAndClose 
  //  is called, the referenced files are streamed and compressed
  //  into the .zip output file (or BinData object).

  recurse := True;
  success := zip.AppendFiles('c:/temp/a/*',recurse);
  if (success <> True) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  //  Write the zip archive into the bdZip object.
  bdZip := TBinData.Create;
  success := zip.WriteBd(bdZip);
  if (success <> True) then
    begin
      WriteLn(zip.LastErrorText);
      Exit;
    end;

  //  We could directly access the bytes of the zip archive, or perhaps
  //  get the zip bytes in base64 format.
  zipAsBase64 := bdZip.GetEncoded('base64');
  WriteLn(zipAsBase64);

  //  Or the zip can be used by some other Chilkat method call that accepts
  //  a BinData object as an argument.


  zip.Free;
  bdZip.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.