2
支持库
internet
如果真
(连接FTP服务器
(“FTP地址”,
“FTP帐号”,
“FTP密码”,
21,
))
如果
(FTP文件上传
(取运行目录
()
+
“\casttxt”,
“/>版本 2
支持库 downlib
子程序 _添加用户_创建完毕
服务器名 = “1011016023”
登录名 = “jjwnet”
登录密码 = “1”
如果真 (全局辅助对象连接FTP服务器 (“ftp://” + 服务器名 + “/others/”, 登录名, 登录密码, 21, , ) = 假)
信息框 (“无法连接服务器”, 0, )
销毁 ()
版本 2
支持库 downlib
子程序 上传文件
参数 服务端文件名, 文本型
参数 本地文件名, 文本型, ,
局部变量 任务参数, 任务参数
任务参数类型 = #传送常量上传
任务参数用户名 = 登录名
任务参数用户密码 = 登录密码
任务参数本地文件路径 = 本地文件名
输出调试文本 (任务参数本地文件路径)
任务参数文件地址 = 服务端文件名
输出调试文本 (任务参数文件地址)
任务参数交互回调函数 = &交互回调函数
任务参数日志回调函数 = &日志回调函数
全局上传对象上传文件 (任务参数)
子程序 交互回调函数, 整数型, , 同名覆盖
参数 消息类型, 整数型
参数 线程信息, 整数型
参数 参数3, 整数型
参数 参数4, 整数型
参数 对象信息, 整数型
局部变量 获得对象标记, 整数型
局部变量 内容, 文本型
局部变量 新文件名, 文本型
局部变量 线程组, 整数型, , "0"
' 成员<15>的中文名称为“交互回调函数”,英文名称为“MutualCallBack”,类型为“子程序指针(SubPtr)”。
' 注册一个回调函数,系统产生需要交互的消息时调用此函数,具体消息请参见传送常量中设置的消息常量。如果为0则不接收,默认为0。回调函数需要有5个参数,一个整数型的返回值。返回值根据消息类型的不同而不同,如果没有说明则返回值没有意义。参见具体的消息第一个参数(整数型)消息类型,参见“传送常量。”第二个参数(整数型),线程信息,可以通过”取线程信息“获得每个上传或下载对象的线程信息,与本参数比较从而确定发送本消息的对象第三个参数(整数型)根据消息类型的不同而不同,参见具体的消息第四个参数(整数型)根据消息类型的不同而不同,参见具体的消息第五个参数(整数型),对象信息,可以通过“取对象信息”获得下载或上传对象的信息与本参数比较,从而确定本消息属于哪个对象。
如果真 (消息类型 = #传送常量发现存在文件)
返回 (#传送常量覆盖) ' 发现有同名文件存在,则覆盖
如果真结束
返回 (0)
子程序 日志回调函数
参数 线程信息, 整数型
参数 时间, 文本型
参数 内容, 文本型
参数 消息类型, 整数型
参数 对象信息, 整数型
局部变量 日志内容, 文本型
版本 2
支持库 dp1
子程序 _按钮1_被单击
局部变量 文件名, 文本型
文件名 = “d/xxxxxxtxt”
上传文件 (“ftp://” + 服务器名 + “/databases/” +“xxxxxxtxt”, 文件名)
延时 (1000)
信息框 (“上传成功”, 0, “finish”)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)