![]() |
Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi DLL) Open and Unzip an AES Encrypted ZipOpen and unzip an AES encrypted Zip.
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 zip: HCkZip; success: Boolean; unzipCount: Integer; begin // 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; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.