zip_deflate压缩易语言源码

资源介绍：

zip_deflate压缩易语言源码

资源作者：

天哥软件

资源界面：

.版本 2

.子程序 JS_Getzipinfo, 文本型
.参数 Data, 文本型
.局部变量 局_JScript, 对象
.局部变量 局_result, 文本型

' 如果需要多线程请在这里初始化com库
局_JScript.创建 (“scriptcontrol”, )
局_JScript.写属性 (“Language”, “JScript”)
局_JScript.数值方法 (“AddCode”, #JS)  ' 此处填入为JS常量
局_result ＝ 局_JScript.通用方法 (“Eval”, “Getzipinfo('” ＋ Data ＋ “')”).取文本 ()  ' 此处的表达式如果比较复杂建议使用常量,或者改用Run方法

' 如果需要多线程请在这里卸载com
返回 (局_result)  ' 返回文本型,如果是数值可以取数值

.子程序 JS_zip_deflate, 文本型
.参数 Data, 文本型
.局部变量 局_JScript, 对象
.局部变量 局_result, 文本型

' 如果需要多线程请在这里初始化com库
局_JScript.创建 (“scriptcontrol”, )
局_JScript.写属性 (“Language”, “JScript”)
局_JScript.数值方法 (“AddCode”, #JS)  ' 此处填入为JS常量
局_result ＝ 局_JScript.通用方法 (“Eval”, “zip_deflate('” ＋ Data ＋ “')”).取文本 ()  ' 此处的表达式如果比较复杂建议使用常量,或者改用Run方法
' 如果需要多线程请在这里卸载com
返回 (局_result)  ' 返回文本型,如果是数值可以取数值