Ok, I solved the zip error, but I can't unzip

[Jean Christophe Avard]

Hi! Finally I figure out what was wrong... "objZipEntry.si ze = strmFile" I wasn't giving the right file length... But now, I have issue with the unzip function... I can't unzip it, the unzip function return true but its invalid parameter when I try to set the image to the picture box....

Private Overloads Function Unzip(ByVal strSource As String, ByVal
strFileToExtrac t As String, ByRef newms As MemoryStream) As Boolean

If File.Exists(str Source) Then

Dim ZipStream As ZipInputStream

Try

ZipStream = New ZipInputStream( File.OpenRead(s trSource))

ZipStream.Passw ord = "your own prefered password here"

Dim TheEntry As ZipEntry = ZipStream.GetNe xtEntry()

Dim size As Integer

Do Until TheEntry Is Nothing

If Path.GetFileNam e(TheEntry.Name ) = strFileToExtrac t Then

Dim data(1024) As Byte

newms = New MemoryStream

Dim bw As New BinaryWriter(ne wms)

Dim buffer(1024) As Byte

Dim length As Integer

Dim dataToRead As Long = TheEntry.Size

While dataToRead > 0

length = ZipStream.Read( buffer, 0, 1024)

bw.Write(buffer , 0, length)

ReDim buffer(1024) ' Clear the buffer

dataToRead = dataToRead - length

End While

Return True

End If

TheEntry = ZipStream.GetNe xtEntry()

Loop

Catch e As Exception

Finally

ZipStream.Close ()

End Try

End If

End Function

[m.posseth]

Hello Jean

i have just send you a working example , inclusive the way to bind the
unzipped stream to a picturebox

i hope it helps :-)
regards

Michel Posseth

"Jean Christophe Avard" <NO***@M.BITC H> wrote in message
news:Oe******** ******@tk2msftn gp13.phx.gbl...
Hi! Finally I figure out what was wrong... "objZipEntry.si ze = strmFile" I
wasn't giving the right file length... But now, I have issue with the unzip
function... I can't unzip it, the unzip function return true but its invalid
parameter when I try to set the image to the picture box....

Private Overloads Function Unzip(ByVal strSource As String, ByVal
strFileToExtrac t As String, ByRef newms As MemoryStream) As Boolean

If File.Exists(str Source) Then

Dim ZipStream As ZipInputStream

Try

ZipStream = New ZipInputStream( File.OpenRead(s trSource))

ZipStream.Passw ord = "your own prefered password here"

Dim TheEntry As ZipEntry = ZipStream.GetNe xtEntry()

Dim size As Integer

Do Until TheEntry Is Nothing

If Path.GetFileNam e(TheEntry.Name ) = strFileToExtrac t Then

Dim data(1024) As Byte

newms = New MemoryStream

Dim bw As New BinaryWriter(ne wms)

Dim buffer(1024) As Byte

Dim length As Integer

Dim dataToRead As Long = TheEntry.Size

While dataToRead > 0

length = ZipStream.Read( buffer, 0, 1024)

bw.Write(buffer , 0, length)

ReDim buffer(1024) ' Clear the buffer

dataToRead = dataToRead - length

End While

Return True

End If

TheEntry = ZipStream.GetNe xtEntry()

Loop

Catch e As Exception

Finally

ZipStream.Close ()

End Try

End If

End Function