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


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

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

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 9:39:00 [显示全部帖子]

不要用浏览器控件,这个需要一定的HTML知识

你用LISTVIEW做吧. 这个帮助有介绍.自己看一下就可以参考着做了.

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 9:45:00 [显示全部帖子]

参考帮助http://www.foxtable.com/help/topics/1410.htm

获取文件列表,然后生成HTML 赋值给浏览器控件即可.

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 12:07:00 [显示全部帖子]

你这是乱拼接一通,完全不按照规范来啊.

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



另外IE不支持密码带有@字符. 带有就不能正常访问了.

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 14:51:00 [显示全部帖子]

你还想用浏览器控件打开这个文件啊?

那你前面做的根本就是无用功,还以为你要列表.


应该直接用FTP代码把文件下载回来. 再把文件地址赋值给浏览器即可.

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 14:52:00 [显示全部帖子]

请看楼上.

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 15:00:00 [显示全部帖子]

19楼已经给出答案给你叻

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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 15:04:00 [显示全部帖子]

你能不能,不要一扫而过. 一目十行,静下心来看一下别人说什么.



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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 15:05:00 [显示全部帖子]

你还想用浏览器控件打开这个文件啊?

那你前面做的根本就是无用功,还以为你要列表.


应该直接用FTP代码把文件下载回来. 再把文件地址赋值给浏览器即可.


示例

Dim ftp1 As new ftpclient
ftp1.host=
"196.128.143.28"
ftp1.Account = 
"foxuser"
ftp1.password = 
"138238110"
If 
ftp1.Download("\photo\Desert.jpg","c:\data\Desert.jpg") = True Then
    
e.Form.Controls("WebBrowser1").Address="c:\data\Desert.jpg"

Else
    
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 15:07:00 [显示全部帖子]

http://www.foxtable.com/help/topics/1410.htm

Dim ftp1 As new ftpclient
ftp1.host=
"120.198.124.195"
ftp1.Account = 
"und8042"
ftp1.password = 
"und8042ssa"
If 
ftp1.Download(dr("文件名称"),"c:\data\零时文件.doc") = True Then
    
e.Form.Controls("WebBrowser1").Address="c:\data\零时文件.doc"

Else
    
Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


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


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/17 15:11:00 [显示全部帖子]

以下是引用有点甜在2014-4-17 15:05:00的发言:

 

空白问题,你需要看一下这里。

 

重要提示:

1、如果执行上面代码的时候,没有在WebBrowser显示Word报表,而是在一个新的IE窗口显示,那么请双击Foxtable目录下的Office.reg文件,将其添加到注册表中。
2、在WebBrowser显示的Word菜单缺少包括打印命令的程序菜单,你可以按快捷键“Ctrl+P”打印,或者自定义word的快速访问栏,加入打印命令加上去。

远程FTP不允许这样直接打开的.

 回到顶部
总数 13 1 2 下一页