Foxtable(狐表)用户栏目专家坐堂 → 怎样下载打开pdf文件


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

主题:怎样下载打开pdf文件

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


加好友 发短信
等级:童狐 帖子:203 积分:1812 威望:0 精华:0 注册:2015/6/22 11:24:00
怎样下载打开pdf文件  发帖心情 Post By:2017/6/30 18:10:00 [只看该作者]

教程中有打开jpg的案例
Select Case e.Path
    Case "download.htm"
        e.WriteFile("d:\web\abc.jpg")

End
 Select
我改为
Select Case e.Path
    Case "download.htm"
        e.WriteFile("d:\web\abc.pdf")

End
 Select
开始部分也加了“.pdf",但不能下载打开abc.pdf文件,求救?谢谢!

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/6/30 18:18:00 [只看该作者]

 我测试,没问题。贴出完整代码。

 

 


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


加好友 发短信
等级:童狐 帖子:203 积分:1812 威望:0 精华:0 注册:2015/6/22 11:24:00
  发帖心情 Post By:2017/6/30 18:22:00 [只看该作者]

Dim fl As String = "d:\web\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".pdf"
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If
Select Case e.Path
  
Case "y.htm"
        e.WriteFile("d:\web\images\圆.pdf")
End Select

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/6/30 18:42:00 [只看该作者]

测试没问题,访问地址是 http://127.0.0.1/y.htm

 

或者 http://127.0.0.1/images/圆.pdf


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


加好友 发短信
等级:童狐 帖子:203 积分:1812 威望:0 精华:0 注册:2015/6/22 11:24:00
  发帖心情 Post By:2017/6/30 18:56:00 [只看该作者]

我用电脑ie可以,用安卓手机, http://192.168.1.148/y.htm,手机显示下载y.htm,下载完打开是乱码


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


加好友 发短信
等级:超级版主 帖子:106209 积分:540168 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/30 20:13:00 [只看该作者]

换其它的浏览器测试

 回到顶部