Imports System
Imports System.IO
Imports System.IO.Compression
Public Class DeflateTest
Public Shared Function ReadAllBytesFromStream(stream As Stream, buffer() As Byte) As Integer
Dim offset As Integer = 0
Dim totalCount As Integer = 0
While True
Dim bytesRead As Integer = stream.Read(buffer, offset, 100)
If bytesRead = 0 Then
Exit While
End If
offset += bytesRead
totalCount += bytesRead
End While
Return totalCount
End Function
Public Shared Sub DeflateCompressDecompress(filename As String)
Dim infile As FileStream
Try
infile = New FileStream(filename, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim buffer(infile.Length - 1) As Byte
Dim count As Integer = infile.Read(buffer, 0, buffer.Length)
If count <> buffer.Length Then
infile.Close()
Return
End If
infile.Close()
Dim ms As New MemoryStream()
Dim compressedzipStream As New DeflateStream(ms, CompressionMode.Compress, True)
compressedzipStream.Write(buffer, 0, buffer.Length)
compressedzipStream.Close()
ms.Position = 0
Dim zipStream As New DeflateStream(ms, CompressionMode.Decompress)
Dim decompressedBuffer(buffer.Length + 100) As Byte
Dim totalCount As Integer = DeflateTest.ReadAllBytesFromStream(zipStream, decompressedBuffer)
zipStream.Close()
Catch e As Exception
End Try
End Sub
Public Shared Sub Main(ByVal args() As String)
DeflateCompressDecompress("c:\\a.txt")
End Sub 'Main
End Class 'DeflateTest
|