(Visual FoxPro) Unzip Encrypted Text into a String Variable

Demonstrates how to open an encrypted .zip archive and unzip a text file directly into a string variable.

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

LOCAL loZip
LOCAL lnSuccess
LOCAL loEntry
LOCAL lnLineEndingBehavior
LOCAL lcSrcCharset
LOCAL lcStrCsv

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

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Zip')
loZip = CreateObject('Chilkat.Zip')

* Set the password required for decrypting.
loZip.DecryptPassword = "myPassword"

lnSuccess = loZip.OpenZip("encrypted.zip")
IF (lnSuccess <> 1) THEN
    ? loZip.LastErrorText
    RELEASE loZip
    CANCEL
ENDIF

* Locate the file within the Zip to be unzipped into a string variable:
loEntry = loZip.FirstMatchingEntry("*.csv")
IF (loZip.LastMethodSuccess = 0) THEN
    ? "No matching entry found."
    RELEASE loZip
    CANCEL
ENDIF

* lineEndingBehavior:
* 0 = leave unchanged.
* 1 = convert all to bare LF's
* 2 = convert all to CRLF's
lnLineEndingBehavior = 0
lcSrcCharset = "utf-8"

lcStrCsv = loEntry.UnzipToString(lnLineEndingBehavior,lcSrcCharset)
? lcStrCsv
RELEASE loEntry

RELEASE loZip