Foxtable(狐表)用户栏目专家坐堂 → webbrowser如何显示远程ftp服务器上的pdf文件


  共有3207人关注过本帖平板打印复制链接

主题:webbrowser如何显示远程ftp服务器上的pdf文件

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


加好友 发短信
等级:八尾狐 帖子:1916 积分:17152 威望:0 精华:0 注册:2014/7/29 19:09:00
webbrowser如何显示远程ftp服务器上的pdf文件  发帖心情 Post By:2015/8/30 10:07:00 [只看该作者]

在窗口的afterload 中用了如下代码:

Tables(e.Form.name & "_主表").Cols("附件").DataCol.ExtendType = ExtendTypeEnum.File '多值字段
DataTables(e.Form.name & "_主表").DataCols("附件").Remote = True
DataTables(e.Form.name & "_主表").DataCols("附件").FTPClient.Host = ftp_Host
DataTables(e.Form.name & "_主表").DataCols("附件").FTPClient.Account = ftp_User
DataTables(e.Form.name & "_主表").DataCols("附件").FTPClient.password = ftp_Pwd
DataTables(e.Form.name & "_主表").DataCols("附件").FTPClient.UTF8 = True '避免中文乱码
DataTables(e.Form.name & "_主表").DataCols("附件").FTPClient.RootDir = "/Photo/工程图纸/" '设置根目录


 

然后在表中的currentchanged事件用下面的代码

If e.Table.Current IsNot Nothing Then
    Dim web As WinForm.WebBrowser = e.Table.Form.Controls("WebBrowser1")
    web.address = e.Table.Current("附件")
    'web.address = "C:\DB003-01.pdf"
End If

 

结果却显示无效的URI,无法确定URI的格式,要怎么写才正确?

 

谢谢!


 回到顶部