delphi llPDFLib 操作PDF

武装大熊猫 發表於 2022-2-17 14:46:00

<h1 id="llpdflib--操作pdf">llPDFLib操作PDF</h1>
<h2 id="属性和方法">属性和方法</h2>
<h3 id="tpdfcanvassetactivefont">TPDFCanvas.SetActiveFont</h3>
<pre><code class="language-delphi">procedure SetActiveFont(FontName: AnsiString; FontStyle: TFontStyles; FontSize: Extended; FontCharset: TFontCharset = ANSI_CHARSET); overload;
</code></pre>
设置文本操作的活动truetype字体。llPDFLib模拟 fsUnderLine 和 fsStrikeOut 样式。如果字体没有 fsBold 或 fsItalic 样式，llPDFLib也会模拟它。
参数
FontNametruetype字体的名称。
FontStyle字体的样式。
FontSize字体大小。
FontCharsetCharset，用于ansi字符串。 默认值 ANSI_CHARSET。
<h3 id="tpdfcanvastextout">TPDFCanvas.TextOut</h3>
<pre><code class="language-delphi">procedure TextOut(X: Extended; Y: Extended; Orientation: Extended; TextStr: AnsiString); overload;
</code></pre>
文本字符串输出。
参数
X文本输出起始点的X坐标。
Y文本输出起始点的Y坐标。
Orientation文本方向。
TextStr要输出的文本字符串。
<h3 id="tpdfcanvassetcolor">TPDFCanvas.SetColor</h3>
<pre><code class="language-delphi">procedure SetColor(Color: TPDFColor);
</code></pre>
设置闭合区域的填充颜色和线条的颜色。
参数
Color填充和线条的颜色。
<h3 id="tpdfcanvassetcolorfill">TPDFCanvas.SetColorFill</h3>
<pre><code class="language-delphi">procedure SetColorFill(Color: TPDFColor);
</code></pre>
设置闭合区域的填充颜色。
参数
Color填充的颜色。
<h3 id="tpdfcanvassetlinewidth">TPDFCanvas.SetLineWidth</h3>
<pre><code class="language-delphi">procedure SetLineWidth(lw: Extended);
</code></pre>
将当前线宽设置为以点为单位指定的值。
参数
lw新线宽。
<h3 id="tpdfcanvasrectangle">TPDFCanvas.Rectangle</h3>
<pre><code class="language-delphi">procedure Rectangle(X1: Extended; Y1: Extended; X2: Extended; Y2: Extended);
</code></pre>
绘制一个矩形，其中左上角位于( X1 , Y1 )，右下角位于( X2 , Y2 )。
参数
X1矩形左上角的X坐标。
Y1矩形左上角的Y坐标。
X2矩形右下角的X坐标。
Y2矩形右下角的Y坐标。
<h3 id="tpdfcanvasstroke">TPDFCanvas.Stroke</h3>
<pre><code class="language-delphi">procedure Stroke;
</code></pre>
通过当画笔颜色和当前线宽描边当前路径。
<h3 id="tpdfcanvasfillandstroke">TPDFCanvas.FillAndStroke</h3>
<pre><code class="language-delphi">procedure FillAndStroke;
</code></pre>
首先使用当前填充颜色填充内部，然后使用当前画笔颜色描边路径。PDF的图形状态为填充和描边操作保留了不同的颜色，因此可以使用这些组合操作符。
<h3 id="tpdfcanvasshowimage">TPDFCanvas.ShowImage</h3>
<pre><code class="language-delphi">procedure ShowImage(ImageIndex: Integer; X: Extended; Y: Extended); overload;
</code></pre>
在画布上显示图像。
参数
ImageIndex生成的图像中的图像索引。
X矩形左上角的X坐标。
Y矩形左上角的Y坐标。
<h3 id="tpdfimagesaddimage">TPDFImages.AddImage</h3>
<pre><code class="language-delphi">function AddImage(FileName: TFileName; Compression: TImageCompressionType): Integer; overload;
function AddImage(Image: TGraphic; Compression: TImageCompressionType): Integer; overload;
</code></pre>
根据压缩类型将文件中的图像或<code>TGraphic</code>中的图像添加到生成的文档中。目前支持bmp（<code>TBitmap</code>）和jpeg（<code>TJPegImage</code>）格式。
参数
FileName要插入到文档中的图像的文件名。
Image要插入到文档中的图像的对象。
Compression压缩类型，将图像保存在文档中。
返回值
返回保存在文档图像中的索引。
<blockquote>
由于图像可能会占用很大的尺寸，因此会立即将其写入生成的输出流或文件。
</blockquote>
<h3 id="llpdfcanvascolortopdfcolor">llPDFCanvas.ColorToPDFColor</h3>
<pre><code class="language-delphi">function ColorToPDFColor(Color: TColor): TPDFColor;
</code></pre>
将TColor转换为PDFColor的函数。
参数
Color颜色。
<h3 id="timagecompressiontype">TImageCompressionType</h3>
指定PDF文档中图像的存储类型
unit
llPDFTypes
<pre><code class="language-delphi">TImageCompressionType = (
itcFlate,
itcJpeg,
itcCCITT3,
itcCCITT32d,
itcCCITT4,
itcJBIG2
);
</code></pre>
<ul>
<li>itcFlateFlate 压缩（可用于黑白和彩色图像）</li>
<li>itcJpegJpeg 压缩（可用于黑白和彩色图像）</li>
<li>itcCCITT3CCITT3（仅适用于黑白图像）</li>
<li>itcCCITT32dCCITT32d（仅适用于黑白图像）</li>
<li>itcCCITT4CCITT4（仅适用于黑白图像）</li>
<li>itcJBIG2JBIG2（用于扫描页面的黑白图像）</li>
</ul>
<h3 id="tpdfcolor">TPDFColor</h3>
确定绘制图形基元时使用的色彩空间和颜色。
unit
llPDFTypes
<pre><code class="language-delphi">TPDFColor = record
ColorSpace: TPDFColorSpace;
case TPDFColorSpace of
csCMYK: (Cyan: Extended;
 Magenta: Extended;
 Yellow: Extended;
 Key: Extended;);
csGray: (Gray: Extended;);
csRGB: (Red: Extended;
 Green: Extended;
 Blue: Extended;);
end;
</code></pre>
<h2 id="例子">例子</h2>
<h3 id="输出文字">输出文字</h3>
<pre><code class="language-delphi">uses llPDFDocument, llPDFCanvas;

procedure TForm1.Button5Click(Sender: TObject);
var
Pdf: TPDFDocument;
begin
Pdf := TPDFDocument.Create(nil);
try
//创建PDF文档
Pdf.AutoLaunch := True;
Pdf.FileName := 'C:\Users\Administrator\Desktop\ceshi.pdf';
Pdf.BeginDoc;
with Pdf.CurrentPage do
begin
 //设置字体
 SetActiveFont('宋体', , 20, GB2312_CHARSET);
 //设置字体颜色
 SetColor(ColorToPDFColor(clBlue));
 //输出内容
 TextOut(100, 100, 0, '文本内容');
end;
Pdf.EndDoc;
finally
Pdf.Free;
end;
end;
</code></pre>
<h3 id="输出矩形">输出矩形</h3>
<pre><code class="language-delphi">uses llPDFDocument, llPDFCanvas;

procedure TForm1.Button6Click(Sender: TObject);
var
Pdf: TPDFDocument;
begin
Pdf := TPDFDocument.Create(nil);
try
//创建PDF文档
Pdf.AutoLaunch := True;
Pdf.FileName := 'C:\Users\Administrator\Desktop\ceshi.pdf';
Pdf.BeginDoc;
with Pdf.CurrentPage do
begin
 //设置颜色
 SetColor(ColorToPDFColor(clRed));
 SetColorFill(ColorToPDFColor(clYellow));
 //设置宽度
 SetLineWidth(1);
 //画矩形
 Rectangle(100, 100, 250, 175);
 Stroke;
 //填充矩形
 Rectangle(100, 200, 200, 300);
 FillAndStroke;
end;
Pdf.EndDoc;
finally
Pdf.Free;
end;
end;
</code></pre>
<h3 id="插入图片">插入图片</h3>
<pre><code class="language-delphi">uses llPDFDocument, llPDFTypes;

procedure TForm1.Button8Click(Sender: TObject);
var
Pdf: TPDFDocument;
Bmp1, Bmp2: Integer;
begin
Pdf := TPDFDocument.Create(nil);
try
//创建PDF文档
Pdf.AutoLaunch := True;
Pdf.FileName := 'C:\Users\Administrator\Desktop\ceshi.pdf';
Pdf.BeginDoc;
Bmp1 := Pdf.Images.AddImage('C:\Users\Administrator\Desktop\bmp0001.bmp', itcJpeg);
Bmp2 := Pdf.Images.AddImage('C:\Users\Administrator\Desktop\bmp0002.bmp', itcJpeg);
with Pdf.CurrentPage do
begin
 ShowImage(Bmp1, 10, 50);
 ShowImage(Bmp2, 10, 200);
end;
Pdf.EndDoc;
finally
Pdf.Free;
end;
end;
</code></pre> 
来源：https://www.cnblogs.com/txgh/p/15904614.html

頁: [1]

琼殿技术论坛's Archiver

delphi llPDFLib 操作PDF