以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  pdf文件转变图片?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185477)

--  作者:zsxx999ja
--  发布时间:2023/2/25 10:27:00
--  pdf文件转变图片?
下图是论坛中蓝版的pdf转图片的代码,能用。谢谢!但如何批量转换,pdfFile.GetPageImage(1,600)这时的第一个参数如何写?

Dim pdfFile = O2S.Components.PDFRender4NET.PDFFile.Open("D:\\蒋安\\教科体局\\龙台片区督导组\\2022年工作资料夹\\2022年秋季义务教育阶段学校期末学业监测范围分值时长的通知.pdf") \'红色为文件路径
Dim pageImage As Image = pdfFile.GetPageImage(1,600) \'第一个参数1为页数,从0开始,1表示第二页;第二个参数为图片清晰度,数值越大越清晰,同时保存的图片文件也就越大
pageImage.Save("E:\\123.jpg")
pageImage.Dispose() \'释放内存资源
pdfFile.Dispose() \'释放内存资源

--  作者:zsxx999ja
--  发布时间:2023/2/25 10:30:00
--  
Dim pageImage As Image = pdfFile.GetPageImage(1,600) \'第一个参数1为页数,从0开始,1表示第二页;第二个参数为图片清晰度,数值越大越清晰,同时保存的图片文件也就越大
这里第一个参加填写一个不超页数的整数,都是转换的一页,要一次性地转换多页,如何办?


--  作者:有点蓝
--  发布时间:2023/2/25 10:49:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=152796&skin=0

读出页数,然后做个循环