Classic ASP

Unzip a ZIP Entry Directly into a BinData Object Using ZipEntry.UnzipToBd

This example demonstrates how to use the ZipEntry.UnzipToBd method to inflate a ZIP entry directly into a BinData object.

The entry contents are uncompressed entirely in memory without creating a file on disk.

This is useful when:

Processing ZIP entry data entirely in memory
Avoiding temporary filesystem files
Working with binary files such as images, PDFs, or certificates
Passing uncompressed ZIP data directly to other APIs

The example opens a ZIP archive, locates a PDF entry, inflates it into a BinData object, and then writes the uncompressed bytes to a new file.

Suppose the ZIP archive contains:

docs/report.pdf

The entry is uncompressed directly into memory before optionally being saved to:

qa_output/report.pdf

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

set zip = Server.CreateObject("Chilkat.Zip")

' Open an existing ZIP archive.
success = zip.OpenZip("qa_data/zips/documents.zip")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Locate the PDF entry within the ZIP archive.
set entry = Server.CreateObject("Chilkat.ZipEntry")

success = zip.EntryOf("docs/report.pdf",entry)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( "ZIP entry not found.") & "</pre>"
    zip.CloseZip 
    Response.End
End If

' ------------------------------------------------------------
' Inflate the ZIP entry directly into a BinData object.
' 
' The uncompressed bytes are stored entirely in memory.
' 
set pdfData = Server.CreateObject("Chilkat.BinData")

success = entry.UnzipToBd(pdfData)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( entry.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "Uncompressed size = " & pdfData.NumBytes) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "") & "</pre>"

' ------------------------------------------------------------
' Optionally save the uncompressed bytes to a file.
' 
success = pdfData.WriteFile("qa_output/report.pdf")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( pdfData.LastErrorText) & "</pre>"
    Response.End
End If

zip.CloseZip 

Response.Write "<pre>" & Server.HTMLEncode( "PDF extracted successfully.") & "</pre>"

%>
</body>
</html>