heard$
heard

01/23/2007 :: 18:26

Anonyme

Hi Loic,
Can you tell me how to load a 30 page pdf and save page 4 as a separate pdf?

What I have in pseudocode is:

gdviewer.CallMethod.DisplayFromPdf('c:\exist.pdf')
gdviewer.SetProperty.CurrentPage(4)
gdviewer.CallMethod.GetNativeImage(srcID)
gdviewer.GetProperty.PictureWidth(srcw)
gdviewer.GetProperty.PictureHeight(srch)

gdpro.CallMethod.PdfNewPdf('c:\new.pdf')
gdpro.CallMethod.PdfSetPageDimensions(srcw,srch)
gdpro.CallMethod.PdfDrawImage(srcID,0,0,srcw,srch)

gdviewer.CallMethod.ClosePicture
gdpro.CallMethod.PdfSavePdf

But I am missing something. I get a blank page.
Thank you!

Heard Saxon

Loïc$2006306
Loïc

01/25/2007 :: 14:04

Registered

Hi Heard,

Try that:


gdviewer.CallMethod.DisplayFromPdf('c:\exist.pdf')
gdviewer.SetProperty.CurrentPage(4)
gdviewer.CallMethod.GetNativeImage(srcID)
gdviewer.GetProperty.PictureWidth(srcw)
gdviewer.GetProperty.PictureHeight(srch)

gdpro.CallMethod.PdfNewPdf('c:\new.pdf')
gdpro.CallMethod.PdfSetMeasurementUnits(0)
PDFImageID = gdpro.CallMethod.PdfAddImageFromImageID(srcID)
gdpro.CallMethod.PdfSetPageDimensions(srcw,srch)
gdpro.CallMethod.PdfNewPage()
gdpro.CallMethod.PdfDrawImage(PDFImageID ,0,0,srcw,srch)
gdpro.CallMethod.PdfEndPage()
gdviewer.CallMethod.ClosePicture
gdpro.CallMethod.PdfSavePdf



Best regards,

Loïc
heard$
heard

01/25/2007 :: 17:21

Anonyme

Thank you for your quick reply! I got this to work now. I have another question regarding rendering but I'll submit as a separate issue.
Regards,
Heard
back to forum