易语言脚本控制对象应用操作

脚本控制对象应用源码例程程序创建易语言ScriptControl对象，调用API函数实现脚本控制对象的应用默认自建dom对象。

gzip_InitCompression ()
gzip_CreateCompression (context, 3) ' #GZIP_LVL
.循环判断首 ()
inData2 ＝ 取字节集中间 (inData, 压缩位置 ＋ 1, 8192) ' #MAX_BUF
inLength ＝ 取字节集长度 (inData2)
hResult ＝ gzip_Compress (context, inData2, inLength, buffer, 8192, inUsed, outUsed, 3)
.如果真 (0 ≠ outUsed)
upRetByts ＝ upRetByts ＋ 取字节集左边 (buffer, outUsed)
压缩位置 ＝ 压缩位置 ＋ inUsed
.如果真结束

.循环判断尾 (hResult ＝ 0)
gzip_DestroyCompression (context)