软件在线升级 源码

hdstu

根据以前的代码做了修改主要功能:

• 读取服务器上XML文件,支持多个软件升级,仅需将软件按一定规则进行编号;
• 支持自定义XML字段,如果你感觉现有XML中内容还不够用,可以自已增加节点属性即可;
• 支持zip压缩包;
• 支持显示升级日志,让你的客户可以清楚的了解到软件升级的内容;
• 支持在线升级失败,手工下载升级包;
  

分割线+++++++++++++++++++++++++++++++

程序源代码(部分)

  

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

变量名	类 型	静态	数组	备 注
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	压缩解压支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 eCompress<br /> <br /> .子程序 开始更新<br /> .局部变量 文件, 字节集<br /> <br /> 透明标签1.标题 ＝ “正在准备下载程序...”  ' 正在下载<br /> 文件 ＝ HTTP读指定文件 (下载地址, &进度)<br /> .如果真 (标签百分比 ＝ “100%”)<br /> 透明标签1.标题 ＝ “下载已完成，正在等待解压中...”<br /> 延迟 (3000)<br />     .判断开始 (写到文件 (本地地址, 文件) ＝ 真)  ' \yecattools.zip<br /> 透明标签1.标题 ＝ “正在更新文件....”  ' 正在解压<br /> .如果 (ZIP.解压 (本地地址, 取运行目录 ()) ＝ 1)  ' \yecattools.zip<br /> 透明标签1.标题 ＝ “升级成功，请点击确认按钮”<br /> 写配置项 (取运行目录 () ＋ “\sysconfig.ini”, “config”, “ver”, 网络版本)<br /> 按钮_确定.禁止 ＝ 假<br /> .否则<br />             透明标签1.标题 ＝ “很抱歉，解压失败，请点击左上角手动下载更新。”<br /> .如果结束<br /> <br /> .默认<br />         透明标签1.标题 ＝ “文件写入失败，检查文件夹是否有写入权限！”<br /> 延迟 (3000)<br /> 结束 ()<br />     .判断结束

分割线 软件源码附件:

wdfdiablo

好东西 正需要

黄小贵

..........................

asfor78

看着不错，学习了

yuxuanju

易下载引擎模块无源码。

大可2010

看着不错，学习了

lfb

新年好啊，幸福快乐每一天

wrjsg

馨悦阁

下载看看，有用么

宝盾

看看貌似很有用啊学习了

我爱易语言mm

瞅瞅看，能不能用撒。。。