(Lianja) 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.

Chilkat Lianja Extension Download Chilkat Lianja Extension

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

loCrypt = createobject("CkCrypt2")
loZip = createobject("CkZip")

llSuccess = loZip.NewZip("test.zip")
if (llSuccess <> .T.) then
    ? loZip.LastErrorText
    release loCrypt
    release loZip
    return
endif

// Add the bytes 0x00 0x01 0x02 0x03 ... 0x0F as a file in the .zip

loBinFileData = loCrypt.Decode("000102030405060708090A0B0C0D0E0F","hex")
loEntry = loZip.AppendData("binaryData.dat",loBinFileData)
release loEntry

// Add the string "Hello World!" to the .zip
loEntry = loZip.AppendString2("helloWorld.txt","Hello World!","utf-8")
release loEntry

loZipFileInMemory = loZip.WriteToMemory()

// We could save these files to a file, and it is a valid .zip
loFac = createobject("CkFileAccess")
llSuccess = loFac.WriteEntireFile("test.zip",loZipFileInMemory)
if (llSuccess <> .T.) then
    ? loFac.LastErrorText
    release loCrypt
    release loZip
    release loFac
    return
endif

? "Zip Created!"


release loCrypt
release loZip
release loFac