原創|其它|編輯:郝浩|2012-12-21 14:26:46.000|閱讀 469 次
概述:在使用GdPicture.NET控件的時候,如果想旋轉頁面并保存覆蓋原有的PDF文件,就需要用到其中的rasterisation方法。
# 界面/圖表報表/文檔/IDE等千款熱門軟控件火熱銷售中 >>
相關鏈接:
在使用GdPicture.NET控件的時候,如果想旋轉頁面并保存覆蓋原有的PDF文件,就需要用到其中的rasterisation方法,這包括處理所有輸入PDF位圖的頁面,并將這些位圖添加到新的PDF文件中。
代碼如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim oGdPictureImaging As New GdPicture.GdPictureImaging Dim oGdViewer As New GdPicture.GdViewer Dim RasterizedPage As Integer Dim PdfID As Integer Dim PdfImageID As Integer Dim CurrentPageWidth, CurrentPageHeight As Single oGdPictureImaging.SetLicenseNumber("XXX") 'Unlocking GdPicture.NET -> Replace XXX by a commercial or demo license KEY If oGdViewer.DisplayFromFile("c:\test.pdf") = GdPictureStatus.OK Then PdfID = oGdPictureImaging.PdfNewPdf("c:\newpdf.pdf", True) 'PDF/A 'Adding all rasterized pages of first to output PDF For i As Integer = 1 To oGdViewer.PageCount RasterizedPage = oGdViewer.PdfRenderPageToGdPictureImage(200, i) If i = 2 Then 'page to rotate !! oGdPictureImaging.Rotate(RasterizedPage, RotateFlipType.Rotate90FlipNone) End If PdfImageID = oGdPictureImaging.PdfAddImageFromGdPictureImage(PdfID, RasterizedPage) oGdPictureImaging.ReleaseGdPictureImage(RasterizedPage) 'Drawing the image into a PDF page CurrentPageWidth = oGdPictureImaging.PdfGetImageWidth(PdfID, PdfImageID) CurrentPageHeight = oGdPictureImaging.PdfGetImageHeight(PdfID, PdfImageID) oGdPictureImaging.PdfNewPage(PdfID, CurrentPageWidth, CurrentPageHeight) oGdPictureImaging.PdfDrawImage(PdfID, PdfImageID, 0, 0, CurrentPageWidth, CurrentPageHeight) Next oGdViewer.CloseDocument() oGdPictureImaging.PdfEndPdf(PdfID) End If End Sub
本站文章除注明轉載外,均為本站原創或翻譯。歡迎任何形式的轉載,但請務必注明出處、不得修改原文相關鏈接,如果存在內容上的異議請郵件反饋至chenjj@fc6vip.cn
文章轉載自:慧都控件網