以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]PDF转图片  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90692)

--  作者:KWK001
--  发布时间:2016/9/20 9:01:00
--  [求助]PDF转图片

小白参照以下方法,PDF文件有的可以转换,有的转换后变空白,什么原因呢?


第二种方法:引用第三方控件

引用附件中的PDFView.dll文件和PDFLibNet.dll文件以及gsdll32.dll文件,请拷贝到foxtable程序目录下

新建窗口,增加图片控件PictureBox1,新建按钮,代码如下

Dim Pdfv As new PDFView.ConvertPDF.PDFConvert
Dim pcb As WinForm.PictureBox = e.form.Controls("PictureBox1")
pcb.Image = Pdfv.GetPageFromPDF(ProjectPath & "Hello.pdf",1)


--  作者:有点蓝
--  发布时间:2016/9/20 9:26:00
--  
PDF文件第一页就是空白页吧,上传PDF文件测试
--  作者:KWK001
--  发布时间:2016/9/20 10:19:00
--  
附件中2个pdf文件,一个可以,I682-15显示空白,可以识别页数的。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


[此贴子已经被作者于2016/9/20 10:18:57编辑过]

--  作者:有点蓝
--  发布时间:2016/9/20 10:44:00
--  
那是第三方组件本身的问题,没有办法
换个方式使用吧
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目110.table


--  作者:KWK001
--  发布时间:2016/9/20 10:59:00
--  
有dll 文件吗? 未声明?

_pdfWrapper.CurrentPage = 1

--  作者:有点蓝
--  发布时间:2016/9/20 11:33:00
--  
看全局代码。用的的就是原来的第三方组件PDFLibNet.dll
--  作者:KWK001
--  发布时间:2016/9/20 15:25:00
--  
打开窗口后就显示,我这样的代码,有问题吗?表A,第一列 是文件列。
,第一列 插入了2个文件,1个可以打开。一个错误,关键字没有在字典中,什么原因?

Dim dr As DataRow = Tables("表A").Current.DataRow
Dim fl As String =  dr("第一列")
msgbox(fl)
\'
 _pdfWrapper.LoadPDF(fl)

Dim Pdfv As new PDFView.ConvertPDF.PDFConvert
Dim pcb As WinForm.PictureBox = e.form.Controls("PictureBox1")
_pdfWrapper.CurrentPage = 1
pcb.Image = _pdfWrapper.Pages(_pdfWrapper.CurrentPage).GetBitmap(pcb.Width, pcb.Height,True)

--  作者:有点蓝
--  发布时间:2016/9/20 15:29:00
--  
用4楼的例子打开这个pdf有没有问题?
--  作者:KWK001
--  发布时间:2016/9/20 15:32:00
--  
用4楼的例子打开这个pdf没有问题
--  作者:有点蓝
--  发布时间:2016/9/20 15:39:00
--  
那就不是这里代码问题,检查一下其它地方

调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm