(DataFlex) Compress a String to Gzip and Return as Base64

See more Gzip Examples

This example demonstrates how to use the CompressStringENC method to compress a string into Gzip format and return the result as an encoded string.

The input string is first converted to its byte representation using the specified character set (in this case, UTF-8). The bytes are then compressed using the Gzip format. Finally, the compressed binary data is encoded as a Base64 string.

Returning the compressed data as an encoded string is useful for safely transmitting or storing the data in text-based systems such as JSON, XML, or HTTP headers.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoGzip
    String sInputStr
    String sCompressedBase64
    String sTemp1
    Boolean bTemp1

    // This example demonstrates how to compress a string into Gzip format
    // and return the compressed result as a Base64-encoded string.

    Get Create (RefClass(cComChilkatGzip)) To hoGzip
    If (Not(IsComObjectCreated(hoGzip))) Begin
        Send CreateComObject of hoGzip
    End

    // The string to be compressed:
    Move "The quick brown fox jumps over the lazy dog." To sInputStr

    // Compress the string using UTF-8, and return the result as Base64:
    Get ComCompressStringENC Of hoGzip sInputStr "utf-8" "base64" To sCompressedBase64
    Get ComLastMethodSuccess Of hoGzip To bTemp1
    If (bTemp1 = False) Begin
        Get ComLastErrorText Of hoGzip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln "Original string: " sInputStr
    Showln "Compressed (Base64): " sCompressedBase64

    // Note: For very small strings, the compressed output may actually be larger
    // than the original. This is because the Gzip format adds overhead such as
    // headers and metadata. As the size of the input string increases, the
    // compression becomes more effective and results in a smaller output.


End_Procedure