B4X Requires Chilkat v11.0.0+

Create a Zip Entirely in Memory

See more Zip Examples

Demonstrates how to create a .zip from in-memory byte data and strings, and to write the .zip to an in-memory image. B4X

Dim success As Boolean = False

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")
Dim zip As ChilkatZip
zip.Initialize("zip")

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


'  Add the bytes 0x00 0x01 0x02 0x03 ... 0x0F as a file in the .zip
Dim bd As ChilkatBinData
bd.Initialize
bd.AppendEncoded("000102030405060708090A0B0C0D0E0F", "hex")
zip.AddBd("binaryData.dat", bd)

'  Add the string "Hello World!" to the .zip
zip.AddString("helloWorld.txt", "Hello World!", "utf-8")


zipFileInMemory = zip.WriteToMemory

'  We could save these files to a file, and it is a valid .zip
Dim fac As ChilkatFileAccess
fac.Initialize
success = fac.WriteEntireFile("test.zip", zipFileInMemory)
If success = False Then
    Log(fac.LastErrorText)
    Return
End If


Log("Zip Created!")