易语言使用FTP服务器更新软件案例

.版本 2
.支持库 downlib
.支持库 spec
.支持库 edroptarget
.支持库 EThread
.支持库 internet
.支持库 shell

.程序集 窗口程序集_启动窗口
.程序集变量 全_接受到的文件, 文本型
.程序集变量 FTP, FTP辅助对象
.程序集变量 下载对象, 下载对象
.程序集变量 任务参数, 任务参数
.程序集变量 传送常量, 传送常量
.程序集变量 版本号, 文本型, , "2"
.程序集变量 文件号, 整数型, , "2"

.子程序 __启动窗口_创建完毕
.局部变量 文件大小, 整数型

文件号 [1] ＝ 打开文件 (“C:\Users\Administrator\Desktop\软件更新案例\版本信息.txt”, #读写, 1)  ' 先检查本地软件版本
版本号 [1] ＝ 读入一行 (文件号 [1])  ' 将读入本地版本号
调试输出 (版本号 [1])
关闭文件 (文件号 [1])
拖放对象1.注册拖放控件 (_启动窗口.取窗口句柄 ())  ' 用于上传文件，方便试验
.如果真 (版本号 [1] ≠ “”)  ' 先确定找到本地版本号才运行以下代码
    .如果 (FTP.连接FTP服务器 (“这里输入你申请的服务链接”, “这输入用户名！”, “这里输入密码”, 21, &日志回调, ))  ' 登录服务器
        .如果真 (文件_删除 (“C:\Users\Administrator\Desktop\软件更新案例\版本信息.txt”))
            启动线程 (&更新线程2, , )
        .如果真结束
        _启动窗口.标题 ＝ “连接服务器成功”  ' 提示服务器连接成功
    .否则
        _启动窗口.标题 ＝ “连接服务器失败”
    .如果结束

.如果真结束


.子程序 日志回调
.参数 线程信息, 整数型
.参数 消息产生的时间, 文本型
.参数 消息的正文, 文本型
.参数 消息类型, 整数型
.参数 对象信息, 整数型

调试输出 (线程信息)
调试输出 (消息产生的时间)
调试输出 (消息的正文)
调试输出 (消息类型)
调试输出 (对象信息)

.子程序 _按钮1_被单击

FTP文件上传 (全_接受到的文件, “版本信息.txt”, )

.子程序 _拖放对象1_得到文件
.参数 接收到的文件路径, 文本型

全_接受到的文件 ＝ 接收到的文件路径
编辑框1.内容 ＝ 接收到的文件路径

.子程序 更新线程2

任务参数.类型 ＝ #传送常量.下载
任务参数.文件地址 ＝ “这里输入你申请的服务链接/版本信息.txt”
' 注意：加ftp服务器名(编辑框1.内容 )
信息框 (任务参数.文件地址, 0, , )
任务参数.本地文件路径 ＝ “C:\Users\Administrator\Desktop\软件更新案例\版本信息.txt”
' 任务参数.日志回调函数 ＝ &日志回调
任务参数.用户名 ＝ “这输入用户名！”
任务参数.用户密码 ＝ “ 这里输入密码”
任务参数.发送大小 ＝ 2048
任务参数.接收大小 ＝ 20480
任务参数.发送超时 ＝ 20000
' 任务参数.交互回调函数 ＝ &交互回调函数
任务参数.下载速度 ＝ 0
任务参数.接收超时 ＝ 20000
任务参数.传送类型 ＝ 1
任务参数.类型区分串 ＝ “.exe|.rar|.zip|.gif|.jpg|.mp3|.rm|.txt”
.如果真 (下载对象.增加新任务 (任务参数))
    信息框 (“开始下载咯”, 0, , )
    ' 延时 (300)
    文件号 [2] ＝ 打开文件 (取特定目录 (3) ＋ “版本信息.txt”, #读写, 1)  ' 读入服务器下载下来的版本信息文件
    版本号 [2] ＝ 读入一行 (文件号 [2])
    调试输出 (版本号 [2])
    .如果 (版本号 [1] ≠ 版本号 [2])  ' 判断本地版本号跟服务器是否一致，不一致就下载新软件
        .如果 (信息框 (“发现新版本是否更新？”, 0, , ) ＝ 0)  ' 要你确认
            删除文件 (取运行目录 () ＋ “1.0程序”)
            任务参数.文件地址 ＝ “这里输入你申请的服务链接/程序.e”  ' 下载咯
            任务参数.类型 ＝ #传送常量.下载
            ' 注意：加ftp服务器名(编辑框1.内容 )
            信息框 (任务参数.文件地址, 0, , )
            任务参数.本地文件路径 ＝ “C:\Users\Administrator\Desktop\软件更新案例\版本信息.txt”
            ' 任务参数.日志回调函数 ＝ &日志回调
            任务参数.用户名 ＝ “这输入用户名！”
            任务参数.用户密码 ＝ “ 这里输入密码”
            任务参数.发送大小 ＝ 2048
            任务参数.接收大小 ＝ 20480
            任务参数.发送超时 ＝ 20000
            ' 任务参数.交互回调函数 ＝ &交互回调函数
            任务参数.下载速度 ＝ 0
            任务参数.接收超时 ＝ 20000
            任务参数.传送类型 ＝ 1
            任务参数.类型区分串 ＝ “.exe|.rar|.zip|.gif|.jpg|.mp3|.rm|.txt”
            下载对象.增加新任务 (任务参数)
        .否则
            _启动窗口.销毁 ()
        .如果结束

    .否则

    .如果结束

.如果真结束

@weiyongbo