软件在线升级源码 - 精易论坛

子程序名	返回值类型	公开	备注
读升级信息

变量名	类型	静态	数组	备注
xml	XML树
更新XML	字节集
软件ID	文本型
子节点个数	整数型
计次	整数型
softid	文本型
变量	整数型

标签_显示.标题＝ “正在获取更新信息，请稍候...”
处理事件 ()
软件ID ＝读配置项 (取运行目录 () ＋ “\sysconfig.ini”, “Config”, “id”, )
更新XML ＝ HTTP读文件 ( #网址＋ “update.xml”)

如果 (更新XML ＝ { })
标签_显示.标题＝ “获取更新列表失败...”
返回 ()

xml.导入 (更新XML)

xml.取子节点数 (“@1”, 子节点个数)
调试输出 (子节点个数)

计次循环首 (子节点个数, 计次)
调试输出 (“@1/@” ＋到文本 (计次))
xml.取属性值 (“@1/@” ＋到文本 (计次), “id”, softid)
调试输出 (softid, 软件ID)

如果真 (softid ＝软件ID)
变量＝计次
xml.取属性值 (“@1/@” ＋到文本 (变量), “main”, 主程序)
xml.取属性值 (“@1/@” ＋到文本 (变量), “upsoft”, 升级包)
xml.取属性值 (“@1/@” ＋到文本 (变量), “ver”, 网络版本)
xml.取属性值 (“@1/@” ＋到文本 (变量), “path”, 保存地址)
xml.取属性值 (“@1/@” ＋到文本 (变量), “log”, 升级日志)

计次循环尾 ()
xml.释放 ()
调试输出 (网络版本)

如果 (文本比较 (读配置项 (取运行目录 () ＋ “\sysconfig.ini”, “config”, “ver”, ), 网络版本, 真) ＜ 0)
运行 (取运行目录 () ＋ “\UpDate.exe UpDate Y”, 假, )
结束 ()

标签_显示.标题＝ “无须升级哟....”

i支持库列表	支持库注释
EXMLParser	XML解析支持库
internet	互联网支持库
spec	特殊功能支持库

.版本 2<br />
.支持库 EXMLParser<br />
.支持库 internet<br />
.支持库 spec<br />
<br />
.子程序 读升级信息<br />
.局部变量 xml, XML树<br />
.局部变量 更新XML, 字节集<br />
.局部变量 软件ID, 文本型<br />
.局部变量 子节点个数, 整数型<br />
.局部变量 计次, 整数型<br />
.局部变量 softid, 文本型<br />
.局部变量 变量, 整数型<br />
<br />
标签_显示.标题 ＝ “正在获取更新信息，请稍候...”<br />
处理事件 ()<br />
软件ID ＝ 读配置项 (取运行目录 () ＋ “\sysconfig.ini”, “Config”, “id”, )<br />
更新XML ＝ HTTP读文件 (#网址 ＋ “update.xml”)<br />
.如果 (更新XML ＝ {  })<br />
标签_显示.标题 ＝ “获取更新列表失败...”<br />
返回 ()<br />
.否则<br />
xml.导入 (更新XML)<br />
    xml.取子节点数 (“@1”, 子节点个数)<br />
调试输出 (子节点个数)<br />
    .计次循环首 (子节点个数, 计次)<br />
调试输出 (“@1/@” ＋ 到文本 (计次))<br />
xml.取属性值 (“@1/@” ＋ 到文本 (计次), “id”, softid)<br />
调试输出 (softid, 软件ID)<br />
        .如果真 (softid ＝ 软件ID)<br />
变量 ＝ 计次<br />
xml.取属性值 (“@1/@” ＋ 到文本 (变量), “main”, 主程序)<br />
xml.取属性值 (“@1/@” ＋ 到文本 (变量), “upsoft”, 升级包)<br />
xml.取属性值 (“@1/@” ＋ 到文本 (变量), “ver”, 网络版本)<br />
xml.取属性值 (“@1/@” ＋ 到文本 (变量), “path”, 保存地址)<br />
xml.取属性值 (“@1/@” ＋ 到文本 (变量), “log”, 升级日志)<br />
        .如果真结束<br />
<br />
.计次循环尾 ()<br />
xml.释放 ()<br />
调试输出 (网络版本)<br />
    .如果 (文本比较 (读配置项 (取运行目录 () ＋ “\sysconfig.ini”, “config”, “ver”, ), 网络版本, 真) ＜ 0)<br />
运行 (取运行目录 () ＋ “\UpDate.exe UpDate Y”, 假, )<br />
结束 ()<br />
    .否则<br />
        标签_显示.标题 ＝ “无须升级哟....”<br />
.如果结束

子程序名	返回值类型	公开	备注
开始更新

变量名	类型	静态	数组	备注
文件	字节集

透明标签1.标题＝ “正在准备下载程序...” ' 正在下载
文件＝ HTTP读指定文件 (下载地址, &进度)

如果真 (标签百分比＝ “100%”)
透明标签1.标题＝ “下载已完成，正在等待解压中...”
延迟 (3000)

判断 (写到文件 (本地地址, 文件) ＝真) ' \yecattools.zip
透明标签1.标题＝ “正在更新文件....” ' 正在解压

如果 (ZIP.解压 (本地地址, 取运行目录 ()) ＝ 1) ' \yecattools.zip
透明标签1.标题＝ “升级成功，请点击确认按钮”
写配置项 (取运行目录 () ＋ “\sysconfig.ini”, “config”, “ver”, 网络版本)
按钮_确定.禁止＝假

透明标签1.标题＝ “很抱歉，解压失败，请点击左上角手动下载更新。”

透明标签1.标题＝ “文件写入失败，检查文件夹是否有写入权限！”
延迟 (3000)
结束 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库
eCompress	压缩解压支持库