(VBScript) Gzip Compress In Memory and Base64 Encode

Demonstrates how to Gzip compress in-memory data and then encode the compressed data to base64.

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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Gzip")
set gzip = CreateObject("Chilkat.Gzip")

' This example will load a file into the fileData object.
' Your application might load fileData from other sources..
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set fileData = CreateObject("Chilkat.BinData")
success = fileData.LoadFile("qa_data/xml/hamlet.xml")
If (success <> 1) Then
    outFile.WriteLine("Failed to load file.")
    WScript.Quit
End If

' In-place compress the contents of fileData
success = gzip.CompressBd(fileData)
If (success <> 1) Then
    outFile.WriteLine(gzip.LastErrorText)
    WScript.Quit
End If

' Get the base64 encoded compressed data (in a single line).
strBase64 = fileData.GetEncoded("base64")
outFile.WriteLine(strBase64)
outFile.WriteLine("--------")

' To get the base64 in multiple lines, as it might appear in MIME,
' use "base64-mime".
strBase64MultiLine = fileData.GetEncoded("base64-mime")
outFile.WriteLine(strBase64MultiLine)

outFile.Close