(DataFlex) GZip Create / Extract .gz File

Demonstrates how to compress a file to create a .gz (GZip) file.

Note: The .gz file format is a compressed file format. It contains a single file. The .gz file format is not an archive format (i.e. it does not contain a collection of files/directories such as with the .zip, .rar, or .tar file formats). GZip is often combined with TAR to create a .tgz (or .tar.gz).

Note: It is possible for a .gz to contain more than one file, but this is very uncommon.

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

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoGzip
    Boolean iSuccess
    String sXmlStr
    String sTemp1

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

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

    // File-to-file GZip:
    // Compress "hamlet.xml" to create "hamlet.xml.gz"
    Get ComCompressFile Of hoGzip "hamlet.xml" "hamlet.xml.gz" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoGzip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // File-to-file ungzip
    // Decompress "hamlet.xml.gz" to create "hamletOut.xml"
    Get ComUncompressFile Of hoGzip "hamlet.xml.gz" "hamletOut.xml" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoGzip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // File-to-string ungzip
    // Decompress the contents of a .gz directly to a string variable:
    // The 2nd argument indicates the charset of the character
    // data after it is decompressed.

    Get ComUncompressFileToString Of hoGzip "hamlet.xml.gz" "utf-8" To sXmlStr
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoGzip To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Showln sXmlStr

    // The Chilkat GZip API provides much more flexibility than shown
    // here.  See the reference documentation at 
    // http://www.chilkatsoft.com/refdoc for more information


End_Procedure