(Xojo Plugin) Unzip Binary File to Stream

Demonstrates how to unzip a large binary file to a stream to allow the application to process the uncompressed bytes chunk by chunk.

Note: This example requires Chilkat v9.5.0.67 or greater.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

// This requires the Chilkat Zip API to have been previously unlocked.
// See Unlock Chilkat Zip for sample code.

Dim zip As New Chilkat.Zip

// First open a .zip.
Dim success As Boolean
success = zip.OpenZip("qa_data/zips/big.zip")
If (success <> True) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

// Get the entry to be unzipped to a stream..
Dim entry As Chilkat.ZipEntry
entry = zip.GetEntryByIndex(0)
If (zip.LastMethodSuccess <> True) Then
    System.DebugLog(zip.LastErrorText)
    Return
End If

Dim dataStream As New Chilkat.Stream

Dim unzipTask As Chilkat.Task
unzipTask = entry.UnzipToStreamAsync(dataStream)
If (entry.LastMethodSuccess <> True) Then
    System.DebugLog(entry.LastErrorText)

    Return
End If

// Start the background unzip thread.
success = unzipTask.Run()

// We'll read the uncompressed data chunk-by-chunk and write to an output file.
Dim fac As New Chilkat.FileAccess
success = fac.OpenForWrite("qa_output/out.dat")
If (success <> True) Then
    System.DebugLog(fac.LastErrorText)

    Return
End If

// Read the stream.  (this is reading the unzipped file data)
Dim bd As New Chilkat.BinData
While dataStream.EndOfStream <> True
    // Get the next chunk of decompressed bytes.
    success = dataStream.ReadBd(bd)
    // Do something with it..
    // In this simple example, we'll just write to the file.
    success = fac.FileWriteBd(bd,0,0)
    // Clear for the next read.
    success = bd.Clear()
Wend

fac.FileClose 

System.DebugLog("Success.")