Font gets lost with CapturePage

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;
      

Ingo,

Thanks for your suggestion. I saved the document once and then worked with that file. But unfortunately that didn't work.

Other ideas?