Delphi Database, Delphi Components from ComponentAce
Products Download Order Contact us

Search Example

Top 

The following example shows how to search files stored within the archive:

 

zipForge1.FileName = "C:\\TEST\\test.zip";

zipForge1.OpenArchive();

ComponentAce.Compression.ZipForge.ArchiveItem archiveItem =

       new ComponentAce.Compression.ZipForge.ArchiveItem();

if (zipForge1.FindFirst("*.*", ref archiveItem))

{

       do

     {

            ListViewItem listItem = new ListViewItem();

           listItem.Text = archiveItem.FileName;

           ListViewItem.ListViewSubItem subItem = new ListViewItem.ListViewSubItem(listItem,

                       archiveItem.LastWriteTime.ToShortDateString() + " " +

                       archiveItem.LastWriteTime.ToShortTimeString());

           listItem.SubItems.Add(subItem);

           subItem = new ListViewItem.ListViewSubItem(listItem,

                       archiveItem.UncompressedSize.ToString());

           listItem.SubItems.Add(subItem);                   

           subItem = new ListViewItem.ListViewSubItem(listItem,

                       archiveItem.CompressedSize.ToString());

           listItem.SubItems.Add(subItem);

           subItem = new ListViewItem.ListViewSubItem(listItem,

                       archiveItem.CompressionRate.ToString());

           listItem.SubItems.Add(subItem);

           subItem = new ListViewItem.ListViewSubItem(listItem,

                      ((uint)archiveItem.CRC).ToString());

           listItem.SubItems.Add(subItem);

           subItem = new ListViewItem.ListViewSubItem(listItem,

                       archiveItem.StoredPath);

           listItem.SubItems.Add(subItem);                   

           listView1.Items.Add(listItem);

      }

               while (zipForge1.FindNext(ref archiveItem));

}

zipForge1.CloseArchive();

 

[VB.NET]

zipForge1.FileName = "C:\TEST\test.zip";

zipForge1.OpenArchive()

Dim archiveItem As ComponentAce.Compression.ZipForge.ArchiveItem = New ComponentAce.Compression.ZipForge.ArchiveItem()

If ZipForge1.FindFirst("*.*", archiveItem) Then

Do               

       Dim listItem As ListViewItem = New ListViewItem()

     listItem.Text = archiveItem.FileName

     Dim subItem As ListViewItem.ListViewSubItem = New ListViewItem.ListViewSubItem(listItem,

               archiveItem.LastWriteTime.ToShortDateString() + " " +

               archiveItem.LastWriteTime.ToShortTimeString())

       listItem.SubItems.Add(subItem)

     subItem = New ListViewItem.ListViewSubItem(listItem, archiveItem.UncompressedSize.ToString())

     listItem.SubItems.Add(subItem)

     subItem = New ListViewItem.ListViewSubItem(listItem, archiveItem.CompressedSize.ToString())

     listItem.SubItems.Add(subItem)

     subItem = New ListViewItem.ListViewSubItem(listItem, archiveItem.CompressionRate.ToString())

     listItem.SubItems.Add(subItem)

     subItem = New ListViewItem.ListViewSubItem(listItem, (CType(archiveItem.CRC,

               System.UInt32)).ToString())

       listItem.SubItems.Add(subItem)

     subItem = New ListViewItem.ListViewSubItem(listItem, archiveItem.StoredPath)

     listItem.SubItems.Add(subItem)

     listView1.Items.Add(listItem)

Loop While ZipForge1.FindNext(archiveItem)

End If

zipForge1.CloseArchive()

        © 2003 - 2025 ComponentAce  | .net zip component | barcode for .net | delphi zip component | delphi database Apr 29, 2025