The following code snippet uses GZIP to compress/decompress a file. Choose a file by specifying a file path in the "filename" variable.
Class objectscript.GZIP Extends %RegisteredObject
{
classmethod test() {
//Export Global(s) uncompressed
set filename="C:\Temp\myglobal.xml"
do $System.OBJ.Export("^oddEXTR.gbl",filename)
//Open exported Globals
set uncompressed = ##class(%FileBinaryStream).%New()
set uncompressed.Filename=filename
Set compressed = "C:\temp\mycomglobal.xml"
//Open File Device over Gzip and Copy Uncompressed information to it
Open compressed:("WUNK":::/GZIP=1:/NOXY=1:/OBUFSIZE=32768):0
Use compressed
do uncompressed.OutputToDevice()
close compressed
//Create New File
.png)
.png)
