Public Module zFunctions
Dim ms As New IO.MemoryStream
Dim z As New IO.Compression.GZipStream(ms, IO.Compression.CompressionMode.Compress, True)
Dim zz As IO.Compression.GZipStream
Public Function Zip(ByVal b() As Byte) As Byte()
ms.Position = 0
z.Write(b, 0, b.Length)
z.Flush()
Return ms.ToArray()
End Function
Public Function UnZip(ByVal b() As Byte) As Byte()
ms.Position = 0
zz = New IO.Compression.GZipStream(ms, IO.Compression.CompressionMode.Decompress, True)
ms.Write(b, 0, b.Length)
ms.Flush()
Dim i As Integer
Do
If zz.Read(b, i, 1) = 0 Then Exit Do
Loop
ReDim Preserve b(i + 1)
Return b
End Function
End Module