百度360必应搜狗淘宝本站头条
当前位置:网站首页 > 技术文章 > 正文

Lazarus中PDFium组件的使用(pdf组件是什么)

cac55 2024-10-10 04:36 27 浏览 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;

将页面内容转换为位图。

参数: LeftTop 左上角坐标,WidthHeight 宽度和高度.

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,并设置 PdfView1Pdf 属性指向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 所在目录。

相关推荐

Mac电脑强制删除任何软件方法-含自启动应用

对于打工者来说,进入企业上班使用的电脑大概率是会被监控起来,比如各种流行的数据防泄漏DLP,奇安信天擎,甚至360安全卫士,这些安全软件你想卸载是非常困难的,甚至卸载后它自己又安装回来了,并且还在你不...

Linux基础知识 | 文件与目录大全讲解

1.linux文件权限与目录配置1.文件属性Linux一般将文件可存取的身份分为三个类别,分别是owner/group/others,且三种身份各read/write/execute等权限文...

文件保护不妥协:2025 年 10 款顶级加密工具推荐

数据安全无小事,2025年这10款加密工具凭借独特功能脱颖而出,从个人到企业场景全覆盖,第一款为Ping32,其余为国外英文软件。1.Ping32企业级加密核心工具,支持200+文件格...

省心省力 一个软件搞定系统维护_省心安装在哪里能找到

◆系统类似于我们居住的房间,需要经常打理才能保持清洁、高效。虽然它本身也自带一些清理和优化的工具,但借助于好用的第三方工具来执行这方面的任务,会更让人省心省力。下面笔者就为大家介绍一款集多项功能于一身...

JAVA程序员常用的几个工具类_java程序员一般用什么软件写程序

好的工具做起事来常常事半功倍,下面介绍几个开发中常用到的工具类,收藏一下,也许后面真的会用到。字符串处理:org.apache.commons.lang.StringUtilsisBlank(Char...

手工解决Windows10的若干难题_windows10系统卡顿怎么解决

【电脑报在线】很多朋友已经开始使用Win10,估计还只是测试版本的原因,使用过程中难免会出现一些问题,这里介绍解决一些解决难题的技巧。技巧1:让ProjectSpartan“重归正途”从10074...

System32文件夹千万不能删除,看完这篇你就知道为什么了

C:\Windows\System32目录是Windows操作系统的关键部分,重要的系统文件存储在该目录中。网上的一些恶作剧者可能会告诉你删除它,但你不应该尝试去操作,如果你尝试的话,我们会告诉你会发...

Windows.old 文件夹:系统备份的解析与安全删除指南

Windows.old是Windows系统升级(如Win10升Win11)或重装时,系统自动在C盘创建的备份文件夹,其核心作用是保留旧系统的文件、程序与配置,为“回退旧系统”提供保...

遇到疑难杂症?Windows 10回收站问题巧解决

回收站是Windows10的一个重要组件。然而,我们在使用过程中,可能会遇到一些问题。例如,不论回收站里有没有文件,都显示同一个图标,让人无法判别回收站的空和满的真实情况;没有了像Windows7...

卸载软件怎么彻底删掉?简单几个步骤彻底卸载,电脑小白看过来

日常工作学习生活中,我们需要在安装一些软件程序,但随着软件的更新迭代速度,很多时候我们需要重新下载安装新的程序,这时就需要将旧的一些软件程序进行卸载。但是卸载软件虽然很简单,但是很多小伙伴们表示卸载不...

用不上就删!如何完全卸载OneDrive?

作为Windows10自带的云盘,OneDrive为资料的自动备份和同步提供了方便。然而,从隐私或其他方面考虑,有些人不愿意使用OneDrive。但Windows10本身不提供直接卸载OneDri...

【Linux知识】Linux下快速删除大量文件/文件夹方法

在Linux下,如果需要快速删除大量文件或文件夹,可以使用如下方法:使用rm命令删除文件:可以使用rm命令删除文件,例如:rm-rf/path/to/directory/*这个命令会递...

清理系统不用第三方工具_清理系统垃圾用什么软件

清理优化系统一定要借助于优化工具吗?其实,手动优化系统也没有那么神秘,掌握了方法和技巧,系统清理也是一件简单和随心的事。一方面要为每一个可能产生累赘的文件找到清理的方法,另一方面要寻找能够提高工作效率...

系统小技巧:软件卸载不了?这里办法多

在正常情况下,我们都是通过软件程序组中的卸载图标,或利用控制面板中的“程序和功能”模块来卸载软件的。但有时,我们也会发现利用卸载图标无法卸载软件或者卸载图标干脆丢失找不到了,甚至控制面板中卸载软件的功...

麒麟系统无法删除文件夹_麒麟系统删除文件权限不够

删除文件夹方法例:sudorm-rf文件夹名称。删除文件方法例:sudorm-r文件名包括扩展名。如果没有权限,给文件夹加一下权限再删。加最高权限chmod775文件名加可执行权限...

取消回复欢迎 发表评论: