Foxtable(狐表)用户栏目专家坐堂 → 关于显示-FTP远程文件的代码索取


  共有7397人关注过本帖树形打印复制链接

主题:关于显示-FTP远程文件的代码索取

帅哥哟,离线,有人找我吗?
wealthwind
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
关于显示-FTP远程文件的代码索取  发帖心情 Post By:2014/4/17 9:34:00 [显示全部帖子]

各位老师好~~本人有个想法,但基于水平有限无法实现,请各位老师给予指点;

 

在窗口中本人添加目录树和WebBrowser1控件,想达到的效果是,通过点击目录树窗口里面的节点(指定文件名,例如:A),在其右侧的WebBrowser1中,就能显示FTP空间里面指定的文件A;请老师给予支持,谢谢。


图片点击可在新窗口打开查看此主题相关图片如下:360截图20140417092605703.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:360截图20140417092625500.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:360截图20140417092632359.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
wealthwind
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/17 9:34:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar


 回到顶部
帅哥哟,离线,有人找我吗?
wealthwind
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/17 9:44:00 [显示全部帖子]

各位老师,由于本人,熟悉HTML文件编辑,所以,以上在FTP空间里面的文件,可以首选全是HTML文件为主;

 回到顶部
帅哥哟,离线,有人找我吗?
wealthwind
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/17 11:55:00 [显示全部帖子]

请问老师,我是哪里设置错误了,这个例子还是没有通~~

 回到顶部
帅哥哟,离线,有人找我吗?
wealthwind
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/17 11:56:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:webbrowser直接显示ftp文件例子.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
wealthwind
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/17 12:06:00 [显示全部帖子]

 


图片点击可在新窗口打开查看此主题相关图片如下:360截图20140417120533781.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
wealthwind
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/17 13:43:00 [显示全部帖子]

请问老师,

这个是哪里错误了,还是访问错误

If e.Node.Level = 1 Then '如果单击的是第二层节点
    Dim tr As Row = Tables("文件管理").Current
    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
    Dim ftp As FTPClient = DataTables("文件管理").DataCols("文件名称").FTPClient
    Dim path As String = "ftp://120.198.124.195" & ftp.Account & "und8042" & ftp.Password & "@120.198.124.195/"
    e.Form.Controls("WebBrowser1").Address = path
End If


 回到顶部
帅哥哟,离线,有人找我吗?
wealthwind
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/17 13:47:00 [显示全部帖子]

请问老师,为什么你修改后的案例,还是显示
图片点击可在新窗口打开查看此主题相关图片如下:360截图20140417134621890.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
wealthwind
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/17 13:56:00 [显示全部帖子]

老师能否帮我将例子写好,有些地方,我确实有所不会,~劳烦您了图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
wealthwind
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:660 积分:3965 威望:0 精华:0 注册:2014/3/16 20:34:00
  发帖心情 Post By:2014/4/17 14:26:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:360截图20140417142533046.jpg
图片点击可在新窗口打开查看

 回到顶部
总数 22 1 2 3 下一页