主题：[求助]PDF分解为图片

问题：

1、360页的PDF文件分解为图片，进行到一半时卡住，提示存储不足；另外，分解一张图片接近1秒。

2、第二行的 '切换页签  代码，每次好像来不及运行似的，要等到所有代码运行完毕后才能切换。
请老师帮助看一下，如何解决上述问题。

谢谢！

'以下分解PDF为图片
If e.Form.Controls("TextBox1").text <> "" Then      'PDF文件已获取
    Forms("识别").Controls("TabControl1").SelectedPage = Forms("识别").Controls("TabControl1").TabPages("图片列表")    '切换页签
    Dim st As Date = Date.Now   '开始计时
    e.Form.BaseForm.WindowState =  System.Windows.Forms.FormWindowState.Maximized     '窗口最大化保证图片分辨率
    Dim Pdfv As new PDFView.ConvertPDF.PDFConvert
    Dim pcb As WinForm.PictureBox = e.form.Controls("图片")
    Dim path1 As String = e.Form.Controls("TextBox1").text                            '获取的PDF文件路径
    Dim finfo As new FileInfo(path1)
    For i As Integer = 1 To _pdfWrapper.PageCount                                     '遍历PDF的页数
        pcb.Image = _pdfWrapper.Pages(i).GetBitmap(pcb.Width, pcb.Height,True)        '获取每页图片
        Dim path As String = ProjectPath & "Attachments\" & "PDF" & finfo.Name.substring(0,finfo.Name.LastIndexOf(".")) & "-" & i & ".jpg"      '为每页图片命名并存储
        pcb.Image.Save(path)
        pcb.ImageFile = path
        Dim inf As new FileInfo(path)
        Dim ndr As DataRow = DataTables("图片列表").addnew                             '将图片信息写入表(通过表事件显示在ListView1)
        ndr("全路径") = path
        ndr("文件名") = inf.Name
        ndr("时间") = Date.Now       
    Next
    msgbox("已获取" & _pdfWrapper.PageCount & "张图片" & vbcrlf & "耗时: " & (Date.Now - st).TotalSeconds & "秒")
Else
    Return
End If

谢谢甜老师！

第二个问题彻底解决了；第一个问题怎样循环、注释请指教，谢谢！

 

If e.Form.Controls("TextBox1").text <> "" Then      'PDF文件已获取
    e.Form.BaseForm.WindowState =  System.Windows.Forms.FormWindowState.Maximized     '窗口最大化保证图片分辨率
    Forms("文字识别").Controls("TabControl1").SelectedPage = Forms("文字识别").Controls("TabControl1").TabPages("图片列表")    '切换页签
    Application.DoEvents()

    Dim st As Date = Date.Now   '开始计时

 

    Dim prs As Integer = 100
    For p As Integer = 1 To math.Ceiling((_pdfWrapper.PageCount) / prs)

    Dim Pdfv As new PDFView.ConvertPDF.PDFConvert
    Dim pcb As WinForm.PictureBox = e.form.Controls("图片")
    Dim path1 As String = e.Form.Controls("TextBox1").text                            '获取的PDF文件路径
    Dim finfo As new FileInfo(path1)

 

    For i As Integer = p * prs To math.min(_pdfWrapper.PageCount, p * prs)
    'For i As Integer = 1 To _pdfWrapper.PageCount                                     '遍历PDF的页数
        pcb.Image = _pdfWrapper.Pages(i).GetBitmap(pcb.Width, pcb.Height,True)        '获取每页图片
        Dim path As String = ProjectPath & "Attachments\" & "PDF" & finfo.Name.substring(0,finfo.Name.LastIndexOf(".")) & "-" & i & ".jpg"      '为每页图片命名并存储

        _pdfWrapper.Dispose    ‘？？？

        pcb.Image.Save(path)
        pcb.ImageFile = path
        Dim inf As new FileInfo(path)
        Dim ndr As DataRow = DataTables("图片列表").addnew                             '将图片信息写入表(通过表事件显示在ListView1)
        ndr("全路径") = path
        ndr("文件名") = inf.Name
        ndr("时间") = Date.Now       
    Next
    Next
    msgbox("已获取" & _pdfWrapper.PageCount & "张图片" & vbcrlf & "耗时: " & (Date.Now - st).TotalSeconds & "秒")
Else
    Return
End If

我以10页为一组，当运行完第9页时，弹出未将项目指定实例。请老师看看是哪里问题？

谢谢！

 

If e.Form.Controls("TextBox1").text <> "" Then      'PDF文件已获取
    e.Form.BaseForm.WindowState =  System.Windows.Forms.FormWindowState.Maximized     '窗口最大化保证图片分辨率
    Forms("文字识别").Controls("TabControl1").SelectedPage = Forms("文字识别").Controls("TabControl1").TabPages("图片列表")
    Application.DoEvents()
    Dim st As Date = Date.Now   '开始计时
    Dim Pdfv As new PDFView.ConvertPDF.PDFConvert
    Dim pcb As WinForm.PictureBox = e.form.Controls("照片")
    Dim path1 As String = e.Form.Controls("TextBox1").text                            '获取的PDF文件路径
    Dim finfo As new FileInfo(path1)
    For i As Integer = 1 To _pdfWrapper.PageCount                                     '遍历PDF的页数
       
        If i Mod 10 = 0 Then
            _pdfWrapper.dispose
            _pdfWrapper = Nothing
            gc.collect
            _pdfWrapper.LoadPDF(path1)
        End If
       
        pcb.Image = _pdfWrapper.Pages(i).GetBitmap(pcb.Width, pcb.Height,True)        '获取每页图片
        Dim path As String = ProjectPath & "Attachments\" & "PDF" & finfo.Name.substring(0,finfo.Name.LastIndexOf(".")) & "-" & i & ".jpg"      '为每页图片命名并存储
        pcb.Image.Save(path)
        pcb.ImageFile = path
        Dim inf As new FileInfo(path)
        Dim ndr As DataRow = DataTables("图片列表").addnew                             '将图片信息写入表(通过表事件写入ListView1)
        ndr("全路径") = path
        ndr("文件名") = inf.Name
        ndr("时间") = Date.Now
    Next
    msgbox("已获取" & _pdfWrapper.PageCount & "张图片" & vbcrlf & "耗时: " & (Date.Now - st).TotalSeconds & "秒")
Else
    Return
End If

还是一样，我上传一个实例，请老师帮忙看一下。

实例中的红色代码我先注释掉了，请老师先运行一下旧代码。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:pdf转图片1.rar

甜老师，当生成的图片较大时，也会卡住，针对这句加黑代码有无调整方法？

谢谢！

 

If e.Form.Controls("TextBox1").text <> "" Then      'PDF文件已获取
    'e.Form.BaseForm.WindowState =  System.Windows.Forms.FormWindowState.Maximized     '窗口最大化保证图片分辨率
    Forms("文字识别").Controls("TabControl1").SelectedPage = Forms("文字识别").Controls("TabControl1").TabPages("图片列表")
    Application.DoEvents()
    Dim st As Date = Date.Now   '开始计时
    Dim Pdfv As new PDFView.ConvertPDF.PDFConvert
    Dim pcb As WinForm.PictureBox = e.form.Controls("照片")
    Dim path1 As String = e.Form.Controls("TextBox1").text                            '获取的PDF文件路径
    Dim finfo As new FileInfo(path1)
    For i As Integer = 1 To _pdfWrapper.PageCount                                     '遍历PDF的页数
       
        If i Mod 10 = 0 Then
            _pdfWrapper.dispose
            _pdfWrapper = Nothing
            gc.collect
            _pdfWrapper = new PDFLibNet.PDFWrapper()
            _pdfWrapper.LoadPDF(path1)
        End If
       
        'Dim img = _pdfWrapper.Pages(i).GetBitmap(pcb.Width, pcb.Height,True)        '获取每页图片-尺寸同控件

        Dim img = _pdfWrapper.Pages(i).GetBitmap(700, 990,True)        '改为直接设定图片尺寸，生成150张左右会卡住

        Dim path As String = ProjectPath & "Attachments\" & "PDF" & finfo.Name.substring(0,finfo.Name.LastIndexOf(".")) & "-" & i & ".jpg"      '为每页图片命名并存储
        img.Save(path)
        Dim inf As new FileInfo(path)
        Dim ndr As DataRow = DataTables("图片列表").addnew                             '将图片信息写入表(通过表事件写入ListView1)
        ndr("全路径") = path
        ndr("文件名") = inf.Name
        ndr("时间") = Date.Now
    Next
    msgbox("已获取" & _pdfWrapper.PageCount & "张图片" & vbcrlf & "耗时: " & (Date.Now - st).TotalSeconds & "秒")
Else
    Return
End If

请老师测试：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.part1.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.part2.rar