[求助]net4.0下PDF转图片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]net4.0下PDF转图片

共有2314人关注过本帖树形打印复制链接主题：[求助]net4.0下PDF转图片

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/10/24 17:10:00 [显示全部帖子]

参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=138154&skin=0，看3楼

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/10/25 10:18:00 [显示全部帖子]

Dim pdfFile = O2S.Components.PDFRender4NET.PDFFile.Open("c:\AAA.pdf") '红色为文件路径

For i As Integer = 0 To pdfFile.pagecount - 1

Dim pageImage As Image = pdfFile.GetPageImage(i,100) '第一个参数1为页数,从0开始,1表示第二页;第二个参数为图片清晰度,数值越大越清晰,同时保存的图片文件也就越大

pageImage.Save("C:\test\" & i & ".jpg")

pageImage.Dispose() '释放内存资源

pdfFile.Dispose() '释放内存资源

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/10/26 11:56:00 [显示全部帖子]

未必有用，可以试试

Dim pdfFile = O2S.Components.PDFRender4NET.PDFFile.Open("c:\AAA.pdf")

dim cnt as integer = pdfFile.pagecount

pdfFile.Dispose()

dim cc as integer = math.Ceiling(cnt / 100)

Dim pageImage As Image

for i as integer = 0 to cc - 1

pdfFile = O2S.Components.PDFRender4NET.PDFFile.Open("c:\AAA.pdf")

for each j as integer = i*100 to math.min(cnt - 1,( i + 1) * 100 - 1)

pageImage = pdfFile.GetPageImage(j,100) '第一个参数1为页数,从0开始,1表示第二页;第二个参数为图片清晰度,数值越大越清晰,同时保存的图片文件也就越大

pageImage.Save("C:\test\" & j & ".jpg")

pdfFile.Dispose()

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/10/26 13:48:00 [显示全部帖子]

for j as integer = i*100 to math.min(cnt - 1,( i + 1) * 100 - 1)

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/10/27 20:07:00 [显示全部帖子]

是的，新增一张图片时，又刷新了一遍所有的图片。这种代码本来就不适合放到DataRowAdded事件，放到窗口按钮还差不多，或者放到7楼的代码之后

下一主题 >> << 上一主题

主题：[求助]net4.0下PDF转图片