![]() |
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) Unzip Some Files by Iterating over EntriesDemonstrates how to unzip specific files by iterating over entries in a .zip.
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringBuilder, ZipEntry, Zip; ... procedure TForm1.Button1Click(Sender: TObject); var zip: HCkZip; success: Boolean; sbFilename: HCkStringBuilder; numEntries: Integer; i: Integer; entry: HCkZipEntry; entryFilePath: PWideChar; begin // This requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. zip := CkZip_Create(); // Open a .zip containing: // // a1.xml // b1.xml // c1.xml // dir1/a2.xml // dir1/c2.xml // dir2/dir3/c3.xml // We wish to unzip only a1.xml, b1.xml, and c1.xml success := CkZip_OpenZip(zip,'qa_data/zips/xml_files.zip'); if (success <> True) then begin Memo1.Lines.Add(CkZip__lastErrorText(zip)); Exit; end; sbFilename := CkStringBuilder_Create(); numEntries := CkZip_getNumEntries(zip); i := 0; while i < numEntries do begin entry := CkZip_GetEntryByIndex(zip,i); entryFilePath := CkZipEntry__fileName(entry); Memo1.Lines.Add(entryFilePath); if (CkZipEntry_getIsDirectory(entry) = False) then begin CkStringBuilder_SetString(sbFilename,entryFilePath); if (CkStringBuilder_Contains(sbFilename,'/',False) = False) then begin // Does not contain "/" // Unzip to the qa_output directory. success := CkZipEntry_Extract(entry,'qa_output'); if (success = False) then begin Memo1.Lines.Add('Failed to unzip ' + entryFilePath); end else begin Memo1.Lines.Add('Unzipped ' + entryFilePath); end; end; end; CkZipEntry_Dispose(entry); i := i + 1; end; CkZip_Dispose(zip); CkStringBuilder_Dispose(sbFilename); end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.