Insert and draw Image in New PDF

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

   Sorry this is a basic question...

I want to be able to draw an image (jpg) in a new PDF document.

    OPDF := TiSEDQuickPDF.create;
    OPDF.UnlockKey('...');
    OPDF.Unencrypt;
    OPDF.UseUnsafeLayers(1);
    OPDF.SelectDocument(OPDF.NewDocument);
    OPDF.AddJPEGImageFromFile('aaa.jpg');
    OPDF.DrawImage(0,0,OPDF.ImageWidth,OPDF.ImageHeight);
    OPDF.SaveToFile('NewPDF.pdf');

The resultant PDF file contains just a blank page.

Could anyone please help??

Thanks.

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
Tim Hayes Members Profile Find Members Posts Beginner Joined: 16 Feb 07 Status: Offline Points: 7	Post Options Post Reply Quote Tim Hayes Report Post Thanks(0) Quote Reply Topic: Insert and draw Image in New PDF Posted: 10 Mar 10 at 4:01PM
	Sorry this is a basic question... I want to be able to draw an image (jpg) in a new PDF document. OPDF := TiSEDQuickPDF.create; OPDF.UnlockKey('...'); OPDF.Unencrypt; OPDF.UseUnsafeLayers(1); OPDF.SelectDocument(OPDF.NewDocument); OPDF.AddJPEGImageFromFile('aaa.jpg'); OPDF.DrawImage(0,0,OPDF.ImageWidth,OPDF.ImageHeight); OPDF.SaveToFile('NewPDF.pdf'); The resultant PDF file contains just a blank page. Could anyone please help?? Thanks.

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3530	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 10 Mar 10 at 4:48PM
	Hi Tim! Try this one: // . . . QP := TQuickPDF.Create; try QP.UnlockKey('...'); image := QP.AddImageFromFile(fstring, 0); QP.SetOrigin(1); // :-)) QP.SelectImage(image); QP.SetPageDimensions(QP.ImageWidth,QP.ImageHeight); QP.DrawImage(0,0,QP.ImageWidth,QP.ImageHeight); QP.SaveToFile('c:\temp\test.pdf'); finally QP.Free; end; // . . . Cheers, Ingo Edited by Ingo - 10 Mar 10 at 5:08PM

DELBEKE Members Profile Find Members Posts Debenu Quick PDF Library Expert Joined: 31 Oct 05 Location: France Status: Offline Points: 151	Post Options Post Reply Quote DELBEKE Report Post Thanks(0) Quote Reply Posted: 10 Mar 10 at 4:59PM
	Before drawing, set origin at the top left corner Qp.SetOrigin(1);

Tim Hayes Members Profile Find Members Posts Beginner Joined: 16 Feb 07 Status: Offline Points: 7	Post Options Post Reply Quote Tim Hayes Report Post Thanks(0) Quote Reply Posted: 10 Mar 10 at 6:14PM
	Both: Needed Ingo's solution + Delbeke's SetOrigin(1). Many thanks indeed for saving lots of hours.