I successfully used Ionic.Zip to create a zipfile and add items to it. Now I need to use Ionic.ZLib to read a zip stream into a byte array so I can store the .zip file as a binary in the SQL Server database. When I declare Ionic.ZLib.ZLibStream ,\r\n Dim
sZipFile As New Ionic.Zlib.ZlibStream\r\n
it says that ZLibStream is ambiguous in the namespace ZLib, and I can't get past that error to write any further code. I am using VB.NET. I referenced both Ionic.Lib and Ionic.ZLib in my project. What am I doing wrong? Thank you for help. This is a great library.
\r\n
\r\nKrystal
' zlib1.vb\r\n'\r\n' Demonstrate the use of the ZlibStream\r\n'\r\n' Author: Dinoch\r\n' Created: Tue Feb 24 13:21:36 2009\r\n'\r\n' last saved: \r\n' Time-stamp: <2009-February-24 13:46:38>\r\n' ------------------------------------------------------------------\r\n'\r\n' Copyright (c) 2009 by Dino Chiesa\r\n' All rights reserved!\r\n' \r\n' ------------------------------------------------------------------\r\n\r\n\r\nImports System\r\nImports Ionic.Zlib\r\nImports System.IO\r\n\r\nNamespace Ionic.Test.Krystal \r\n\r\n\r\nPublic Class zlib1\r\n\r\n ' Fields\r\n Private _CompressedFile As String\r\n Private _Crc1 As Integer\r\n Private _Crc2 As Integer\r\n Private _DecompressedFile As String\r\n Private _FileToCompress As String\r\n Private _WantZlib As Boolean\r\n Private Const WORKING_BUFFER_SIZE As Integer = 4000\r\n\r\n 'ctors\r\n Public Sub New()\r\n Me._WantZlib = False\r\n End Sub\r\n\r\n Public Sub New(ByVal args As String())\r\n Me._WantZlib = False\r\n Dim i As Integer\r\n For i = 0 To args.Length - 1\r\n If (Not args(i) Is Nothing) Then\r\n If (args(i) = "-zlib") Then\r\n Me._WantZlib = True\r\n Continue For\r\n Else\r\n\t\tIf (Not Me._FileToCompress Is Nothing) Then\r\n\t\t zlib1.Usage\r\n\t\t Exit For\r\n\t\tEnd If\r\n Me._FileToCompress = args(i)\r\n End If\r\n End If\r\n Next i\r\n End Sub\r\n\r\n ' Methods\r\n\r\n Private Sub CompressFile()\r\n Me._Crc1 = Me.DoCrc(Me._FileToCompress)\r\n Me._CompressedFile = (Me._FileToCompress & ".compressed")\r\n\tIf Not Me._CompressedFile.StartsWith("unpack\\") Then\r\n\t Me._CompressedFile = Path.Combine("unpack", Me._CompressedFile)\r\n\tEnd If\r\n\tIf Not Directory.Exists("unpack") Then\r\n\t Directory.CreateDirectory("unpack")\r\n\tEnd If\r\n\tConsole.WriteLine(ChrW(10) & "Creating compressed file: {0}", Me._CompressedFile)\r\n Using input As Stream = File.OpenRead(Me._FileToCompress)\r\n Using raw As FileStream = File.Create(Me._CompressedFile)\r\n Dim compressor As Stream = Nothing\r\n Try\r\n if Me._WantZlib Then\r\n compressor = New ZlibStream(raw, CompressionMode.Compress, True)\r\n Else\r\n compressor = New DeflateStream(raw, CompressionMode.Compress, True)\r\n End If\r\n Console.WriteLine("Using {0} to compress...", compressor.GetType.FullName)\r\n Dim working As Byte() = New Byte(WORKING_BUFFER_SIZE ) {}\r\n Dim n As Integer = -1\r\n Do While (n <> 0)\r\n If (n > 0) Then\r\n compressor.Write(working, 0, n)\r\n End If\r\n n = input.Read(working, 0, working.Length)\r\n Loop\r\n Finally\r\n If Not compressor Is Nothing Then\r\n compressor.Dispose()\r\n End If\r\n End Try\r\n End Using\r\n End Using\r\n End Sub\r\n\r\n\r\n Private Sub DecompressFile()\r\n Dim working As Byte() = New Byte(WORKING_BUFFER_SIZE) {}\r\n Dim n As Integer = -7\r\n Using s1 As Stream = File.OpenRead(Me._CompressedFile)\r\n Me._DecompressedFile = (Me._CompressedFile & ".decompressed")\r\n Console.WriteLine(ChrW(10) & "Creating decompressed file: {0}", Me._CompressedFile)\r\n Dim decompressor As Stream = Nothing\r\n Try \r\n If Me._WantZlib Then\r\n decompressor = New ZlibStream(s1, CompressionMode.Decompress, True)\r\n Else\r\n decompressor = New DeflateStream(s1, CompressionMode.Decompress, True)\r\n End If\r\n Console.WriteLine("Using {0} to decompress...", decompressor.GetType.FullName)\r\n Using s2 As FileStream = File.Create(Me._DecompressedFile)\r\n Do While ((n <> 0) AndAlso (n <> -1))\r\n n = decompressor.Read(working, 0, working.Length)\r\n Console.WriteLine("read {0} bytes", n)\r\n If (n > 0) Then\r\n s2.Write(working, 0, n)\r\n End If\r\n Loop\r\n End Using\r\n\t Finally\r\n\t If Not decompressor Is Nothing Then\r\n\t\t decompressor.Dispose()\r\n\t End If\r\n End Try\r\n End Using\r\n Me._Crc2 = Me.DoCrc(Me._DecompressedFile)\r\n End Sub\r\n\r\n\r\n Private Function DoCrc(ByVal filename As String) As Integer\r\n Dim working As Byte() = New Byte(WORKING_BUFFER_SIZE) {}\r\n Dim n As Integer = -1\r\n Dim result As Integer = 0\r\n Using a As Stream = File.OpenRead(filename)\r\n Using b As New Ionic.Zip.CrcCalculatorStream(a)\r\n n = -1\r\n Do While (n <> 0)\r\n n = b.Read(working, 0, working.Length)\r\n Loop\r\n Console.WriteLine("File:{0} CRC32:0x{1:X8}", filename, b.Crc32)\r\n result = b.Crc32\r\n End Using\r\n End Using\r\n Return result\r\n End Function\r\n\r\n\r\n Public Sub Run()\r\n If (Me._FileToCompress Is Nothing) Then\r\n zlib1.Usage\r\n Else\r\n Me.CompressFile\r\n Me.DecompressFile\r\n If (Me._Crc1 = Me._Crc2) Then\r\n Console.WriteLine("The files match.")\r\n Else\r\n Console.WriteLine("The files DO NOT MATCH.")\r\n End If\r\n End If\r\n End Sub\r\n\r\n\r\n\r\n Public Shared Sub Main(ByVal args As String())\r\n Try \r\n\t Dim z as New zlib1(args)\r\n z.Run\r\n Catch exc1 As Exception\r\n Console.WriteLine("Exception: {0}", exc1.ToString)\r\n zlib1.Usage\r\n End Try\r\n End Sub\r\n\r\n\r\n Public Shared Sub Usage()\r\n Console.WriteLine("ZlibTest: compress a file using DeflateStream or ZlibStream." & ChrW(10))\r\n Console.WriteLine("Usage:" & ChrW(10) & " ZlibTest [-zlib] <filetodeflate />")\r\n Console.WriteLine(" -zlib == use ZlibStream instead of DeflateStream.")\r\n End Sub\r\n\r\nEnd Class\r\n\r\n \r\nEnd Namespace\r\n\r\n\r\n",
"PostedDate": "2009-02-24T13:59:34.023-08:00",
"UserRole": null,
"MarkedAsAnswerDate": null
},
{
"Id": "161639",
"ThreadId": "48408",
"Html": "Krystal, I think I answered the question ("How to use ZlibStream from VB.NET?") but I didn't really answer the question "What am I doing wrong?"