尝试使用 LitePDF 库复制 PDF 文件中的页面。出现“资源 ID 超出范围”异常

Question

我有一个包含页面的源 PDF 文件。我需要将页面的内容传输到另一个文件。我正在使用 LitePDF 库：

SrcPDF := TLitePDF.Create;
SrcPDF.LoadFromFile(FList[PagesManager.List[i].FileIndex].Name, '', True);
PageRes := ResPDF.PageToResource(PagesManager.List[i].PageNo - 1);
SrcPDF.DrawResource(PageRes, 0 , LitePDFUnit_mm, 0, 0 , 200, 200);
ResPDF.FinishPage(PDFPage);

SrcPDF.Free;
SourcePDF.Free;

当代码调用 DrawResource 时，出现异常：“litePDF_DrawResource：资源 ID 超出范围。”

我到底做错了什么？

Answer 1

任务完成。

SrcPDF := TGALitePDF.Create;
SrcPDF.LoadFromFile(FList[PagesManager.List[i].FileIndex].Name, '', True, True);
if PagesManager.List[i].Rotate then
  SrcPDF.RotatePage(PagesManager.List[i].PageNo); //its myself procedure
PageRes := ResPDF.AddPageFromAsResource(SrcPDF, PagesManager.List[i].PageNo);
ResPDF.DrawResource(PageRes, 0, LitePDFUnit_mm, PagesManager.List[i].X + Margins.Left, PagesManager.List[i].Y + Margins.Top, 1, 1);
SrcPDF.Free;