Font gets lost with CapturePage
Printed From: Debenu Quick PDF Library - PDF SDK Community Forum
Category: For Users of the Library
Forum Name: I need help - I can help
Forum Description: Problems and solutions while programming with the Debenu Quick PDF Library and Debenu PDF Viewer SDK
URL: http://www.quickpdf.org/forum/forum_posts.asp?TID=179
Printed Date: 25 Nov 24 at 2:23AM
Software Version: Web Wiz Forums 11.01 - http://www.webwizforums.com
Topic: Font gets lost with CapturePage
Posted By: JanN
Subject: Font gets lost with CapturePage
Date Posted: 14 Nov 05 at 8:41AM
|
Hi,
I have a pdf file generated by ghostscript. When opening and saving that file with quickpdf everything is fine. The problem occurs when I capture and draw that page before saving. When opening that modified file with Adobe Reader, I get an error: "Font not found in resource dictionary - using helvetica" (translated from german). That happens also with multipage files. I have no clue. Does anyone? Sample file: http://www.upload24.de/download/test.pdf Sample function: procedure DoSomething; var pdf: TiSEDQuickPdf; i,c,r: integer; w,h: double; begin pdf := TiSEDQuickPDF.Create; pdf.UnlockKey('license key'); pdf.LoadFromFile('c:\temp\test.pdf'); pdf.SetMeasurementUnits(1); pdf.SetOrigin(1); pdf.SelectPage(1); w := pdf.PageWidth; h := pdf.PageHeight; r := pdf.PageRotation; pdf.NewPage; pdf.SetPageDimensions(w, h); pdf.RotatePage(r); c := pdf.CapturePage(1); pdf.SelectPage(1); pdf.NewLayer; pdf.DrawCapturedPage(c, 0, 0, w, h); pdf.SaveToFile('c:\temp\out.pdf'); FreeAndNil(pdf); end; |
Replies:
Posted By: Ingo
Date Posted: 14 Nov 05 at 3:58PM
|
Hi Jan!
Please look here: http://www.quickpdf.org/forum/forum_posts.asp?TID=177&PN=1 I think it's the same problem. ------------- Cheers, Ingo |
Posted By: JanN
Date Posted: 15 Nov 05 at 3:46AM
|
Ingo,
Thanks for your suggestion. I saved the document once and then worked with that file. But unfortunately that didn't work. Other ideas? 
|