基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

采用PDFium控件实现从PDF文件提取文字。

try
    Pdf1.Active := False;//PDFium控件
    PdfView1.Active:=false;//PDFium控件
    //读取pdf文件
    Pdf1.FileName := EditPdfFile.Text;;
    Pdf1.Active := True;
    PdfView1.PageNumber := 1;

    //清空列表
    Memo1.Lines.Clear;
    //循环pdf页面
    for I := 1 to Pdf1.PageCount do
    begin
      Pdf1.PageNumber := I;
      Memo1.Lines.Add(IntToStr(I) '------------------');
      //提取当前页面文本
      Memo1.Lines.Add(Pdf1.Text);
    end;
  finally
    Pdf1.Active := False;
    PdfView1.Active:=false;
  end;