Image to PDF

I want to add convert a tiff to a pdf (ok I guess I'm not converting but just embedding).

I'm using Delphi and here's what I have so far:

  QP := TiSEDQuickPDF.Create;
  QP.UnlockKey('[MyKey]');
  QP.NewDocument;
  QP.AddImageFromFile(dlg1.filename, 1);
  QP.SelectPage(0);
  QP.AddImageFromStream(stream, 0);
  QP.DrawScaledImage(1, 1, 100);

qp.SaveToFile('c:\pdf.pdf');

This is as far as I've got. I have a saved file which is roughly the size of the image I'm inserting, but when you open it it is blank. I've tried setting selectPage to 1 as well as 0, but to no avail.

If anyone can give me any pointers I'd be much obliged.

Thanks,

Mark

Thanks for reply. I'm actually loading from stream, but thought it easier from my example if I showed it as being loaded from file. I've tried selectimage, but still don't seem to be getting anywhere (ie blank pdf, yet roughly same size as the tiff file). My code now is:

QP := TiSEDQuickPDF.Create;
  QP.UnlockKey('[MyKey]');
  QP.NewDocument;
  QP.SelectPage(0);

  Stream.Position:=0;

  QP.SelectImage(QP.AddImageFromStream(stream, 0));
  QP.DrawScaledImage(1, 1, 100);

  QP.SaveToFile('c:\pdf.pdf');

The stream is initialised although the example doesn't show the code and the stream contains a valid tif (tested at end of process by saving to a file). I'm not sure to what SelectPage should be set (ie whether 0 based index), but I;ve tried both as 0 and 1 and same result.

Any ideas why the above doesn't work?

Thanks in advance.

Mark

Thanks again. I've added setOrigin.

Drawing a scaled image was also failing for me, although I have no idea why. I've changed to DrawImage, but I'm setting the dimensions of the page first so that they match the image dimensions and this seems to do the trick perfectly.

Many thanks for your help. Don't think I would have got there without it.

Cheers,

Mark