(PureBasic) Get Compressed ZIP Entry Data as Base64 Using ZipEntry.CopyToBase64

See more Zip Examples

This example creates a small ZIP archive containing a text file added from memory, writes the ZIP to disk, re-opens it, and then uses ZipEntry.CopyToBase64 to retrieve the compressed data for the text file as a Base64-encoded string.

The Base64 string returned by CopyToBase64 represents the compressed bytes stored for the entry inside the ZIP archive. It is not the original uncompressed text data.

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

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkZip.pb"
IncludeFile "CkZipEntry.pb"

Procedure ChilkatExample()

    success.i = 0

    ; ------------------------------------------------------------
    ; First create a sample ZIP archive containing a small text file.

    zip.i = CkZip::ckCreate()
    If zip.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkZip::ckNewZip(zip,"c:/temp/sampleText.zip")
    If success = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; Add a small text file from memory.
    ; The text is stored in the ZIP as "hello.txt".
    success = CkZip::ckAddString(zip,"hello.txt","Hello from a ZIP entry!","utf-8")
    If success = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; Write the ZIP archive to disk and close it.
    success = CkZip::ckWriteZipAndClose(zip)
    If success = 0
        Debug CkZip::ckLastErrorText(zip)
        CkZip::ckDispose(zip)
        ProcedureReturn
    EndIf

    ; ------------------------------------------------------------
    ; Now open the ZIP archive we just created.

    zip2.i = CkZip::ckCreate()
    If zip2.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkZip::ckOpenZip(zip2,"c:/temp/sampleText.zip")
    If success = 0
        Debug CkZip::ckLastErrorText(zip2)
        CkZip::ckDispose(zip)
        CkZip::ckDispose(zip2)
        ProcedureReturn
    EndIf

    ; Get the text file entry.
    entry.i = CkZipEntry::ckCreate()
    If entry.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkZip::ckEntryOf(zip2,"hello.txt",entry)

    If success = 0
        Debug "Entry not found."
        CkZip::ckDispose(zip)
        CkZip::ckDispose(zip2)
        CkZipEntry::ckDispose(entry)
        ProcedureReturn
    EndIf

    ; Get the compressed ZIP entry data as Base64.
    ; 
    ; This is the compressed data stored inside the ZIP file,
    ; not the uncompressed text "Hello from a ZIP entry!".
    b64.s = CkZipEntry::ckCopyToBase64(entry)

    Debug "Base64 compressed ZIP entry data:"
    Debug b64

    CkZip::ckCloseZip(zip2)

    Debug "Done."


    CkZip::ckDispose(zip)
    CkZip::ckDispose(zip2)
    CkZipEntry::ckDispose(entry)


    ProcedureReturn
EndProcedure