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.

Download Chilkat Zip ActiveX

LOCAL loZip
LOCAL lnSuccess
LOCAL loEntry
LOCAL lcXmlText

loZip = CreateObject('Chilkat.Zip2')

*  Any string unlocks the component for the 1st 30-days.
lnSuccess = loZip.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

*  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("hamlet.zip")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loZip.LastErrorText)
    QUIT
ENDIF

loEntry = loZip.GetEntryByName("hamlet.xml")
IF (NOT (loEntry = NULL )) THEN
    lcXmlText = loEntry.InflateToString2()
    ? lcXmlText
    RELEASE loEntry
ELSE
    =MESSAGEBOX("Failed to find entry in zip")
ENDIF