(Visual FoxPro) Unzip an AES Encrypted Text File directly into a String Variable

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.

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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