WebBrowser远程打开ftp文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2678人关注过本帖树形打印复制链接主题：WebBrowser远程打开ftp文件

lisangyu

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

加好友

发短信

等级：一尾狐帖子：461 积分：4271 威望：0 精华：0 注册：2019/8/5 17:49:00

WebBrowser远程打开ftp文件 发帖心情

Post By：2021/2/25 11:37:00 [只看该作者]

蓝总：利用WebBrowser远程下载ftp文件，对下载的文件doc docx xls xlsx强制转换为mht格式后再在WebBrowser中打开，对于pdf或照片在WebBrowser中自动打开。请问有实例吗

Dim ftp1 As new ftpclient

ftp1.host="10.60.128.146"

ftp1.Account = "ftpuser"

ftp1.password = "bnm,./123"

If ftp1.Download("\ & Tables("知识文档").Current("路径")","\RemoteFiles\ & Tables("知识文档").Current("文件名")" = True Then

[此贴子已经被作者于2021/2/25 11:37:11编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：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 = 上面保存的文件的路径

lisangyu

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

加好友

发短信

等级：一尾狐帖子：461 积分：4271 威望：0 精华：0 注册：2019/8/5 17:49:00

Post By：2021/2/25 15:21:00 [只看该作者]

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("文件名")

If wjm IsNot Nothing Then

If ftp1.Download(fp,"\RemoteFiles\" & wjm) = True Then

Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

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

End If

上面代码哪里出错了？下载失败

有点蓝

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

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：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

lisangyu

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

加好友

发短信

等级：一尾狐帖子：461 积分：4271 威望：0 精华：0 注册：2019/8/5 17:49:00

Post By：2021/2/25 15:54:00 [只看该作者]

此主题相关图片如下：1.jpg

If Tables("主窗口_table1").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("主窗口_table1").Current("路径")

Dim fp As String = "\myftp\管理规定" & lj

Dim wjm As String = Tables("主窗口_table1").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

还是提示下载失败了

有点蓝

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

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：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编辑过]

lisangyu

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

加好友

发短信

等级：一尾狐帖子：461 积分：4271 威望：0 精华：0 注册：2019/8/5 17:49:00

Post By：2021/2/25 16:03:00 [只看该作者]

对的，lj错了，我已经改了。辛苦了，蓝总

lisangyu

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

加好友

发短信

等级：一尾狐帖子：461 积分：4271 威望：0 精华：0 注册：2019/8/5 17:49:00

Post By：2021/2/25 16:51:00 [只看该作者]

If Tables("主窗口_table1").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("主窗口_table1").Current("路径")

Dim fp As String = lj

Dim wjm As String = Tables("主窗口_table1").Current("文件名")

Dim hz As String = Tables("主窗口_table1").current("后缀")

msgbox(projectpath & "RemoteFiles\" & wjm)

If ftp1.Download(fp,projectpath & "RemoteFiles\" & wjm) = True Then

e.Form.text = "浏览器正在打开中...."

If hz = "doc" Or "docx" Or "xls" Or "xlsx" Then

End If

Else

e.Form.text = "浏览器打开失败...."

End If

蓝总：能不能利用SaveToMHT 对下载的office文件直接转为MHT,在webbrrowser 显示呢

有点蓝

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

加好友

发短信

等级：超级版主帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/2/25 17:24:00 [只看该作者]

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

lisangyu

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

加好友

发短信

等级：一尾狐帖子：461 积分：4271 威望：0 精华：0 注册：2019/8/5 17:49:00

Post By：2021/2/26 8:39:00 [只看该作者]

Dim ftp1 As new ftpclient

ftp1.host="10.60.128.146"

ftp1.Account = "ftpuser"

ftp1.password = "bnm,./123"

Dim lj As String = Tables("主窗口_table1").Current("路径")

Dim fp As String = lj

Dim wjm As String = Tables("主窗口_table1").Current("文件名")

Dim hz As String = Tables("主窗口_table1").current("后缀")

msgbox(projectpath & "RemoteFiles\" & wjm)

If ftp1.Download(fp,projectpath & "RemoteFiles\" & wjm) = True Then

e.Form.text = "浏览器正在打开中...."

If hz = "doc" Or hz = "docx" Then

Dim tmp As String = projectpath & "RemoteFiles\" & wjm

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

Dim app As New MSWord.Application

Dim doc = app.Documents.Open(tmp)

doc.SaveAs(Filename:=mht , FileFormat:=MSWord.WdSaveFormat.wdFormatWebArchive)

app.quit

e.Form.text = "浏览器"

e.Form.Controls("WebBrowser1").Address = mht

蓝总：早上好！现在能将WORD转为MHTML格式并在窗口打开，但是mht的定义路径写的有问题，转换的文件名变成“& wjm & .mhtml”，不能正常显示文件名，每次文件名都一样，导致转换卡顿。

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

总数 11 1 2 下一页

主题：WebBrowser远程打开ftp文件