Classic ASP

Add Binary Data to a ZIP Using AddBd

This example demonstrates how to use the AddBd method to add binary data from a BinData object as a file entry within a ZIP archive.

The data is created entirely in memory, added to the ZIP as data/binary.dat, and then written to disk.

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

' Create a new ZIP archive.
set zip = Server.CreateObject("Chilkat.Zip")

success = zip.NewZip("inMemoryData.zip")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Create a BinData object containing binary content.
set bd = Server.CreateObject("Chilkat.BinData")

' Append some bytes as hexadecimal.
' The decoded bytes will become the contents of the ZIP entry.
success = bd.AppendEncoded("000102030405060708090A0B0C0D0E0F","hex")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( bd.LastErrorText) & "</pre>"
    Response.End
End If

' Add the BinData contents as a file entry within the ZIP.
' The file will be stored as "data/binary.dat" inside the ZIP archive.
success = zip.AddBd("data/binary.dat",bd)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

' Write the ZIP archive to disk and close it.
success = zip.WriteZipAndClose()
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( zip.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( "ZIP archive created successfully.") & "</pre>"

%>
</body>
</html>