How to get an Image (Tiff) into a new PDF

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi,

Tried the following to add an Image with no luck...

QP.NewDocument;
QP.CompressImages(1);
ImageID := QP.AddImageFromFile('C:\temp.tif', 0);
QP.SelectImage(ImageID);
QP.SelectPage(1);
QP.DrawScaledImage(0,0,0.1);
QP.SaveToFile(fn);

Thanks John

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
John Sigoloff Members Profile Find Members Posts Beginner Joined: 20 Sep 06 Status: Offline Points: 11	Post Options Post Reply Quote John Sigoloff Report Post Thanks(0) Quote Reply Topic: How to get an Image (Tiff) into a new PDF Posted: 04 Nov 06 at 9:05PM
	Hi, Tried the following to add an Image with no luck... QP.NewDocument; QP.CompressImages(1); ImageID := QP.AddImageFromFile('C:\temp.tif', 0); QP.SelectImage(ImageID); QP.SelectPage(1); QP.DrawScaledImage(0,0,0.1); QP.SaveToFile(fn); Thanks John

JanN Members Profile Find Members Posts Senior Member Joined: 29 Oct 05 Location: Germany Status: Offline Points: 116	Post Options Post Reply Quote JanN Report Post Thanks(0) Quote Reply Posted: 05 Nov 06 at 7:14AM
	The documentation for AddImageFromFile says: "For multi-page TIFF images this parameter specifies the page number to load. For other image types this parameter should be set to 0." You should try to set the second parameter to 1. ImageID := QP.AddImageFromFile('C:\temp.tif', 1);