(AutoIt) Unzip One File to a Stream

Demonstrates how to unzip a particular file contained within a .zip archive to a Chilkat stream.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.

$oZip = ObjCreate("Chilkat.Zip")

; First open a .zip.
Local $bSuccess = $oZip.OpenZip("qa_data/hamlet.zip")
If ($bSuccess <> True) Then
    ConsoleWrite($oZip.LastErrorText & @CRLF)
    Exit
EndIf

; Find the entry to be unzipped to a stream..
Local $oEntry = $oZip.FirstMatchingEntry("*hamlet.xml")
If ($oZip.LastMethodSuccess <> True) Then
    ConsoleWrite($oZip.LastErrorText & @CRLF)
    Exit
EndIf

; There are three ways we can unzip (inflate) to a stream.
; 
; 1) Set a sink file on the stream object and call UnzipToStream synchronously.
;    This unzips to the stream's sink (which is to simply unzip to a file in the filesystem).
; 
; 2) Create a stream object and call UnzipToStreamAsync.  This starts the unzip in a background
;    thread (after Task.Run is called).  Your application can then read the unzipped (inflated) file
;    directly from the stream.
; 
; 3) (not shown in this example) Unzip to a stream object that is the source of something else.
;    

; ----------------------------------------------------------------
; Case 1: Unzip to a file by setting the sink of streamA to a file.
$oStreamA = ObjCreate("Chilkat.Stream")
$oStreamA.SinkFile = "qa_output/hamletA.xml"

$bSuccess = $oEntry.UnzipToStream($oStreamA)
If ($bSuccess <> True) Then
    ConsoleWrite($oEntry.LastErrorText & @CRLF)

    Exit
EndIf

; Close the stream to close the output file.
$bSuccess = $oStreamA.WriteClose()

; ----------------------------------------------------------------
; Case 2a: Uzip to a stream asynchronously. 
$oStreamB = ObjCreate("Chilkat.Stream")

Local $oUnzipTask = $oEntry.UnzipToStreamAsync($oStreamB)
If ($oEntry.LastMethodSuccess <> True) Then
    ConsoleWrite($oEntry.LastErrorText & @CRLF)

    Exit
EndIf

; Start the background unzip thread.
$oUnzipTask.Run()

; Read the stream.  (this is reading the unzipped file data)
$oSb = ObjCreate("Chilkat.StringBuilder")
While $oStreamB.EndOfStream <> True
    ; Each call to ReadSb appends to the contents of sb.
    $oStreamB.ReadSb($oSb)
Wend
$oSb.WriteFile("qa_output/hamletB.xml","utf-8",False)

ConsoleWrite("Success." & @CRLF)

; ----------------------------------------------------------------
; Case 2b: Uzip to a stream asynchronously and emit output while reading. 
$oStreamC = ObjCreate("Chilkat.Stream")

$oUnzipTask = $oEntry.UnzipToStreamAsync($oStreamC)
If ($oEntry.LastMethodSuccess <> True) Then
    ConsoleWrite($oEntry.LastErrorText & @CRLF)

    Exit
EndIf

$oUnzipTask.Run()

While $oStreamC.EndOfStream <> True
Local $s = $oStreamC.ReadString()
    ConsoleWrite($s & @CRLF)
Wend

ConsoleWrite("Success." & @CRLF)