01delphi10.3下PDFium5.8的提取文本

delphi PDFium 提取文档内容

---

提取文本

在窗体上放置TPdf组件Pdf1 和 TMemo组件Memo1

procedure TForm1.Button7Click(Sender: TObject);
varI: Integer;
begintry//读取pdf文件Pdf1.FileName := 'C:\LargeFile.pdf';Pdf1.Active := True;//清空列表Memo1.Lines.Clear;//循环pdf页面for I := 1 to Pdf1.PageCount dobeginPdf1.PageNumber := I;Memo1.Lines.Add(IntToStr(I) + '------------------');//提取当前页面文本Memo1.Lines.Add(Pdf1.Text);end;finallyPdf1.Active := False;end;
end;