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

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

cac55 2024-10-10 04:36 25 浏览 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 所在目录。

相关推荐

三菱PLC新手必备!20个案例带你打通编程逻辑!!!

在当今自动化蓬勃发展的时代,三菱PLC已然成为众多自动化爱好者和从业者踏入控制领域的首选利器。无论是小型的自动化生产线,还是智能家居系统的搭建,三菱PLC都发挥着举足轻重的作用。在接下来的内容...

一文教你看懂三菱PLC定位指令应用

一动作描述1、分别介绍各个定位指令的使用规则;2、使用定位指令控制伺服步进,(以脉冲加方向的方式);3、M8029应用注意事项。二硬件设备1、三菱PLC:FX3U-32MT;2、步进电机和步进驱...

电气人,三菱Q系列和FX PLC系列之间的区别你都知道吗?

PLC软元件大比拼,Q系列VSFX系列,你的选择是什么?家,对每个人都很重要;爱,也是。对工程师来说,PLC就像他们的家,用代码搭建的爱。今天,咱们说说三菱PLC里的Q系列和FX系列,看看它们软元件...

三菱PLC中定位指令DRVA的使用案例

三菱PLC绝对定位指令DRVA使用案例深度解析:从入门到进阶一、案例引入:伺服电机绝对定位控制用户需求:工厂自动化生产线需要对工件进行精准定位,误差必须控制在极小的范围内。这要求伺服电机能够在特定位...

三菱FX-PLC设计一个通电和断电均延时的梯形图

任务描述设计一个通电和断电均延时的梯形图。当X000由断变通时,延时10S后Y0得电;当X000由通变断时,延时5S后Y000断电。程序#电工交流圈##PLC##三菱PLC##梯形图#...

三菱R系列PLC硬件组态案例2(三菱plc硬件结构图)

概述本例中将详细介绍模拟量输出模块R60DAV8的使用方法硬件组态设置CPU:R04ENCPU(内置RJ71EN71集成一个以太网口和CC-LinkIEField接口)电源:R62P串行模块:RJ...

新手必看:三菱FX PLC输入接线(三菱fx plc教学视频)

导读:对于学习三菱PLC编程的初学者,熟悉和掌握PLC输入接线是必须的。PLC输入接线,根据输入端可以接的元件大致可以分为两线制和三线制。通过下文学习三菱FXPLC的输入接线。一个基本回路需要哪三个...

这几种方法教你三菱PLC如何控制变频器,对比,哪种最适用

变频器是一个执行机构,它的作用就是驱动三相异步电动机,一些高性能的变频器也可以驱动同步电机,甚至增加编码器反馈实现伺服功能。至于如何驱动,就靠PLC控制实现。在工控行业中,PLC与变频器是最常见的一种...

三菱PLC编程实例(三菱plc编程实例大全)

三菱PLC编程实例-正反转电路PLC控制控制要求:通过PLC程序控制实现三相异步电动机的正反转控制(正反转切换不需要进行停止可直接切换),且设备具有过载保护、短路保护。注:切换方向时,正运行方向立即...

三菱plc的数据类型(PLC的基础)(三菱plc常用的型号)

三菱PLC的数据类型根据其软元件和用途可分为以下几类:1.位(Bit)用途:表示开关状态(ON/OFF)。软元件:`X`(输入继电器)、`Y`(输出继电器)、`M`(内部继电器)、`S`(步进继电...

三菱R系PLC高级应用(三菱plc高级编程实例)

三菱R系PLC高级应用一、模块配置1.添加模块打开GXWorks3,新建工程,选择PLC型号。添加CPU,系统提示设置模块。模块标签,用于在程序中使用标签对模块的参数设置和模块的状态读取。样本注...

三菱PLC报警一览表(部分)(三菱plc报警代码手册)

...

三菱PLC特殊功能辅助继电器-分类总结清单

1.FX系列PLC2.Q系列PLC3.A系列PLC关注我,学习更多电气知识!...

[三菱PLC] 三菱FX各系列轴输出和插补说明

三菱FX系列PLC当下常用的有FX3SA、FX3GA、FX3U、FX5U(IQ-F)。这几个系列里对应晶体管型号的主机具备轴定位功能。之前呢,FX3SA、FX3GA、FX3U只能让单轴单独...

三菱PLC的几种类型(常用的三菱plc)

三菱PLC分几种类型,其中这几种要记住三菱PLC分几种类型,今天分享大家分享三菱PLC分几种类型。一、PLC的类型:1、小型PLC一体式结构、I/O点数:256点(384点)多用于单机控制如:FX1...

取消回复欢迎 发表评论: