B4X

Add Binary Data to a ZIP Using AddBd

See more Zip Examples

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.

B4X

Dim success As Boolean = False

'  Create a new ZIP archive.
Dim zip As ChilkatZip
zip.Initialize("zip")

success = zip.NewZip("inMemoryData.zip")
If success = False Then
    Log(zip.LastErrorText)
    Return
End If


'  Create a BinData object containing binary content.
Dim bd As ChilkatBinData
bd.Initialize

'  Append some bytes as hexadecimal.
'  The decoded bytes will become the contents of the ZIP entry.
success = bd.AppendEncoded("000102030405060708090A0B0C0D0E0F", "hex")
If success = False Then
    Log(bd.LastErrorText)
    Return
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 = False Then
    Log(zip.LastErrorText)
    Return
End If


'  Write the ZIP archive to disk and close it.
success = zip.WriteZipAndClose
If success = False Then
    Log(zip.LastErrorText)
    Return
End If


Log("ZIP archive created successfully.")