Lazarus中PDFium组件的使用(pdf组件是什么)
cac55 2024-10-10 04:36 13 浏览 0 评论
Google 在 BSD 3-Clause 许可证下开源了 Chrome 的 PDF 渲染引擎 PDFium。不同于 Mozilla 基于 JavaScript 的 PDF.js。谷歌采用福昕的 PDF 技术为其 PDF 开源项目提供开源 PDF 渲染引擎。现在,通过福昕 SDK,PDF 开发人员使用PDF 源码时可以更加简单,福昕 SDK 提供了可定制的 PDFium 源码。PDFium 源码与福昕其他强大的 PDF SDK 集成所需的特殊接口、及时高效的支持和专业的服务,让客户使用开源项目时更加自信从容。
下面我们来体验一下这个开源组件的使用。
1. Lazarus 中安装 PDFium
方法同样适用于 Delphi 和 CodeTyphon。
首先在网上下载 PDFium 的源代码,如:
Winsoft PDFium Component Suite 5.4 for 5-10.3 FULL SOURCE
下载后解压缩,其文件夹中应该包含各个版本的安装包,图示如下:
包括 Delphi 各个版本、Lazarus 和 Typhon 的组件包。
在 Lazarus 中安装非常简单,将解压后的文件夹复制到 Lazarus 的安装目录,打开 Lazarus ,然后选择 Package -> Open Package File,选择 PDFium 目录中 Lazarus 下的包文件名 pdfiump.lpk,打开包后如下图所示:
从上图中可以看到缺少了两个 pas 源代码文件,此时,在文件名上右键,选择 Remove File,然后在 Files 上右击,选择 Add Files From File System,然后在 PDFium 目录中的 Source 目录选择 PDFiumE.pas 和 PDFium.pas,弹出对话框中提示源代码的位置,选择 Yes,最后选择安装即可。
安装完成后,系统会自动重新启动 Lazarus,启动后即可看到组件,如下图所示:
此时,我们就可以使用 PDFium 组件来进行一些 Pdf 文件的操作。
PDFium 组件包包含两个组件: TPdfView 与 TPdf,其中 TPdfView 用于显示 TPdf 中的文档。
2. TPdf 组件
TPdf 组件指具体的 Pdf 文档。其常用属性如下:
- Active
property Active: Boolean;
打开或关闭选定的PDF文档。
- FileName
property FileName: string;
PDF文件名,应指定具体文件路径及文件名。
- Password
property Password: string;
PDF文件的密码。
- PageNumber
property PageNumber: Integer;
文档的当前页面。值必须是1到 PageCount 之间。
- PageCount
property PageCount: Integer;
文档中的总页数。只读属性。
该组件的常用方法如下:
- LoadDocument
procedure LoadDocument(Data: TMemoryStream);
从内存中打开并加载PDF文档。
参数:
Data 内存数据。
- RenderPage
function RenderPage(Left, Top, Width, Height: Integer; Rotation: TRotation = ro0; Options: TRenderOptions = []; Color: TColor = clWhite): TBitmap;
将页面内容转换为位图。
参数: Left 、Top 左上角坐标,Width 、Height 宽度和高度.
Rotation 页面旋转。
type TRotation = (ro0, ro90, ro180, ro270);
PDF 页面旋转。 页面只能按旋转顺时针旋转。
ro0 无页面旋转
ro90 页面顺时针旋转 90 度
ro180 页面顺时针旋转 180 度
ro270 页面顺时针旋转 270 度
Options 页面呈现标志。
type TRenderOptions = set of TRenderOption;
页面呈现标志。
reAnnotations 渲染注解
reLcd 为 LCD 显示优化的文本渲染
reNoNativeText 不要使用某些平台上提供的本机文本输出
reGrayscale 灰度输出
reDebugInfo 设置是否要获取一些调试信息
reNoCatchException 设置是否要不捕获异常
reLimitCache 限制图像缓存大小
reHalftone 始终使用半色调进行图像拉伸
rePrinting 渲染打印
reReverseByteOrder 以相反的字节顺序呈现; 此标志仅在渲染到位图时启用
reNoSmoothText 禁用文本上的抗锯齿
reNoSmoothImage 禁用图像上的抗锯齿
reNoSmoothPath 禁用路径上的抗锯齿
Color 背景色。
返回值: 转换后的位图
3.示例
创建 Application 项目,在窗体上放置一个 Panel 组件,设置 Caption 为 '',Align 为 alTop。
在窗体上放置 TPdfView 组件PdfView1和 TPdf 组件Pdf1,并设置 PdfView1 的 Pdf 属性指向Pdf1 ,将 PdfView1 的 Align 属性设置为 alClient。
窗体的创建事件代码如下:
procedure TForm1.FormCreate(Sender: TObject);
begin
//设置打开的PDF文件路径
Pdf1.FileName := 'test.pdf';
//设置打开的页数
PdfView1.PageNumber := 1;
//显示PDF
PdfView1.Active := True;
end;
在 Panel 组件上放置一个 Button 组件,设置 Caption 为"保存为图片",编写代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
i: Integer;
ABitmap: TBitmap;
begin
// 循环所有PDF页面
for i := 1 to Pdf1.PageCount do
begin
//选择PDF文档的页面
Pdf1.PageNumber := i;
//转换成 bmp(pdf中的屏幕像素数是72)
ABitmap := Pdf1.RenderPage(0, 0, Round(Screen.PixelsPerInch * Pdf1.PageWidth / 72.0), Round(Screen.PixelsPerInch * Pdf1.PageHeight / 72.0));
try
ABitmap.SaveToFile(IntToStr(i) + '.bmp');
finally
ABitmap.Free;
end;
end;
end;
在 Panel 组件上放置一个 Button 组件,设置 Caption 为"打印",编写代码如下:
添加:uses Printers
procedure TForm1.Button2Click(Sender: TObject);
var
i: Integer;
ABitmap: TBitmap;
begin
// 开始打印
Printer.BeginDoc;
try
// 循环所有PDF页面
for i := 1 to Pdf1.PageCount do
begin
if i > 1 then
Printer.NewPage;
// 选择 PDF 文档的页面
Pdf1.PageNumber := i;
// 将页面内容转换为 bmp
ABitmap := Pdf1.RenderPage(0, 0, Printer.PageWidth, Printer.PageHeight, ro0, [rePrinting]);
// 打印 bmp
Printer.Canvas.StretchDraw(Printer.Canvas.ClipRect, ABitmap);
end;
finally
Printer.EndDoc;
end;
end;
在 Panel 组件上放置一个 Button 组件,设置 Caption 为"打开",编写代码如下:
procedure TForm1.Button3Click(Sender: TObject);
var
AMemory: TMemoryStream;
begin
// 关闭已打开的PDF文件
Pdf1.Active := False;
// 加载PDF文件到流中
AMemory := TMemoryStream.Create;
AMemory.LoadFromFile('test.pdf');
// 加载流中的PDF
Pdf1.LoadDocument(AMemory);
// 设置打开的页数为倒数第2页
PdfView1.PageNumber := Pdf1.PageCount-1;
//显示PDF
PdfView1.Active := True;
end;
打开 按钮的操作是通过流加载文档。
运行程序前,需要将 pdfium.dll 文件复制到 Application 所在目录。
相关推荐
- 让组策略保护Windows XP的安全
-
默认安装完WindowsXP之后,我们的WindowsXP并不很安全。因此,我们有必要对系统进行一些修修补补,一般情况下我们都要动用到注册表。诚然,修改注册表是一种非常有效的方法,但是它需要一定的...
- 你造吗?十种方式保护你免受"零日攻击"
-
|责编:王迪WindowsXP的寿终正寝,数据安全问题又再一次成为人们关注的焦点。近日,微软透漏,一个基于InternetExplorer的“零日攻击”给用户带来了严重破坏。“零日攻击”一种利用...
- 特立独行——打造游戏专用独立系统
-
大部分人的电脑是为了学习和工作用的,所以,如果你是一个游戏迷,那么推荐你安装一个独立系统专用于游戏,做到工作娱乐两不相扰。方案1:游戏专用移动WindowsXP目的:解决游戏兼容性问题喜欢玩游戏的都...
- 驰为VX8 3G Win8入门教程篇
-
距离Win8.1的正式发布也将近1年了,凭借着Win8.1在移动便携以及娱乐办公上的优势,现在的Win8平板越来越受到消费者的追捧,而驰为VX83G就是其中一款,搭载了卓越的英特尔Z3735G四核芯,...
- 易淘收银软件说明
-
易淘收银系统,简称易淘收银,专为小型及连锁零售、餐饮行业打造。基于SaaS模式,智能便捷,无需维护,轻量级设计却功能强大,简约而不失专业,助力门店高效管理收银。1、前台系统:收银客户端;2、后台系...
- CAD打不开怎么办?原因可能是电脑中毒了,6步就能完美解决问题
-
一、问题描述我的CAD安装后无法打开,安装过程中没有出现任何问题,但是安装后打开就出现一个对话框“DBXCAS0”点击后又出现“FATALERROR:UnhandledAccessViola...
- 腾讯QQ6.1正式版发布更新
-
2014-07-2405:12:00作者:张林【中关村在线软件资讯】7月24日消息:腾讯QQ官网小幅更新了QQ6.1正式版,最新版本号升级至11905,继续主打扁平化、炫酷登录窗口、支持同步最近一...
- Win10等网页版OneDrive无法登陆怎么办?
-
IT之家(www.ithome.com):Win10等网页版OneDrive无法登陆怎么办?Win10之家报道,微软OneDrive云网盘是跨平台的数据同步和存储服务,支持WindowsPC(如Wi...
- 经典回顾:折戟沉沙的Windows Longhorn有着惊艳的登录屏幕
-
尽管微软原先计划让WindowsLonghorn继承WindowsXP操作系统的衣钵,但这个充满雄心壮志的操作系统项目最终还是未能迎来曙光,而是被微软用WindowsVista取而代...
- 电脑怎么优化
-
电脑配置和宽带流量也是硬件,但这些要求其实并不需要很高,关键还是怎么去安全使用电脑并进行有效的优化。电脑的应用和优化处理一、电脑的应用和优化处理二、目前,大家使用的个人电脑,配置方面均没多大问题,比如...
- 怎么安装usb驱动
-
USB驱动主要是针对WIN98时代的说法,如今WINXP已集成大部分USB驱动,通常都能识别。只有极少数情况下,例如手机、打印机或扫描仪等办公设备的USB驱动可能无法自动识别。1、USB驱动偶尔无法...
- 普通话考试多名考生信息被泄露,接投诉后涉事网站被限制访问
-
“陕西普通话成绩查询网(sxpth.cn)”泄露个人信息网站截图网传图片显示,407名普通话考试考生的姓名、身份证号码等个人信息疑似被泄露。9月26日下午,涉事网站sxpth.cn的域名注册商——成...
- 电脑伪技巧——个人电脑无需设置登录密码
-
默认情况下,我们每次登录系统都要输入登录账户对应的密码才能进入桌面。有些朋友觉得这样很麻烦,由于电脑只是自己使用,还不如不要设置密码,这样每次可以自动登录。大家知道,账户密码是系统验证用户合法性的唯一...
- Windows 10/11 自带远程桌面:实用技巧与操作指南
-
Windows10/11自带远程桌面:实用技巧与操作指南在当今快节奏的数字时代,远程访问和控制计算机的需求日益增长。微软在Windows10和Windows11中内置了远程桌面功能,为用户提供...
- 不升级系统的5大原因造吗?
-
2015-01-2405:54:00作者:陈占伟Windows10系统的发布,让人们重新将目光聚焦到生命力长久的Windows系统之上。如今操作系统越来越多,似乎Windows升级的获得的关注度...
你 发表评论:
欢迎- 一周热门
- 最近发表
- 标签列表
-
- 如何绘制折线图 (52)
- javaabstract (48)
- 新浪微博头像 (53)
- grub4dos (66)
- s扫描器 (51)
- httpfile dll (48)
- ps实例教程 (55)
- taskmgr (51)
- s spline (61)
- vnc远程控制 (47)
- 数据丢失 (47)
- wbem (57)
- flac文件 (72)
- 网页制作基础教程 (53)
- 镜像文件刻录 (61)
- ug5 0软件免费下载 (78)
- debian下载 (53)
- ubuntu10 04 (60)
- web qq登录 (59)
- 笔记本变成无线路由 (52)
- flash player 11 4 (50)
- 右键菜单清理 (78)
- cuteftp 注册码 (57)
- ospf协议 (53)
- ms17 010 下载 (60)