对于 pdf 文档的显示在项目开发中是比较重要的,我们在项目开发时总是会处理一些类似报表之类的展现,无论是 web 应用还是本地应用,都不可避免地会使用 pdf 文档来进行处理,所以在本地显示 pdf 文档显得尤为重要,然而,对于 Lazarus、CodeTyphon 以及 Delphi 这样的工具来说,几乎没有开源的解决方案,所以,只能考虑使用收费的解决方案,作为学习,我这里使用 DevExpress VCL 组件中的 ExpressPDFViewer 控件来阐述。
首先,从网上下载 DevExpress VCL ,我下载的是好例子网的【 DevExpress VCL V19.1.2 FullSource〖D7~D10.3Rio〗内含安装工具 】,下载地址:https://www.haolizi.net/example/view_173845.html。
DevExpress 是非常著名的 DELPHI VCL 控件,拥有180多种VCL界面控件,接下来我们可以安装:
1.将 “DevExpressVCL19.1.2” 文件夹复制到要安装的目录中,通常是 C:Program Files (x86)Embarcadero
2.以管理员权限运行“DxAutoInstaller2.31.exe”,点击“Install”按钮即可
安装好后,打开 Delphi 创建项目,将 TdxPDFViewer 控件放置到窗体上,在窗体的 OnCreate 事件中添加以下代码:
dxPDFViewer1.LoadFromFile('F:参考资料Indy10.pdf');
运行程序,结果如下: