(Visual FoxPro) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCrypt
LOCAL loZip
LOCAL lnSuccess
LOCAL loBinFileData
LOCAL loEntry
LOCAL loZipFileInMemory
LOCAL loFac

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Zip')
loZip = CreateObject('Chilkat.Zip')

lnSuccess = loZip.NewZip("test.zip")
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loCrypt
    RELEASE loZip
    CANCEL
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
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.FileAccess')
loFac = CreateObject('Chilkat.FileAccess')
lnSuccess = loFac.WriteEntireFile("test.zip",loZipFileInMemory)
IF (lnSuccess <> 1) THEN
    ? loFac.LastErrorText
    RELEASE loCrypt
    RELEASE loZip
    RELEASE loFac
    CANCEL
ENDIF

? "Zip Created!"

RELEASE loCrypt
RELEASE loZip
RELEASE loFac