delphi PDFium 编辑操作

我是你的小姨妈 發表於 2022-1-15 15:15:00

<h1 id="pdfium-编辑操作">PDFium 编辑操作</h1>
<h2 id="属性和方法">属性和方法</h2>
<h3 id="tpdfimportpages">TPdf.ImportPages</h3>
<pre><code class="language-delphi">function ImportPages(Pdf: TPdf; const Range: string; PageNumber: Integer = 1): Boolean;
</code></pre>
从指定的PDF文档导入页面。
参数
Pdf 指定导入的PDF文档。
Range 导入范围，决定要导入的页面，例如'1,3,5-7'（导入第1页、第2页，第5到第7页）。
PageNumber 插入的页码。导入的PDF在文档中的开始页码，页码从1开始的。
返回值
导入是否成功。
<h3 id="tpdfcreatedocument">TPdf.CreateDocument</h3>
<pre><code class="language-delphi">procedure CreateDocument;
</code></pre>
创建一个新的PDF文档。
<h3 id="tpdfsaveas">TPdf.SaveAs</h3>
<pre><code class="language-delphi">function SaveAs(const FileName: string; Option: TSaveOption = saNone; PdfVersion: TPdfVersion = pvUnknown): Boolean;
</code></pre>
将PDF文档的副本保存到指定的文件。
参数
FileName 文件名。
Option 保存选项。
PdfVersion PDF 文件的版本。
返回值
保存是否成功。
<h3 id="tpdfversion">TPdfVersion</h3>
<pre><code class="language-delphi">type TPdfVersion = (pvUnknown, pv10, pv11, pv12, pv13, pv14, pv15, pv16, pv17);
</code></pre>
PDF 文件的版本。
<ul>
<li>pvUnknown 未知版本</li>
<li>pv10PDF版本 1.0</li>
<li>pv11PDF版本 1.1</li>
<li>pv12PDF版本 1.2</li>
<li>pv13PDF版本 1.3</li>
<li>pv14PDF版本 1.4</li>
<li>pv15PDF版本 1.5</li>
<li>pv16PDF版本 1.6</li>
<li>pv17PDF版本 1.7</li>
</ul>
<h3 id="tsaveoption">TSaveOption</h3>
<pre><code class="language-delphi">type TSaveOption = (saNone, saIncremental, saNoIncremental, saRemoveSecurity);
</code></pre>
保存选项。
<ul>
<li>saNone 没有指定选项</li>
<li>saIncremental 增量</li>
<li>saNoIncremental 无增量</li>
<li>saRemoveSecurity 删除安全</li>
</ul>
<h3 id="tpdfviewfindfirst">TPdfView.FindFirst</h3>
<pre><code class="language-delphi">function FindFirst(const Text: WString; Options: TSearchOptions = []; StartIndex: Integer = 0; DirectionUp: Boolean = True): Integer;
</code></pre>
开始搜索指定的文本。
参数
Text 搜索的字符串
Options 搜索标志
StartIndex 搜索开始索引。从 0 开始的。
DirectionUp 搜索方向，是否向下查找。
返回值
搜索文本中第一个字符的位置，如果未找到文本，则返回 -1。
<blockquote>
查找范围只在当前页面内。文本索引值从 0 开始的，-1 是页面的结尾。
</blockquote>
<h3 id="tsearchoption">TSearchOption</h3>
<pre><code class="language-delphi">type TSearchOption = (seCaseSensitive, seWholeWord, seConsecutive);
</code></pre>
<h3 id="tsearchoptions">TSearchOptions</h3>
<pre><code class="language-delphi">type TSearchOptions = set of TSearchOption;
</code></pre>
搜索标志。
<ul>
<li>seCaseSensitive 区分大小写</li>
<li>seWholeWord 匹配整个单词</li>
<li>seConsecutive 不要跳过当前匹配来寻找下一个匹配</li>
</ul>
<h3 id="tpdfviewfindnext">TPdfView.FindNext</h3>
<pre><code class="language-delphi">function FindNext: Integer;
</code></pre>
从页面开始到结束的方向进行搜索。
返回值
搜索文本中第一个字符的位置，如果未找到文本，则返回 -1。
<blockquote>
调用前必须使用 <code>FindFirst</code> 函数启动搜索。
</blockquote>
<h3 id="tpdfviewfindprevious">TPdfView.FindPrevious</h3>
<pre><code class="language-delphi">function FindPrevious: Integer;
</code></pre>
从页面结尾到开始的方向进行搜索。
返回值
搜索文本中第一个字符的位置，如果未找到文本，则返回 -1。
<blockquote>
调用前必须使用 <code>FindFirst</code> 函数启动搜索。
</blockquote>
<h3 id="tpdfviewpaintselection">TPdfView.PaintSelection</h3>
<pre><code class="language-delphi">procedure PaintSelection(SelectionStart, SelectionEnd: Integer; Mask: TColor);
</code></pre>
使用指定的蒙版颜色绘制选定的文本区域。
参数
SelectionStart 选定文本开始索引
SelectionEnd 选定文本结束索引
Mask 设置的颜色
<h2 id="例子">例子</h2>
<h3 id="查找文本">查找文本</h3>
在窗体上放置TPdfView组件PdfView1和TPdf组件Pdf1，并设置PdfView1的<code>Pdf</code>属性指向Pdf1
增加PdfView1的<code>OnPaint</code>事件<code>PdfView1Paint</code>
在窗体上放置TButton组件Button10 和 Button11，并设置Button10的<code>Caption</code>为开始查找 Button11的<code>Caption</code>为查找下一个
点击Button10开始查找，再点击Button11查找下一个，查找到的内容背景色变为黄色
<pre><code class="language-delphi">var
SearchStart: Integer = -1;
SearchEnd: Integer = -1;
SearchText: WString;

procedure TForm1.Button10Click(Sender: TObject);
begin
//读取pdf文件
Pdf1.FileName := 'C:\LargeFile.pdf';
//设置要查找的页
PdfView1.PageNumber := 1;
//打开PDF
PdfView1.Active := True;
//查找的内容
SearchText := '星期一';
//初始化查找信息
SearchStart := PdfView1.FindFirst(SearchText, []);
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
//只有调用FindFirst后才能调用FindNext或FindPrevious
if SearchStart = -1 then Exit;
//查找下一个
SearchStart := PdfView1.FindNext;
//查找上一个
//SearchStart := Pdf1.FindPrevious;
//如果当前页没有找到时，切换下一页继续查找
if SearchStart > -1 then
begin
//重绘页面
PdfView1.Invalidate;
end
else if PdfView1.PageNumber < PdfView1.PageCount then
begin
PdfView1.PageNumber := PdfView1.PageNumber + 1;
SearchStart := PdfView1.FindFirst(SearchText, []);
end;
end;

procedure TForm1.PdfView1Paint(Sender: TObject);
begin
if not PdfView1.Active then Exit;
if SearchStart > -1 then
begin
//计算字符长度 AnsiString字符的delphi版本，PDFium中使用的是WString类型
SearchEnd := SearchStart + Length(SearchText) - 1;
//设置背景色
PdfView1.PaintSelection(SearchStart, SearchEnd, clYellow);
end;
end;
</code></pre>
<h3 id="合并pdf">合并PDF</h3>
在窗体上放置TPdf组件Pdf1 、Pdf2和 TMemo组件Memo1
<pre><code class="language-delphi">procedure TForm1.Button12Click(Sender: TObject);
var
I: Integer;
begin
//添加要合并的PDF文档列表
Memo1.Lines.Clear;
Memo1.Lines.Add('C:\LargeFile1.pdf');
Memo1.Lines.Add('C:\LargeFile2.pdf');
Memo1.Lines.Add('C:\LargeFile3.pdf');
try
//打开第一个PDF文档
Pdf1.FileName := Memo1.Lines;
Pdf1.Active := True;
//循环文档列表
for I := 1 to Memo1.Lines.Count - 1 do
begin
 //打开要合并的PDF文档
 Pdf2.Active := False;
 Pdf2.FileName := Memo1.Lines;
 Pdf2.Active := True;
 //将要合并的PDF文档导入第一个PDF文档
 Pdf1.ImportPages(Pdf2, '1-' + IntToStr(Pdf2.PageCount), Pdf1.PageCount + 1);
end;
//保存PDF文档
Pdf1.SaveAs('C:\merge.pdf');
finally
Pdf1.Active := False;
Pdf2.Active := False;
end;
end;
</code></pre>
<h3 id="分隔pdf">分隔PDF</h3>
在窗体上放置TPdf组件Pdf1 、Pdf2
<pre><code class="language-delphi">procedure TForm1.Button13Click(Sender: TObject);
var
I: Integer;
begin
try
//读取pdf文件
Pdf2.FileName := 'C:\LargeFile.pdf';
Pdf2.PageNumber := 0;
Pdf2.Active := True;
//循环pdf页面
for I := 1 to Pdf2.PageCount do
try
 //创建导出的PDF文档
 Pdf1.CreateDocument;
 //将页面导入到创建的PDF中
 Pdf1.ImportPages(Pdf2, IntToStr(I));
 //保存PDF文档
 Pdf1.SaveAs('C:\Page_' + IntToStr(I) + '.pdf');
finally
 Pdf1.Active := False;
end;
finally
Pdf2.Active := False;
end;
end;
</code></pre> 
来源：https://www.cnblogs.com/txgh/p/15807085.html

頁: [1]

琼殿技术论坛's Archiver

delphi PDFium 编辑操作