Problem with Adding Image To Page - invisible

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

   I seem to be missing something ? Please advise - Thanks in advance.
          PDFLibrary.InsertPages(PageNo, 1);
          Inc(PageNo);
          ms.SetSize(0);
          ImageEn1.IO.SaveToStreamJpeg(ms);
          ImageID:= PDFLibrary.AddImageFromStream(ms, 0);
          lWidth:= PDFLibrary.ImageWidth;
          lHeight:= PDFLibrary.ImageHeight;
          PDFLibrary.DrawImage(0, 0, lWidth, lHeight);
          PDFLibrary.ReleaseImage(ImageID);

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
andyhill Members Profile Find Members Posts Beginner Joined: 08 Nov 12 Location: Australia Status: Offline Points: 8	Post Options Post Reply Quote andyhill Report Post Thanks(0) Quote Reply Topic: Problem with Adding Image To Page - invisible Posted: 14 Nov 12 at 8:27PM
	I seem to be missing something ? Please advise - Thanks in advance. PDFLibrary.InsertPages(PageNo, 1); Inc(PageNo); ms.SetSize(0); ImageEn1.IO.SaveToStreamJpeg(ms); ImageID:= PDFLibrary.AddImageFromStream(ms, 0); lWidth:= PDFLibrary.ImageWidth; lHeight:= PDFLibrary.ImageHeight; PDFLibrary.DrawImage(0, 0, lWidth, lHeight); PDFLibrary.ReleaseImage(ImageID);

andyhill Members Profile Find Members Posts Beginner Joined: 08 Nov 12 Location: Australia Status: Offline Points: 8	Post Options Post Reply Quote andyhill Report Post Thanks(0) Quote Reply Posted: 14 Nov 12 at 8:51PM
	Resolved PDFLibrary.InsertPages(PageNo, 1); PDFLibrary.SetPageDimensions(992, 1402); // A4 Inc(PageNo); ms.SetSize(0); ImageEn1.IO.SaveToStreamJpeg(ms); ImageID:= PDFLibrary.AddImageFromStream(ms, 0); PDFLibrary.SelectImage(ImageID); lWidth:= PDFLibrary.ImageWidth; lHeight:= PDFLibrary.ImageHeight; PDFLibrary.SetOrigin(1); PDFLibrary.DrawImage(0, 0, lWidth, lHeight); PDFLibrary.ReleaseImage(ImageID);

AndrewC Members Profile Find Members Posts Moderator Group Joined: 08 Dec 10 Location: Geelong, Aust Status: Offline Points: 841	Post Options Post Reply Quote AndrewC Report Post Thanks(0) Quote Reply Posted: 15 Nov 12 at 10:23AM
	Andy, Note : ImageWidth and ImageHeight return the image size in pixels and the DrawImage function requires measurements in points. You can refer to this post for a method of importing an image based on the DPI of the image - http://www.quickpdf.org/forum/creating-a-multi-page-pdf-from-a-multipage-tiff_topic2125.html Also 72points = 1 inch. So PDFLibrary.SetPageDimensions(842, 595); will set the page to A4 or PDFLibrary.SetPageSize('A4'); will also work. Andrew.