使用GdPicture.NET可以在将图像扫描之后导出为PDF格式,并可进行编辑。比如导出的PDF图像拥有很多页,那么可以快速的在PDF文件中添加图片,并可实现定位添加,可以在任一PDF页面添加图片。
示例代码如下:
Dim oGdPicturePDF As New GdPicturePDF
Dim oGdPictureImaging As New GdPictureImaging
oGdPicturePDF.LoadFromFile("c:\input.pdf", False)
Dim ImageID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile("c:\input.tif")
oGdPicturePDF.SelectPage(1)
Dim pageWidth As Single = oGdPicturePDF.GetPageWidth
Dim pageHeight As Single = oGdPicturePDF.GetPageHeight
oGdPicturePDF.SetMeasurementUnit(PdfMeasurementUnit.PdfMeasurementUnitPoint)
oGdPicturePDF.SetOrigin(PdfOrigin.PdfOriginBottomLeft)
Dim imageResName As String = oGdPicturePDF.AddImageFromGdPictureImage(ImageID, False, False)
oGdPictureImaging.ReleaseGdPictureImage(ImageID)
oGdPicturePDF.DrawImage(imageResName, pageWidth / 3, pageHeight / 3, pageWidth / 3, pageHeight / 3)
oGdPicturePDF.SaveToFile("c:\output.pdf")
oGdPicturePDF.CloseDocument()