Delphi DLL

Open and Unzip an AES Encrypted Zip

See more Zip Examples

Open and unzip an AES encrypted Zip. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Zip;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
zip: HCkZip;
unzipCount: Integer;

begin
success := False;

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

zip := CkZip_Create();

success := CkZip_OpenZip(zip,'/myZips/aes.zip');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkZip__lastErrorText(zip));
    Exit;
  end;

// Set the password needed to unzip.
// This password must match the password used when the zip
// was created.
CkZip_putDecryptPassword(zip,'myPassword');

// Unzip the .zip into /unzipDir.   
// Returns the number of files and directories unzipped.
unzipCount := CkZip_Unzip(zip,'/unzipDir/');
if (unzipCount < 0) then
  begin
    Memo1.Lines.Add(CkZip__lastErrorText(zip));
  end
else
  begin
    Memo1.Lines.Add('Success!');
  end;

CkZip_Dispose(zip);

end;