- 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=152796)
-- 发布时间：2020/7/22 15:23:00
-- PDF文件
能使用这个软件计算出某一PDF文件有多少页，因为PDF文件较多，希望能够自动计算？
-- 发布时间：2020/7/22 15:30:00
--
可以的。参考：http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=151835&replyID=&skin=1
-- 发布时间：2020/7/22 15:37:00
--
Dim pdfFile = O2S.Components.PDFRender4NET.PDFFile.Open("c:\\AAA.pdf") \'红色为文件路径
Dim pageImage As Image = pdfFile.GetPageImage(i,100) \'第一个参数1为页数,从0开始,1表示第二页;第二个参数为图片清晰度,数值越大越清晰,同时保存的图片文件也就越大
pageImage.Save("C:\\test\\" & i & ".jpg")
pageImage.Dispose() \'释放内存资源
pdfFile.Dispose() \'释放内存资源
这是代码，我想知道一个PDF有多少页，怎么写代码
-- 发布时间：2020/7/22 15:48:00
--
msgbox(pdfFile.PageCount)
-- 发布时间：2020/7/22 16:26:00
--
写代码：Dim pdfFile = O2S.Components.PDFRender4NET.PDFFile.Open("c:\\AAA.pdf")
提示编译错误 未声明 “O2S”
-- 发布时间：2020/7/22 16:30:00
--
把dll复制到foxtable安装目录，然后添加引用：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=77213&skin=0
-- 发布时间：2020/9/14 23:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:o2s.components.pdfrender4net x86.zip |
ＰＤＦ文件读页数，也很简单：
１、上述文字拷贝进ｆｏｘｔａｂｌｅ系统中。
２、外部引用O2S.Components.PDFRender4NET.dll
３、daｔａｃｏｌｃｈａｎｇｅｄ表事件代码：
Dim file As String = e.DataRow("路径文件名")
\' MessageBox.Show(file)
If FileSys.FileExists(file) Then
Dim pdfFile = O2S.Components.PDFRender4NET.PDFFile.Open(e.DataRow("路径文件名"))
e.DataRow("页数量") = pdfFile.PageCount
Else
\' e.DataRow("图像大小") = " "
e.DataRow("页数量") = 0
End If