易语言ftp操作
1. 易语言 ftp的操作
.版本 2
.支持库 iext
.支持库 internet.局部变量 项目类型, 整数型
.局部变量 选中项, 整数型
.局部变量 当前目录, 文本型
.局部变量 容器1, 整数型选中项 ＝ 远程文件框.现行选中项
.如果真 (选中项 ＝ -1)
返回 ()
.如果真结束
项目类型 ＝ 远程文件框.取表项数值 (选中项)当前目录 ＝ FTP取现行目录 ()
.判断开始 (项目类型 ＝ 0) ' 是否为到上目录
容器1 ＝ 倒找文本 (当前目录, “/”, , 真)
.如果真 (容器1 ≠ -1)
当前目录 ＝ 取文本左边 (当前目录, 容器1)
.如果真 (当前目录 ≠ “/”)
当前目录 ＝ 取文本左边 (当前目录, 容器1 － 1)
.如果真结束
FTP置现行目录 (当前目录)
填充远程框 ()
.如果真结束.判断 (项目类型 ＝ 1) ' 是否到子目录
.如果真 (取文本右边 (当前目录, 1) ≠ “/”)
当前目录 ＝ 当前目录 ＋ “/”
.如果真结束
FTP置现行目录 (当前目录 ＋ 远程文件框.取标题 (选中项, ))
填充远程框 ()
.默认.版本 2
.支持库 iext
.支持库 internet.子程序 填充远程框
.局部变量 文件名, 文本型, , "0"
.局部变量 文件尺寸, 整数型, , "0"
.局部变量 文件属性, 整数型, , "0"
.局部变量 文件时间, 日期时间型, , "0"
.局部变量 数目, 整数型
.局部变量 容器1, 整数型
.局部变量 名称, 文本型
.局部变量 索引, 整数型
.局部变量 现行目录, 文本型远程文件框.全部删除 ()状态标签.标题 ＝ “正在获取目录列表,请稍候...”
状态标签.刷新显示 () ' 立即显示改变后的标题
数目 ＝ FTP目录列表 (“*.*”, , 文件名, 文件属性, 文件尺寸, 文件时间)
' 填充目录
现行目录 ＝ FTP取现行目录 ()
.如果真 (现行目录 ≠ “/”)
远程文件框.插入表项 (, , 0, , , 0) ' 如果不是根目录,则插入到父目录的特殊表项
.如果真结束.计次循环首 (数目, 容器1)
.如果真 (位与 (文件属性 [容器1], #子目录) ≠ 0)
名称 ＝ 文件名 [容器1]
.如果真 (取文本左边 (名称, 1) ≠ “.”)
索引 ＝ 远程文件框.插入表项 (, 名称, 1, , , 1)
远程文件框.置标题 (索引, 2, 到文本 (文件时间 [容器1]))
.如果真结束 .如果真结束.计次循环尾 ()
' 填充文件
.计次循环首 (数目, 容器1)
.如果真 (位与 (文件属性 [容器1], #子目录) ＝ 0)
索引 ＝ 远程文件框.插入表项 (, 文件名 [容器1], 2, , , 2)
远程文件框.置标题 (索引, 1, 到文本 (文件尺寸 [容器1]))
远程文件框.置标题 (索引, 2, 到文本 (文件时间 [容器1]))
.如果真结束.计次循环尾 ()
2. 易语言连接Ftp服务器后如何读取某个图片文件显示在图片框上
1、如果是FTP服务器连接用以下代码
.版本 2
.支持库 internet
FTP文件下载 (“FTP服务器上欲下载文件的路径”, “本地保存位置”, )
图片框1.图片 ＝ 读入文件 (“本地保存位置”)
2、如果是网页图片用以下代码
图片框1.图片 ＝ HTTP读文件 (“HTTP文件地址”)
3. 易语言FTP文件上传问题，感激~
可以像图片里写。
其中FTP地址、账号、密码区你可以用编辑框来代替。其它的我就不多说了。
4. 易语言ftp上传文件
[e=1].版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量 ftp, 类_FTP
.如果真 (ftp.连接FTP服务器 (地址, 帐号, 密码, 21, ))
.如果真 (ftp.文件上传 (取运行目录 () ＋ “\123.txt”, “/123.txt”, ))
调试输出 (“上传成功”)
.如果真结束
[/e]
1.文件上传，返回的是真吗。 是否上传成功，如果成功了说明命令没有问题，是参数的问题。
2.文件上传的第二个参数，去掉IP地址试试。
5. 易语言 ftp读取txt
步骤是，1.连接FTP服务器进行下载你要的文本文件到本地
2.再打开本地读入文件内容显示在编辑框内
具体例：
.版本 2
.支持库 internet
.支持库 shell
.子程序 __启动窗口_创建完毕
.局部变量 文件号, 整数型
连接FTP服务器 (“58.222.184.**”, “j***”, “0910228***”, , )
FTP文件下载 (“1.txt”, 取特定目录 (3) ＋ “\1.txt”, )‘因为我的E不好编辑，我把他存在桌面了！你可以自己设定位置。
文件号 ＝ 打开文件 (取特定目录 (3) ＋ “\1.txt”, , )
编辑框1.内容 ＝ 读入文本 (文件号, )
6. 易语言ftp文件上传 到指定文件夹
.版本 2
.支持库 downlib
.支持库 iext
.支持库 internet
.程序集变量 上传文件, FTP上传对象
.程序集变量 参数, 任务参数
.子程序 上传
参数.类型 ＝ 2 ＋ 3 ' 参数详见提示
参数.传送类型 ＝ 1
参数.文件地址 ＝ “ftp://” ＋ FTP地址 ＋ “/” ＋ FTP账号 ＋ “/1/1.txt” ' 这里是FTP服务器路径，可以修改。
参数.用户名 ＝ FTP账号
参数.用户密码 ＝ FTP密码
参数.本地文件路径 ＝ “c:\1.txt” ' 这里的文件名是需要上传的文件路径，可以修改。
参数.线程等待超时 ＝ 1000
' =============================================================
透明标签1.标题 ＝ “正在连接服务器...”
透明标签2.标题 ＝ “正在上传文件...”
.判断开始 (连接FTP服务器 (FTP地址, FTP账号, FTP密码, , ))
透明标签1.标题 ＝ “已连接！”
输出调试文本 (FTP取现行目录 () ＋ “aaa”)
.默认
透明标签1.标题 ＝ “连接失败！”
返回 ()
.判断结束
' =============================================================
' 双线内代码为测试服务器是否可用，可以不需要
上传文件.上传文件 (参数)
7. 易语言读取FTP指定目录里的txt文件名到列表框
.版本 2
.支持库 internet
.子程序 _列表框1_双击选择
.如果 (连接FTP服务器 (FTP, USR, PAS, , ))
FTP置现行目录 () ' 设为你指定的目录
.如果 (FTP文件下载 (列表框1.取项目文本 (列表框1.现行选中项), “.\temp.txt”, ))
编辑框1.内容 ＝ 到文本 (读入文件 (“.\temp.txt”))
.否则
信息框 (“FTP文件下载失败”, 16, “错误”)
.如果结束
断开FTP服务器 ()
.否则
信息框 (“连接FTP服务器失败”, 16, “错误”)
.如果结束
.子程序 _按钮1_被单击
.局部变量 文件列表, 文本型, , "0"
.局部变量 cnt, 整数型
.局部变量 tmp, 整数型
.如果 (连接FTP服务器 (FTP, USR, PAS, , ))
FTP置现行目录 () ' 设为你指定的目录
cnt ＝ FTP目录列表 (“*.txt”, , 文件列表, , , )
列表框1.清空 ()
.计次循环首 (cnt, tmp)
列表框1.加入项目 (文件列表 [tmp], )
处理事件 ()
.计次循环尾 ()
断开FTP服务器 ()
.否则
信息框 (“连接FTP服务器失败”, 16, “错误”)
.如果结束
8. 易语言FTP下载文件夹里的全部文件
.版本 2
.支持库 internet
.程序集 窗口程序集1
.程序集变量 目录, 文本型, , "0"
.程序集变量 cnt, 整数型
.程序集变量 tmp, 整数型
.子程序 _按钮1_被单击
.如果真 (连接FTP服务器 (“Ftp IP”, “账号”, “密码”, 21, ) ＝ 真)
编辑框1.内容 ＝ 编辑框1.内容 ＋ “Ftp已连接”
.如果真结束
.如果真 (FTP置现行目录 (“你要进入的目录”) ＝ 真)
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “进入目录”
.如果真结束
cnt ＝ FTP目录列表 (“*.*”, , 目录, , , )
.计次循环首 (cnt, tmp)
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ 目录 [tmp]
.计次循环尾 ()
.子程序 _按钮2_被单击
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “---------------------------------------”
.计次循环首 (cnt, tmp)
FTP文件下载 (目录 [tmp], 取运行目录 () ＋ “/” ＋ 目录 [tmp], )
编辑框1.内容 ＝ 编辑框1.内容 ＋ #换行符 ＋ “下载文件：” ＋ 取运行目录 () ＋ “/” ＋ 目录 [tmp]
.计次循环尾 ()