DataFlex

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.

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoZip
    Handle hoZip2
    Variant vEntry
    Handle hoEntry
    String sB64
    String sTemp1

    Move False To iSuccess

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

    Get Create (RefClass(cComChilkatZip)) To hoZip
    If (Not(IsComObjectCreated(hoZip))) Begin
        Send CreateComObject of hoZip
    End

    Get ComNewZip Of hoZip "c:/temp/sampleText.zip" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Add a small text file from memory.
    // The text is stored in the ZIP as "hello.txt".
    Get ComAddString Of hoZip "hello.txt" "Hello from a ZIP entry!" "utf-8" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Write the ZIP archive to disk and close it.
    Get ComWriteZipAndClose Of hoZip To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

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

    Get Create (RefClass(cComChilkatZip)) To hoZip2
    If (Not(IsComObjectCreated(hoZip2))) Begin
        Send CreateComObject of hoZip2
    End

    Get ComOpenZip Of hoZip2 "c:/temp/sampleText.zip" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoZip2 To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Get the text file entry.
    Get Create (RefClass(cComChilkatZipEntry)) To hoEntry
    If (Not(IsComObjectCreated(hoEntry))) Begin
        Send CreateComObject of hoEntry
    End

    Get pvComObject of hoEntry to vEntry
    Get ComEntryOf Of hoZip2 "hello.txt" vEntry To iSuccess

    If (iSuccess = False) Begin
        Showln "Entry not found."
        Procedure_Return
    End

    // 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!".
    Get ComCopyToBase64 Of hoEntry To sB64

    Showln "Base64 compressed ZIP entry data:"
    Showln sB64

    Send ComCloseZip To hoZip2

    Showln "Done."


End_Procedure