(Xojo Plugin) Unzip Files to Byte Array
Demonstrates how to unzip each file contained in a .zip to an in-memory byte array.
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Dim zip As New Chilkat.Zip
Dim success As Boolean
success = zip.OpenZip("qa_data/zips/test.zip")
If (success = False) Then
System.DebugLog(zip.LastErrorText)
Return
End If
// Iterate of each entry in the zip.
// An entry can be a file or directory entry. For each file, unzip to a byte array.
Dim numEntries As Int32
numEntries = zip.NumEntries
System.DebugLog("NumEntries = " + Str(numEntries))
Dim i As Int32
i = 0
While i < numEntries
Dim entry As Chilkat.ZipEntry
entry = zip.GetEntryByIndex(i)
If (entry.IsDirectory = False) Then
Dim fileData As MemoryBlock
fileData = entry.Inflate()
// Do whatever you wish with the file data...
End If
i = i + 1
Wend
zip.CloseZip
System.DebugLog("Finished.")
|