易语言FTP上传

.版本 2
.支持库 downlib

.子程序 _添加用户_创建完毕

服务器名 ＝ “10.110.160.23”
登录名 ＝ “jjwnet”
登录密码 ＝ “1”

.如果真 (全局辅助对象.连接FTP服务器 (“ftp://” ＋ 服务器名 ＋ “/others/”, 登录名, 登录密码, 21, , ) ＝ 假)
信息框 (“无法连接服务器”, 0, )
销毁 ()

.版本 2
.支持库 downlib

.子程序 上传文件
.参数 服务端文件名, 文本型
.参数 本地文件名, 文本型, ,
.局部变量 任务参数, 任务参数

任务参数.类型 ＝ #传送常量.上传
任务参数.用户名 ＝ 登录名
任务参数.用户密码 ＝ 登录密码
任务参数.本地文件路径 ＝ 本地文件名
输出调试文本 (任务参数.本地文件路径)
任务参数.文件地址 ＝ 服务端文件名
输出调试文本 (任务参数.文件地址)
任务参数.交互回调函数 ＝ &交互回调函数
任务参数.日志回调函数 ＝ &日志回调函数

全局上传对象.上传文件 (任务参数)

.子程序 交互回调函数, 整数型, , 同名覆盖
.参数 消息类型, 整数型
.参数 线程信息, 整数型
.参数 参数3, 整数型
.参数 参数4, 整数型
.参数 对象信息, 整数型
.局部变量 获得对象标记, 整数型
.局部变量 内容, 文本型
.局部变量 新文件名, 文本型
.局部变量 线程组, 整数型, , "0"

' 成员<15>的中文名称为“交互回调函数”，英文名称为“MutualCallBack”，类型为“子程序指针（SubPtr）”。
' 注册一个回调函数，系统产生需要交互的消息时调用此函数，具体消息请参见传送常量中设置的消息常量。如果为0则不接收，默认为0。回调函数需要有5个参数，一个整数型的返回值。返回值根据消息类型的不同而不同，如果没有说明则返回值没有意义。参见具体的消息第一个参数（整数型）消息类型，参见“传送常量。”第二个参数（整数型），线程信息，可以通过”取线程信息“获得每个上传或下载对象的线程信息，与本参数比较从而确定发送本消息的对象第三个参数（整数型）根据消息类型的不同而不同，参见具体的消息第四个参数（整数型）根据消息类型的不同而不同，参见具体的消息第五个参数（整数型），对象信息，可以通过“取对象信息”获得下载或上传对象的信息与本参数比较，从而确定本消息属于哪个对象。

.如果真 (消息类型 ＝ #传送常量.发现存在文件)
返回 (#传送常量.覆盖) ' 发现有同名文件存在，则覆盖
.如果真结束

返回 (0)

.子程序 日志回调函数
.参数 线程信息, 整数型
.参数 时间, 文本型
.参数 内容, 文本型
.参数 消息类型, 整数型
.参数 对象信息, 整数型
.局部变量 日志内容, 文本型

.版本 2
.支持库 dp1

.子程序 _按钮1_被单击
.局部变量 文件名, 文本型
文件名 ＝ “d/xxxxxx.txt”
上传文件 (“ftp://” ＋ 服务器名 ＋ “/databases/” +“xxxxxx.txt”, 文件名)
延时 (1000)
信息框 (“上传成功”, 0, “finish”)

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vf7evr73v.html