Visual FoxPro

Unzip an AES Encrypted Text File directly into a String Variable

See more Zip Examples

A common need is to unzip from an AES encrypted Zip archive directly into a string variable, such that the unencrypted file never resides on disk, even temporarily. This example shows how to do it. Visual FoxPro

LOCAL lnSuccess
LOCAL loZip
LOCAL loEntry
LOCAL lnLineEndingBehavior
LOCAL lcSrcCharset
LOCAL lcXmlText

lnSuccess = 0

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

loZip = CreateObject('Chilkat.Zip')

* This example opens a WinZip-compatible AES encrypted
* .zip that contains a single file: hamlet.xml.

* It decrypts and unzips hamlet.xml directly into a string
* variable.
loZip.SetPassword("secret")
lnSuccess = loZip.OpenZip("qa_data/hamlet.zip")
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

loEntry = CreateObject('Chilkat.ZipEntry')
lnSuccess = loZip.EntryOf("hamlet.xml",loEntry)
IF (lnSuccess = 0) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    RELEASE loEntry
    CANCEL
ENDIF

* lineEndingBehavior:
* 0 = leave unchanged.
* 1 = convert all to bare LF's
* 2 = convert all to CRLF's
lnLineEndingBehavior = 0
lcSrcCharset = "utf-8"
lcXmlText = loEntry.UnzipToString(lnLineEndingBehavior,lcSrcCharset)
? lcXmlText

RELEASE loZip
RELEASE loEntry