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;

本文来自互联网用户投稿，该文观点仅代表作者本人，不代表本站立场。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如若转载，请注明出处：http://www.mzph.cn/news/924954.shtml

如若内容造成侵权/违法违规/事实不符，请联系多彩编程网进行投诉反馈email:809451989@qq.com，一经查实，立即删除！