In-Memory Zip / Unzip Code

Download Chilkat 32-bit Zip ActiveX (.msi) (includes objects for .zip, .gz, .bz2, and .Z)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

Demonstrates some features of using the Zip component entirely in-memory.

Dim zip As New ChilkatZip2

Dim success As Long

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    Exit Sub
End If

'  NewZip initializes the zip object.  It does not write
'  the file.  The "test.zip" file, in this case, will never be written.
success = zip.NewZip("test.zip")
If (success <> 1) Then
    MsgBox zip.LastErrorText
    Exit Sub
End If

'  Append a string as a file within the zip object.
Dim entry As ChilkatZipEntry2
'  The last argument to AppendString2 is a charset name.
Set entry = zip.AppendString2("test.txt","This is a test 123 ABC 123 ABC","iso-8859-1")

'  zipImage is a byte array that contains a .zip file.
'  The WriteToMemory method writes the .zip to a byte array
'  instead of writing to a file.
Dim zipImage() As Byte
zipImage = zip.WriteToMemory()

'  Now.. let's open the .zip from a byte array.
Dim zip2 As New ChilkatZip2

success = zip2.OpenFromMemory(zipImage)
If (success <> 1) Then
    MsgBox zip2.LastErrorText
    Exit Sub
End If

'  Now get the test.txt entry:
Set entry = zip2.GetEntryByName("test.txt")
If (entry Is Nothing ) Then
    MsgBox "Failed to find test.txt"
    Exit Sub
End If

'  Inflate the entry to a byte array:
Dim entryBytes() As Byte
entryBytes = entry.Inflate()

'  Inflate the entry to a string:
Dim entryStr As String
entryStr = entry.InflateToString2()

MsgBox entryStr