:25.867KB : :1 :2020-05-09 17:29:17
脚本控制对象应用源码例程程序创建易语言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)
12-17数据库增删查改SQLite数据库应用操作