FTP和图片管理器外网服务器地址是动态的 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → FTP和图片管理器外网服务器地址是动态的

共有3316人关注过本帖树形打印复制链接主题：FTP和图片管理器外网服务器地址是动态的

weibu

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00

FTP和图片管理器外网服务器地址是动态的 发帖心情

Post By：2020/6/19 10:29:00 [显示全部帖子]

老师我ftp和图片管理器服务器IP和用户名、密码、是从一个表中动态获取的。这个要如何处理？

此主题相关图片如下：微信截图_20200619101909.png

weibu

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2020/6/19 10:46:00 [显示全部帖子]

老师这段代码写在Afterload窗口事件中吗？

如果我动态变化的仅仅是密码和IP地址。账号和根目录相同。

我代码仅写：

Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim ftp As New FTPClient
ftp.host="192.168.128.143"
ftp.password = "128168909"
flm.FTPclient = ftp

而账号和根目录在控件属性的设置可以吗？

weibu

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2020/6/19 11:37:00 [显示全部帖子]

老师不行链接不上。我没有代码全部在.PictureViewer的控件属性设置里填写：服务器地址、用户名、密码、根目录是可以正常使用的。
但是现在不能链接ftp了。

我的做法如下：

1.在PictureViewer所在窗口的Afterload添加代码：

此主题相关图片如下：微信截图_20200619113133.png

2.在PictureViewer的属性如下设置：

图片点击可在新窗口打开查看

此主题相关图片如下：微信截图_20200619112948.png

3.在列属性中如下设置：

此主题相关图片如下：微信截图_20200619113445.png

4.在项目事件Initialize中加入下面的代码：

DataTables("rs_sourcecode").DataCols("qdocuments").FTPClient.host="39.123.159.123 "

DataTables("rs_sourcecode").DataCols("qdocuments").FTPClient.password = "ftp779_wb11616"

老师这个有问题吗？

weibu

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2020/6/19 12:09:00 [显示全部帖子]

老师这是我是表A，列“地址”的一行中的值。

server=192.168.1.0;uid=sa;pwd=sa-gj3;database=wb

我想把这个单元格的值，解析为变量r=192.168.1.0；变量t=sa-gj3

这个代码该如何写？

另外我想写个代码：如果列“123”不存在的if语句怎么写？

[此贴子已经被作者于2020/6/19 12:10:26编辑过]

weibu

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：659 积分：5357 威望：0 精华：0 注册：2018/5/19 22:27:00

Post By：2020/6/19 14:38:00 [显示全部帖子]

Dim s As String = "server=192.168.1.0;uid=sa;pwd=sa-gj3;database=wb"

Dim ar() As String = s.split(";")

Dim r As String = ar(0)

r = r.Trim("server=")

老师这个我想删除server= 为啥删除了s？

下一主题 >> << 上一主题

主题：FTP和图片管理器外网服务器地址是动态的