Foxtable(狐表) → 用户栏目 → 专家坐堂 → PDF文件显示


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

主题：PDF文件显示
帅哥哟，离线，有人找我吗？
刘林
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		PDF文件显示  发帖心情 Post By：2020/2/1 13:26:00 [显示全部帖子]

Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
wb.InsertHTML("<script src='./js/pdfobject.js'></script>")
wb.InsertHTML("<div style='position:fixed;width:100%;height:120px;top:0px;left:0px;'>")
wb.InsertHTML("<div style='width:100%;height:40px;line-height:40px;margin-top:30px;text-align:center'>新型冠状病毒感染的肺炎</div>")
wb.InsertHTML("<div style='width:100%;height:40px;line-height:40px;text-align:center'>公众指南</div>")
wb.InsertHTML("</div>")
wb.InsertHTML("<div id='dispdf' style='width:100%;heigth:100%;margin-top:100px;border:1px solid red;'>")
wb.InsertHTML("</div>")
wb.InsertHTML("<script>PDFObject.embed('./pdf/gzzl.pdf', '#dispdf');</script>")
e.WriteString(wb.Build)
e.Handled=True

老师，我在网上找了个例子在hbulider中是可以，转到FT中这样试就不显示呢PDF内容呢，哪里有问题，请指教，谢谢
[此贴子已经被作者于2020/2/1 13:27:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/2/1 13:54:00 [显示全部帖子]


        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar",".png",".apk",".pdf"
            e.WriteFile(fl)
            Return '这里必须返回
找到了，是因为没加.pdf

但，现在还有个问题显示PDF文件内容的DIV高度不能控制呢，始终是一个固定高度，我想除了标题外其文件内容在屏的剩余高度显示
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/2/1 14:49:00 [显示全部帖子]

上面问题解决了，现在又出现移动服务器上手机上测试不显示PDF内容了，要注意些什么，怎么解决

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/2/1 17:27:00 [显示全部帖子]

Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
wb.InsertHTML("<!DOCTYPE html>")
wb.InsertHTML("<html>")
wb.InsertHTML("<head>")
wb.InsertHTML("<meta charset='utf-8'>")
wb.InsertHTML("<meta name='viewport' c />")
wb.InsertHTML("<title></title>")
wb.InsertHTML("<script src='../mui/js/mui.min.js'></script>")
wb.InsertHTML("<link href='../mui/css/mui.css' rel='stylesheet'/>")
wb.InsertHTML("<script Type='text/javascript' charset='utf-8'>mui.init();</script>")
wb.InsertHTML("</head>")
wb.InsertHTML("<body>")
wb.InsertHTML("<header class='mui-bar mui-bar-nav mui-bar-nav-bg'>")
wb.InsertHTML("<a  id='icon-menu' class='mui-action-back mui-icon mui-icon-left-nav mui-pull-left'></a>")
wb.InsertHTML("<h1 class='mui-title'>新型冠状病毒感染的肺炎公众指南</h1>")
wb.InsertHTML("</header>")
wb.InsertHTML("<div class='mui-content'>")
Dim filename As String
Dim i As Integer
For i = 0 To 64
    filename= "./pdf/gzzl/gzzl_" & Format(i,"00") & ".png"
    wb.InsertHTML("<img src='" & filename &"' alt='" & i & "' style='width:100%;margin:4px;'>")
Next
e.WriteString(wb.Build)
wb.InsertHTML("<script src='../mui/js/mui.min.js'></script>")
e.Handled=True
请问老师：
1、如何能够用手指放大图片。
2、如何能点一张图片就直接显示这个图且能放大
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/2/2 12:02:00 [显示全部帖子]

sb.AppendLine("<div id='example1'style='height:1200px;'></div>")
sb.AppendLine("<script src='../mui/js/pdfobject.js'></script>")
sb.AppendLine("<script>PDFObject.embed('./pdf/gzzl/yqkxzt.pdf', '#example1');</script>")

老师我测试了在电脑上可以预览下载
但在手机上就不行，我找了个这个看，https://www.cnblogs.com/zdz8207/p/html5-pdf-js.html,懂不起，请老师帮研究下用ft如何实现,因为很需要实现这个东西，谢谢帮忙
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/2/3 7:57:00 [显示全部帖子]

Dim e As RequestEventArgs = args(0)
Dim sb As New StringBuilder
sb.AppendLine("<!DOCTYPE html Public '-//W3C//DTD XHTML 1.0 Transitional//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd'>")
sb.AppendLine("<html>")
sb.AppendLine("<head>")
sb.AppendLine("<meta charset='utf-8'>")
sb.AppendLine("<script Type='text/javascript' language='javascript' src='https://cdn.jsdelivr.net/npm/pdfjs-dist@2.2.228/build/pdf.js'></script>")
sb.AppendLine("<script Type='text/javascript' language='javascript' src='https://cdn.jsdelivr.net/npm/pdfjs-dist@2.2.228/web/pdf_viewer.js'></script>")
sb.AppendLine("<meta name='viewport' c />")
'sb.AppendLine("<script src='../mui/js/mui.min.js'></script>")
'sb.AppendLine("<script src='../mui/js/pdfobject.js'></script>")
'sb.AppendLine("<link href='../mui/css/mui.css' rel='stylesheet'/>")
'sb.AppendLine("<script Type='text/javascript' charset='utf-8'>mui.init();</script>")
sb.AppendLine("</head>")
sb.AppendLine("<body>")
sb.AppendLine("<header class='mui-bar mui-bar-nav mui-bar-nav-bg'>")
sb.AppendLine("<a  id='icon-menu' class='mui-action-back mui-icon mui-icon-left-nav mui-pull-left'></a>")
sb.AppendLine("<h1 class='mui-title'>延期开学通知</h1>")
sb.AppendLine("</header>")
'sb.AppendLine("<div class='mui-content'>")
sb.AppendLine("<div style='width:100%;text-align: center;position: fixed;bottom: 10px;'><button id='prev'>上一页</button><span><span id='page_num'></span> / <span id='page_count'></span></span><button id='next'>下一页</button></div><canvas id='the-canvas'></canvas>")
sb.AppendLine("<script id='script'>var url = './pdf/gg1/gg2.pdf' pdfjsLib.GlobalWorkerOptions.workerSrc = 'https://cdn.jsdelivr.net/npm/pdfjs-dist@2.2.228/build/pdf.worker.js';var pdfDoc = null,pageNum = 1,pageRendering = False,pageNumPending = null,scale = 1,canvas = document.getElementById('the-canvas'),ctx = canvas.getContext('2d');")
sb.AppendLine("Function renderPage(num) {pageRendering = true;pdfDoc.getPage(num).Then(Function(page) {var viewport = page.getViewport(scale);canvas.height = viewport.height;canvas.width = viewport.width;var renderContext = {canvasContext: ctx,viewport: viewport};")
sb.AppendLine("var renderTask = page.render(renderContext);renderTask.promise.Then(Function() {pageRendering = false;if (pageNumPending !== null) {renderPage(pageNumPending);pageNumPending = null;}});});")
sb.AppendLine("document.getElementById('page_num').textContent = pageNum;}")
sb.AppendLine("Function queueRenderPage(num) {If (pageRendering) {pageNumPending = num;} Else {renderPage(num);}}")
sb.AppendLine("Function onPrevPage() {If (pageNum <= 1) {return;}pageNum--;queueRenderPage(pageNum);}document.getElementById('prev').addEventListener('click', onPrevPage);")
sb.AppendLine("Function onNextPage() {If (pageNum >= pdfDoc.numPages) {return;}pageNum++;queueRenderPage(pageNum);}document.getElementById('next').addEventListener('click', onNextPage);")
sb.AppendLine("pdfjsLib.getDocument(url).Then(Function(pdfDoc_) {pdfDoc = pdfDoc_;document.getElementById('page_count').textContent = pdfDoc.numPages;renderPage(pageNum);});</script>")
sb.AppendLine("</body>")
sb.AppendLine("</html>")
e.WriteString(sb.ToString)
e.Handled=True
老师，我在hbulider测试可以使用，我为了测试将其不动移到FT中就不能显示出文件了呢，请帮看下哪里有问题
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/2/3 10:15:00 [显示全部帖子]

 scale = 0.8,这设置显示比例吗？如果要让一页满屏显示？

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/2/3 11:10:00 [显示全部帖子]

现在问题是在hbulider做成静态网页在内置浏览器中是可以显示出来，但在外面网页的文件位置用浏览器打开就不显示PDF内容了


找到问题了，再到服务器上测试一下看，现在的问题是如何让一页刚好一屏显示呢
[此贴子已经被作者于2020/2/3 11:15:29编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/2/4 10:05:00 [显示全部帖子]

我按静态方式做好了，在测试可以了，但还是移动服务器上在手机端就不得行，还要怎样样才行？

 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1953 积分：15015 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2020/2/4 10:21:00 [显示全部帖子]

我是用hbulider打包成的APP不行

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询