AutoIt Requires Chilkat v11.0.0+

Unzip One File to a Stream

See more Zip Examples

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

Local $bSuccess = False

;  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.
$bSuccess = $oZip.OpenZip("qa_data/hamlet.zip")
If ($bSuccess = False) Then
    ConsoleWrite($oZip.LastErrorText & @CRLF)
    Exit
EndIf

;  Find the entry to be unzipped to a stream..
$oEntry = ObjCreate("Chilkat.ZipEntry")
$bSuccess = $oZip.EntryMatching("*hamlet.xml",$oEntry)
If ($bSuccess = False) 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)