place one pdf on another

 

I'm looking for a solution to do the following steps.

 

1.

 I must create an emty single side pdf with special dimensions in millimeters

PDFLibrary := TQuickPDF0712.Create;

PDFLibrary.SetPageDimensions (310*72/25.4,510*72/25.4);

 

2.

I must place on this page a second pdf-file on position X1,Y1

3.

I must place on this page an eps-file on position X2,Y2

 

4.

Save this PDF-document

PDFLibrary.SaveToFile('D:\placed.pdf');

 

Are the steps 2 and 3 possible with the Quick PDF Library or not?

 

I use imagemagick on this time to do that but the quality is not so good.

 

Karsten

Ingo say You can merge pdf-documents one after the other, that's right, but you can use CapturePage and DrawCapturedPage for the point 2.

 

Private Sub Command1_Click()
Dim IdMain As Long
Dim IdIncluded As Long
Dim IdCaptured As Long
Dim LastPage As Long

Dim lRet As Long
  m_Doc.UnlockKey "mykey"
  lRet = m_Doc.LoadFromFile(Text1.Text) 'load main file
  IdMain = m_Doc.GetDocumentID(m_Doc.DocumentCount) 'save it's id
  LastPage = m_Doc.PageCount  'save nb page in the main doc
  lRet = m_Doc.LoadFromFile(Text2.Text) 'load pdf to be included
  IdIncluded = m_Doc.GetDocumentID(m_Doc.DocumentCount) 'save it's id
  lRet = m_Doc.SelectDocument(IdMain) 'select back main doc
  m_Doc.MergeDocument IdIncluded    'merge the 2 pdfs
  IdCaptured = m_Doc.CapturePage(LastPage + 1) 'capture the fist page of the second pdf
  m_Doc.SelectPage 1  's'lect the page that wil receive the capture
  m_Doc.SetOrigin 1   'coord origin top left
  m_Doc.SetMeasurementUnits 1 'use millimeters as unit for coords
  lRet = m_Doc.DrawCapturedPage(IdCaptured, 10, 10, 150, 150) 'draw the captured page
  'clear possible extra pages got from the second pdf
  If m_Doc.PageCount > LastPage Then
    m_Doc.DeletePages LastPage + 1, m_Doc.PageCount
  End If
  'finaly save the result
  lRet = m_Doc.SaveToFile("c:\test.pdf")

  'clear doc
  m_Doc.RemoveDocument IdMain
End Sub

 

 

The description/functions about drawing an image on a pdf you can find in the online-documentation at the section "image handling"... "DrawImage" should be your choice.

 

After loading your pdf-document ...

First:

AddImageFromFile

Then:

SelectImage

At least:

DrawImage

 

Supported imagetypes are

BMP, TIFF, JPEG, PNG, GIF, WMF and EMF.

So you should convert your eps-file first.

 

Cheers, Ingo

 

 

It works realy good for my problem in delphi 2009 with the beta-files. When will release the Delphi2009 DCU's.

I will purchase one license today

 

Karsten