Debenu Quick PDF Library - PDF SDK Community Forum : Multiple Images into PDF

Multiple Images into PDF : Ok, do I feel stupid. The reason...

Tue, 05 Feb 2008 02:39:59 +0000

Author: dblwizard
Subject: 863
Posted: 05 Feb 08 at 2:39AM

Ok, do I feel stupid. The reason that the above code did not work was because the array of filename that I had a leading space on all of the filenames after the first one. Thus the first file was processed fine but anything after that got an error.

So just note that you can't pass in a file name with a leading space on it.

Thanks

dbl

Multiple Images into PDF : Howdy again,I have done a little...

Fri, 25 Jan 2008 10:54:30 +0000

Author: dblwizard
Subject: 863
Posted: 25 Jan 08 at 10:54AM

Howdy again,

I have done a little more research and found some odd things. This code works for v4.42.1.1 when adding a single page. Blank pages are added for each additional page but the AddFileFromTiff returns 0.

With v5.22.0.145 I get the same behavior in code but the resulting image gives a "Insufficient data for an image" and the file has 3 blank pages in it.

Thanks

dbl

Multiple Images into PDF : Howdy,Sorry I didn't make...

Fri, 25 Jan 2008 10:14:36 +0000

Author: dblwizard
Subject: 863
Posted: 25 Jan 08 at 10:14AM

Howdy,

Sorry I didn't make it clear what I am doing. The asFileNamesTiffA is an array of single page tiffs. So what I am trying to do is load one page from each file into the PDF.

That is why I only have the one loop. The code I have there works the first time through the loop but the second time through the loop AddImageFromFile returns 0. I have even changed the order of the files in the array to make sure their wasn't really a problem with the Tiff file that its trying to load the second time threw.

Does that clarify things a little bit?

Thanks

dbl

Multiple Images into PDF : Hi!If you use lRC = objQPDF.Ad...

Fri, 25 Jan 2008 04:20:14 +0000

Author: Ingo
Subject: 863
Posted: 25 Jan 08 at 4:20AM

Hi!

If you use
lRC = objQPDF.AddImageFromFile(asFileNamesTiffA(i), 0)
you'll get only the first image... 'cause you set a fix "0".

If you're using tiff-files you should use something similar to:
tiffmax = GetImagePageCount(tiff-filename)
to see how many images are in your tiff.
Then you can initiate a new loop to add each internal image.
It should look similar to this non-language-syntax:
for i1 = 1 to filemax
//Create a new pdf-document...
if it's a tiff-file
tiffmax = GetImagePageCount(filename(i1))
for i2 = 1 to tiffmax
//Create a new pdf-document or a new page...
AddImageFromFile(filename(i1),i2)
next i2
endif
if it's no tiff-file
AddImageFromFile(filename(i1),0)
endif
next i1

Best regards,
Ingo

Multiple Images into PDF : Howdy All,I am trying to add multiple...

Fri, 25 Jan 2008 03:40:00 +0000

Author: dblwizard
Subject: 863
Posted: 25 Jan 08 at 3:40AM

Howdy All,

I am trying to add multiple tiff images to a single PDF. I have been able to use the AddImageFromFile to add a single image to a PDF but can not seem to make it work for multiple. Can somebody point me in the right direction? I am using version 5.22.0.145 with vb6.

   Set objQPDF = New iSED.QuickPDF
   lRC = objQPDF.CompressImages(1)

   For i = LBound(asFileNamesTiffA) To UBound(asFileNamesTiffA)

      If i = LBound(asFileNamesTiffA) Then
         lRC = objQPDF.NewDocument
      Else
         lRC = objQPDF.NewPage
         lRC = objQPDF.SelectPage(lRC)
      End If

      lRC = objQPDF.AddImageFromFile(asFileNamesTiffA(i), 0)

      If lRC <> 0 Then
         objQPDF.SetMeasurementUnits (2)
         objQPDF.SetOrigin (1)
         dHeight = objQPDF.ImageHeight / objQPDF.ImageVerticalResolution
         dWidth = objQPDF.ImageWidth / objQPDF.ImageHorizontalResolution
         lRC = objQPDF.SetPageDimensions(dWidth, dHeight)
         lRC = objQPDF.FitImage(0, 0, dWidth, dHeight, 1, 1, 0)
         lRC = objQPDF.CompressContent()
      End If

   Next i

Thanks

dbl