//set orgin at the upper left corner

Qp.SetOrigin(1);

//load image from a stream

//   option can specify the page number if the image is a multi-page, 0 otherwhise

Id = Qp.AddImageFromStream(MyStream, Option);

//select the image

Qp.SelectImage(Id);

//draw the image

Qp.DrawImage(10,10,100,100);

 

 

thanks but I am looking for the opposite example.  Take the TImage canvas and write it to the QPdoc.

 

I guess:

  image1.Picture.Bitmap.SaveToStream();
  qp.loadFromStream

  ...

 

didn't want to start a new subject since this was on point.  I always use forums by clicking on

'New Messages' or 'Unread Messages'.

 

TIA

 

RT

 

If you want to do it the other way round you should do a new post 'cause in this case now nobody will find this answer here if he's searching for the same and see the original headline but anyway...

BTW: In the sample section here there are samples for what you need!

 

Here's a code snippet for you:

   QP  := TDQuickPDF.Create;
   try
      QP.UnlockKey('MyKey');
      QP.LoadFromFile(Edit1.Text);
      If ( QP.Encrypted > 0 ) Then   
         QP.Unencrypt;   
      QP.CombineLayers;
//    0 = BMP / 1 = jpg / 3 = EMF / 4 = EPS        
      Test_Stream := Tmemorystream.Create;
      QP.RenderPageToStream(72,1,1,test_stream,1,0);
   finally
      QP.Free; 
   end;

   test_stream.Seek(0,0);
   jpg := TJpegImage.create;
   jpg.LoadFromStream (test_stream);

   Form1.Image1.Picture.Assign(jpg);

   Form1.Show;
   test_stream.Clear;
   jpg.Destroy;

 

Cheers, Ingo

 

TIA

 

RT