GdPicture FORUMS

Is there a way to convert from PDF to tiff? Here is some sample code that works fine for jpg but not PDF

Me.OpenFileDialog1.ShowDialog()
Me.Imaging1.CreateImageFromFile(Me.OpenFileDialog1.FileName)
Me.Imaging1.TiffSaveAsNativeMultiPage(My.Application.Info.DirectoryPath & "\MyConvertFile.tif")

Hi,

You can convert PDF to tiff using the GdViewer & Imaging classes:

Code to convert PDF file to multipage tiff image:

Code: Select all

Dim nPage As Long
Dim oImaging As Object, oGdViewer As Object

Set oImaging = CreateObject("gdpicturepro5.Imaging")
Set oGdViewer = CreateObject("gdpicturepro5.GdViewer")

oGdViewer.SetLicenseNumber ("XXXX")
oImaging.SetLicenseNumber ("XXX")
oGdViewer.LockControl = True
oGdViewer.DisplayFromPdfFile ("c:\test.pdf")
For nPage = 1 To oGdViewer.PageCount
    oGdViewer.DisplayFrame (nPage)

    If nPage = 1 Then
       oImaging.SetNativeImage (oImaging.CreateClonedImage(oGdViewer.GetNativeImage))
       Call oImaging.TiffSaveAsNativeMultiPage("c:\output.tif")
    Else
       Call oImaging.TiffAddToNativeMultipage(oGdViewer.GetNativeImage)
    End If
Next nPage
oImaging.TiffCloseNativeMultiPage

Regards,

Loïc

Can you convert the image format while converting from PDF to Tiff?

For instance my PDF is a 12 page color document and I want a single method to convert it to a black and while multipage Tif. All examples I have seen use single images and not multipage images.

Hi,

To save as 1bpp multipage tiff file you need to replace this part of the code sample:

Code: Select all

    If nPage = 1 Then
       oImaging.SetNativeImage (oImaging.CreateClonedImage(oGdViewer.GetNativeImage))
       Call oImaging.TiffSaveAsNativeMultiPage("c:\output.tif")
    Else
       Call oImaging.TiffAddToNativeMultipage(oGdViewer.GetNativeImage)
    End If

By this one:

Code: Select all

   oImaging.SetNativeImage (oImaging.CreateClonedImage(oGdViewer.GetNativeImage))
   oImaging.ConvertTo1Bpp
   If nPage = 1 Then   
      Call oImaging.TiffSaveAsNativeMultiPage("c:\output.tif")
   Else
      Call oImaging.TiffAddToNativeMultipage(oImaging.GetNativeImage)
      oImaging.CloseNativeImage()
   End If

Best regards,

Loïc