Visual FoxPro

Get Compressed ZIP Entry Data as Base64 Using ZipEntry.CopyToBase64

See more Zip Examples

This example creates a small ZIP archive containing a text file added from memory, writes the ZIP to disk, re-opens it, and then uses ZipEntry.CopyToBase64 to retrieve the compressed data for the text file as a Base64-encoded string.

The Base64 string returned by CopyToBase64 represents the compressed bytes stored for the entry inside the ZIP archive. It is not the original uncompressed text data.

Visual FoxPro

LOCAL lnSuccess
LOCAL loZip
LOCAL loZip2
LOCAL loEntry
LOCAL lcB64

lnSuccess = 0

* ------------------------------------------------------------
* First create a sample ZIP archive containing a small text file.

loZip = CreateObject('Chilkat.Zip')

lnSuccess = loZip.NewZip("c:/temp/sampleText.zip")
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Add a small text file from memory.
* The text is stored in the ZIP as "hello.txt".
lnSuccess = loZip.AddString("hello.txt","Hello from a ZIP entry!","utf-8")
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Write the ZIP archive to disk and close it.
lnSuccess = loZip.WriteZipAndClose()
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* ------------------------------------------------------------
* Now open the ZIP archive we just created.

loZip2 = CreateObject('Chilkat.Zip')

lnSuccess = loZip2.OpenZip("c:/temp/sampleText.zip")
IF (lnSuccess = 0) THEN
    ? loZip2.LastErrorText
    RELEASE loZip
    RELEASE loZip2
    CANCEL
ENDIF

* Get the text file entry.
loEntry = CreateObject('Chilkat.ZipEntry')

lnSuccess = loZip2.EntryOf("hello.txt",loEntry)

IF (lnSuccess = 0) THEN
    ? "Entry not found."
    RELEASE loZip
    RELEASE loZip2
    RELEASE loEntry
    CANCEL
ENDIF

* Get the compressed ZIP entry data as Base64.
* 
* This is the compressed data stored inside the ZIP file,
* not the uncompressed text "Hello from a ZIP entry!".
lcB64 = loEntry.CopyToBase64()

? "Base64 compressed ZIP entry data:"
? lcB64

loZip2.CloseZip()

? "Done."

RELEASE loZip
RELEASE loZip2
RELEASE loEntry