B4X

Gzip a File

See more Gzip Examples

Demonstrates how to create a .gz (gzipped file). B4X

Dim success As Boolean = False

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

Dim gzip As ChilkatGzip
gzip.Initialize("gzip")

'  This will create a .gz such that when ungzipped by a tool such as 7-Zip,
'  it will create "qa_data/hamlet.xml".
success = gzip.CompressFile("qa_data/hamlet.xml", "qa_output/hamlet.xml.gz")
If success = False Then
    Log(gzip.LastErrorText)
    Return
End If


'  Call CompressFile2 to explicitly specify the ungzip path
'  For example, this will create a .gz such that when ungzipped by a tool such as 7-Zip,
'  it will create "hamlet.xml".
Dim embeddedExtractPath As String = "hamlet.xml"
success = gzip.CompressFile2("qa_data/hamlet.xml", embeddedExtractPath, "qa_output/hamlet2.xml.gz")
If success = False Then
    Log(gzip.LastErrorText)
    Return
End If


Log("Success.")