国产手机推荐,岛国一区二区三区,欧美一区黄色网站

GdPicture.NET文件轉(zhuǎn)換教程連載：將PDF轉(zhuǎn)換成多頁TIFF格式

原創(chuàng)|其它|編輯：郝浩|2012-12-17 09:41:33.000|閱讀 605 次

概述：使用GdPicture.NET可對圖像掃描后進(jìn)行簡單的處理，比如將PDF文件轉(zhuǎn)換成多頁的TIFF文件，本文將給出該示例的代碼。

相關(guān)鏈接：

使用GdPicture.NET可對圖像掃描后進(jìn)行簡單的處理，比如將PDF文件轉(zhuǎn)換成多頁的TIFF文件，本文將給出該示例的代碼。

示例代碼如下：

  
      Dim oGdPictureImaging As New GdPictureImaging()
      Dim oGdPicturePDF As New GdPicturePDF


      If oGdPicturePDF.LoadFromFile("c:\test.pdf", False) = GdPictureStatus.OK Then
         Dim TiffID As Integer
         For i As Integer = 1 To oGdPicturePDF.GetPageCount()
            oGdPicturePDF.SelectPage(i)
            Dim RasterPageID As Integer = oGdPicturePDF.RenderPageToGdPictureImageEx(200, True) '200 DPI rendering with form fields, or native image extraction if the page is image based
            'Convert rendered page to bitonal
            oGdPictureImaging.ConvertTo1Bpp(RasterPageID) 'Remove this line if you want to obtain colour tiff image
            If i = 1 Then
               TiffID = RasterPageID
               oGdPictureImaging.TiffSaveAsMultiPageFile(TiffID, "c:\multipage.tif", TiffCompression.TiffCompressionAUTO)
            Else
               oGdPictureImaging.TiffAddToMultiPageFile(TiffID, RasterPageID)
            End If
            oGdPictureImaging.ReleaseGdPictureImage(RasterPageID)
         Next
         oGdPictureImaging.TiffCloseMultiPageFile(TiffID)
         oGdPicturePDF.CloseDocument()
         MsgBox("Done!")
      Else
         MsgBox("can't open PDF")
      End If

標(biāo)簽：

本站文章除注明轉(zhuǎn)載外，均為本站原創(chuàng)或翻譯。歡迎任何形式的轉(zhuǎn)載，但請務(wù)必注明出處、不得修改原文相關(guān)鏈接，如果存在內(nèi)容上的異議請郵件反饋至chenjj@ke049m.cn

文章轉(zhuǎn)載自：慧都控件網(wǎng)

上一篇：實(shí)例解析WPF Elements強(qiáng)大的股市圖下一篇：[本周更新回顧]ImagXpressv12性能提升50% FastReport支持云存儲