In-Memory Zip / Unzip Code

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

Download Chilkat Zip ActiveX

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set zip = Server.CreateObject("Chilkat.Zip2")

'  Any string unlocks the component for the 1st 30-days.
success = zip.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Response.Write zip.LastErrorText & "<br>"

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
    Response.Write zip.LastErrorText & "<br>"

End If

'  Append a string as a file within the zip object.

'  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.

zipImage = zip.WriteToMemory()

'  Now.. let's open the .zip from a byte array.
set zip2 = Server.CreateObject("Chilkat.Zip2")

success = zip2.OpenFromMemory(zipImage)
If (success <> 1) Then
    Response.Write zip2.LastErrorText & "<br>"

End If

'  Now get the test.txt entry:
Set entry = zip2.GetEntryByName("test.txt")
If (entry Is Nothing ) Then
    Response.Write "Failed to find test.txt" & "<br>"

End If

'  Inflate the entry to a byte array:

entryBytes = entry.Inflate()

'  Inflate the entry to a string:

entryStr = entry.InflateToString2()

Response.Write entryStr & "<br>"


%>
</body>
</html>

Need a specific example? Send a request to support@chilkatsoft.com