- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于FTP的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123708)
-- 发布时间：2018/8/21 16:42:00
-- 关于FTP的问题
我一个窗口中有3个图片都是连接FTP的，在打开窗口后不知道为什么不能全部显示，这是为什么？
-- 发布时间：2018/8/21 16:44:00
--
截图看看
-- 发布时间：2018/8/21 17:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:ljsjk.foxdb |
请看看吧
-- 发布时间：2018/8/21 17:42:00
--
我这边连列窗口都无法显示，只要文件放在/cs目录下就不可以，根目录就可以。
是不是登录用户没有权限访问/cs目录。设置一下目录权限看看
此主题相关图片如下：1.png
此主题相关图片如下：1.png-- 发布时间：2018/8/21 17:48:00
--
哦，是的，忘了设置了
-- 发布时间：2018/8/21 18:47:00
--
Dim piv0 As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
Dim piv1 As WinForm.PictureViewer = e.Form.Controls("PictureViewer2")
Dim piv2 As WinForm.PictureViewer = e.Form.Controls("PictureViewer3")
Dim ftp0 As New FTPClient
Dim ftp1 As New FTPClient
Dim ftp2 As New FTPClient
ftp0.host="binyang.66ip.net"
ftp1.host="binyang.66ip.net"
ftp2.host="binyang.66ip.net"
ftp0.Account = "byftpuser"
ftp1.Account = "byftpuser"
ftp2.Account = "byftpuser"
ftp0.password = "654321"
ftp1.password = "654321"
ftp2.password = "654321"
piv0.FTPclient = ftp0
piv1.FTPclient = ftp1
piv2.FTPclient = ftp2
请问如何精简这行代码，还有就是如果我把IP地址和用户名、密码写在文本文件里的话这行代码怎么写
此主题相关图片如下：ip问题图片.jpg
[此贴子已经被作者于2018/8/21 20:18:43编辑过]
-- 发布时间：2018/8/21 20:21:00
--
帮我看看吧
-- 发布时间：2018/8/21 20:26:00
--
For i As Integer = 1 To 3
Dim ftp0 As New FTPClient
ftp0.host="binyang.66ip.net"
ftp0.Account = "byftpuser"
ftp0.password = "654321"
e.Form.Controls("PictureViewer" & i).FTPclient = ftp0
Next
-- 发布时间：2018/8/21 20:35:00
--
那如果我把IP地址和用户名、密码写在文本文件里的话，这行代码怎么写（文本格式内容就是6楼图片这样）？
-- 发布时间：2018/8/21 20:48:00
--
\'\'\' \'注意加上这里
Dim s As String = FileSys.ReadAllText("c:\\data\\table.txt")
Dim arr() As String = s.Replace(vbcr,"").Split(vblf)
For i As Integer = 1 To 3
Dim ftp0 As New FTPClient
ftp0.host=arr(i*3).Split("：")(1)
ftp0.Account = arr(i*3+1).Split("：")(1)
ftp0.password = arr(i*3+2).Split("：")(1)
e.Form.Controls("PictureViewer" & i).FTPclient = ftp0
Next