(Visual FoxPro) Decode Base64 to Zip File

Shows how to decode a baes64 string that is the encoded representation of the bytes that make up a .zip archive. Decodes the base64 and writes the .zip file.

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

LOCAL lcB64
LOCAL loZipData
LOCAL lnSuccess

lcB64 = "UEsDBBQA ... AAALgQAAAAA"

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData')
loZipData = CreateObject('Chilkat.BinData')
lnSuccess = loZipData.AppendEncoded(lcB64,"base64")
lnSuccess = loZipData.WriteFile("qa_output/out.zip")
IF (lnSuccess <> 1) THEN
    ? "failed to write Zip file."
    RELEASE loZipData
    CANCEL
ENDIF

RELEASE loZipData