以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  WebBrowser显示远程文件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=128360)
--  作者：cd_tdh
--  发布时间：2018/12/4 16:48:00
--  WebBrowser显示远程文件

老师，用WebBrowser显示ftp远程文件地址怎么写呢？ftp路径是存在数据表中的，代码如下

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web.address = Tables("发文登记").current("文件")

 

提示：无效的URI

[此贴子已经被作者于2018/12/4 16:56:13编辑过]
--  作者：有点甜
--  发布时间：2018/12/4 17:03:00
--  

改成比如这样的路径

 

Dim web As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
web.address = "ftp://zhanshang:138238@egridsoft.com/public/isam.jpg"

 

 

上面假定帐户为zhanshang，密码为138238，ftp服务器的址为ftp://egridsoft.com
--  作者：cd_tdh
--  发布时间：2018/12/4 17:16:00
--  

这样写可以解决

web.address =((ftp://ftp001:******@***.**.***.0) & (Tables("发文登记").current("文件")))

怎么让显示的文件，根据窗口缩放为窗口宽度呢？

 


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20181204172438.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/12/4 17:28:19编辑过]
--  作者：有点甜
--  发布时间：2018/12/4 17:57:00
--  

需要改成这样

 

Dim web = e.form.controls("webbrowser1").basecontrol
web.documenttext = "<html><body><img width=\'100%\' height=\'100%\' src=\'ftp://test:test@127.0.0.1/aaa.jpg\' /></body></html>"
--  作者：cd_tdh
--  发布时间：2018/12/5 9:44:00
--  

老师没写来这个，改PDF的浏览没问题。

 
--  作者：有点甜
--  发布时间：2018/12/5 9:49:00
--  

Dim web = e.form.controls("webbrowser1").basecontrol
web.documenttext = "<html><body><img width=\'100%\' height=\'100%\' src=\'ftp://test:test@127.0.0.1" & Tables("发文登记").current("文件") & "\' /></body></html>"
--  作者：cd_tdh
--  发布时间：2018/12/5 10:24:00
--  
是这样写的，不显示，空白的。
--  作者：有点甜
--  发布时间：2018/12/5 10:29:00
--  
以下是引用cd_tdh在2018/12/5 10:24:00的发言：
是这样写的，不显示，空白的。

 

这个是用来显示图片文件的。如果不是图片，不能正常显示。