Foxtable(狐表)用户栏目专家坐堂 → WebBrowser远程打开ftp文件


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

主题:WebBrowser远程打开ftp文件

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


加好友 发短信
等级:超级版主 帖子:107440 积分:546479 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/25 11:48:00 [显示全部帖子]

保存到本机,直接设置即可

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web
.Address = 上面保存的文件的路径

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


加好友 发短信
等级:超级版主 帖子:107440 积分:546479 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/25 15:25:00 [显示全部帖子]

If Tables("知识文档").Current IsNot Nothing Then
Dim ftp1 As new ftpclient
ftp1.host="10.60.128.146"
ftp1.Account = "ftpuser"
ftp1.password = "bnm,./123"
Dim lj As String = Tables("知识文档").Current("路径")
Dim fp As String = "\myftp\管理规定" & lj
Dim wjm As String = Tables("知识文档").Current("文件名")
msgbox(projectpath & "RemoteFiles\" & wjm)
    If ftp1.Download(fp,projectpath & "RemoteFiles\" & wjm) = True Then
        Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

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


加好友 发短信
等级:超级版主 帖子:107440 积分:546479 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/25 15:58:00 [显示全部帖子]

确定RemoteFiles这个目录是否存在?

确定ftp这个路径的文件存在?"\myftp\管理规定" & lj

[此贴子已经被作者于2021/2/25 15:57:43编辑过]

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


加好友 发短信
等级:超级版主 帖子:107440 积分:546479 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/25 17:24:00 [显示全部帖子]

下载后,转换,然后把转换后的文件路径设置到webbrrowser即可

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


加好友 发短信
等级:超级版主 帖子:107440 积分:546479 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/2/26 9:05:00 [显示全部帖子]

参考:http://www.foxtable.com/webhelp/topics/0221.htm

Dim mht As String =  projectpath & "RemoteFiles\" & wjm & ".mhtml"

 回到顶部