(Xojo Plugin) Create a Zip Entirely in Memory

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

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim success As Boolean
success = False

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

Dim crypt As New Chilkat.Crypt2
Dim zip As New Chilkat.Zip

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

// Add the bytes 0x00 0x01 0x02 0x03 ... 0x0F as a file in the .zip
Dim bd As New Chilkat.BinData
success = bd.AppendEncoded("000102030405060708090A0B0C0D0E0F","hex")
success = zip.AddBd("binaryData.dat",bd)

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

Dim zipFileInMemory As MemoryBlock
zipFileInMemory = zip.WriteToMemory()

// We could save these files to a file, and it is a valid .zip
Dim fac As New Chilkat.FileAccess
success = fac.WriteEntireFile("test.zip",zipFileInMemory)
If (success = False) Then
    System.DebugLog(fac.LastErrorText)
    Return
End If

System.DebugLog("Zip Created!")