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.

 

@ http://www.quickpdf.org/forum/member_profile.asp?PF=129&FID=15 - DELBEKE

 

Do you have an example to do this?

 

I do this

 

  PDFLibrary.SetPageDimensions (310*72/25.4,510*72/25.4);
  PDFLibrary.SaveToFile('D:\quickpdf\test\empty.pdf');
  PDFLibrary.ClearFileList('mylist');
  PDFLibrary.AddToFileList('mylist','D:\quickpdf\test\empty.pdf');
  PDFLibrary.AddToFileList('mylist','D:\quickpdf\test\test1.pdf');
  PDFLibrary.AddToFileList('mylist','D:\quickpdf\test\test2.pdf');
  PDFLibrary.MergeFileList('mylist','D:\quickpdf\test\merge.pdf');

 

and now I must draw the content of page2 and page 3 to the empty page 1 on position X1,Y1 and X2,Y2

 

after this I can delete page 2 and page 3 and save again.

 

Karsten

 

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

 

it works great for step 2 of the first post. Now I need only the solution for step 3 to place an eps-file onto the pdf.

 

Any idea?

 

Karsten

 

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

 

 

Thx

 

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