Unzip an AES Encrypted Text File directly into a String Variable

Download Chilkat 32-bit Zip ActiveX (.msi) (includes objects for .zip, .gz, .bz2, and .Z)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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.

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