Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
List Files an Directories in a Zip
Delphi source code example to open a .zip archive and list the file and directory names. // Delphi example program to open a Zip archive and display // the files/directories contained within. procedure TForm1.Button3Click(Sender: TObject); var i : Integer; success : Integer; n : Integer; entry: IChilkatZipEntry2; begin ChilkatZip21.UnlockComponent('anything for 30-day trial'); // Open a zip. success := ChilkatZip21.OpenZip('test.zip'); if (success = 0) then begin ChilkatZip21.SaveLastError('zipErrorLog.txt'); ShowMessage(ChilkatZip21.LastErrorText); end else begin Memo1.Lines.Clear(); // Iterate over the files in the .zip n := ChilkatZip21.NumEntries; for i := 0 to n-1 do begin entry := ChilkatZip21.GetEntryByIndex(i); //Memo1.Lines.Add('C:\' + entry.FileName); if (entry.IsDirectory = 1) then Memo1.Lines.Add('DIR: ' + entry.FileName) else Memo1.Lines.Add(entry.FileName); end; end; end;
|
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.