Imports System.IO
Imports Xceed.Compression
' If you do not want the inner stream to be closed by the CompressedStream
' then set the CompressedStream's Transient property to true.
'
' The compressed data was compressed using the Compress example
Dim sourceStream = New MemoryStream( compressedData )
Dim compStream As New CompressedStream( sourceStream )
Dim destinationStream As New FileStream("d:\data.txt", FileMode.OpenOrCreate)
' 32K at at time.
Dim buffer(32768) As Byte
Dim bytesRead As Integer = 0
' Loop until we have nothing more to read from the source stream
Do
bytesRead = compStream.Read(buffer, 0, buffer.Length)
If bytesRead > 0 Then
destinationStream.Write(buffer, 0, bytesRead)
End If
Loop Until bytesRead = 0
' Close the destination stream and the CompressedStream.
'
' Because the CompressedStream will automatically close the source
' memory stream, there is no need to call Close once we are done with the stream.
destinationStream.Close()
compStream.Close()