Skapa PDF-dokument från grunden med PDFium VCL i Delphi

Även om PDFium främst är känt för PDF-visning och -manipulation, erbjuder PDFium VCL också kraftfulla PDF-skapande funktioner. Den Skapa PDF demo visar hur man genererar PDF-dokument programmatiskt med text, former, tabeller och vattenstämplar.

Översikt

Denna demo skapar ett nytt PDF-dokument med olika element, inklusive formaterad text, geometriska former, en enkel tabell och en diagonal vattenstämpel. Det visar kärnan för PDF-skapande API:er som är tillgängliga i PDFium VCL.

Nyckelfunktioner

Skapa nya dokument – Skapa PDF-filer från grunden
Lägg till text – Infoga formaterad text med anpassade teckensnitt, storlekar och färger
Rita former – Skapa rektanglar, banor och andra geometriska former
Bygg tabeller – Skapa enkla textbaserade tabeller
Lägg till vattenstämplar – Infoga roterad, halvtransparent text

PDFium DLL-krav

Innan du kör ett PDFium VCL-program, se till att PDFium DLL-filerna är installerade:

pdfium32.dll / pdfium64.dll – Standardversioner (~5-6 MB)
pdfium32v8.dll / pdfium64v8.dll – Med V8 JavaScript-motor (~23-27 MB)

Installation: Kör PDFiumVCL\DLLs\CopyDlls.bat som administratör för att automatiskt kopiera DLL:erna till Windows systemkataloger.

Skapa ett nytt PDF-dokument

procedure CreateNewPdf;

var

Pdf: TPdf;

begin

Pdf := TPdf.Create(nil);

try

// Create empty document

Pdf.CreateDocument;

Pdf.Active := True;

// Add first page (A4 size: 595 x 842 points)

Pdf.AddPage(1, 595, 842);

Pdf.PageNumber := 1;

// Add content here...

// Save the document

Pdf.SaveAs('output.pdf');

finally

Pdf.Active := False;

Pdf.Free;

end;

Lägger till text

Den AddText metod lägger till formaterad text till den aktuella sidan:

procedure TPdf.AddText(

const Text, Font: WString; // Text content and font name

FontSize: Single; // Font size in points

X, Y: Double; // Position (from bottom-left)

Color: TColor = clBlack; // Text color

Alpha: Byte = $FF; // Transparency (0-255)

Angle: Double = 0.0 // Rotation angle in degrees

);

// Examples

Pdf.AddText('Hello World', 'Arial', 24, 50, 750, clBlack, $FF, 0.0);

Pdf.AddText('Subtitle', 'Times New Roman', 14, 50, 720, clGray, $FF, 0.0);

Pdf.AddText('Rotated Text', 'Arial', 18, 300, 400, clRed, $80, 45.0);

Komplett PDF-skapande exempel

procedure TFormMain.CreateSimplePDF;

begin

Pdf.CreateDocument;

Pdf.Active := True;

try

// Add A4 page

Pdf.AddPage(0, 595, 842);

// Title

Pdf.AddText(EditTitle.Text, 'Arial', 18, 50, 750, clBlack, $FF, 0.0);

// Author line

Pdf.AddText('By: ' + EditAuthor.Text, 'Arial', 12, 50, 720, clGray, $FF, 0.0);

// Body text

Pdf.AddText('This is a simple PDF document created with PDFium VCL.',

'Arial', 12, 50, 680, clBlack, $FF, 0.0);

Pdf.AddText('You can add various elements to your PDF:',

'Arial', 12, 50, 650, clBlack, $FF, 0.0);

// Optional features

if CheckShapes.Checked then

AddShapes;

if CheckTable.Checked then

AddTable;

if CheckWatermark.Checked then

AddWatermark;

// Save

Pdf.SaveAs('Sample.pdf');

finally

Pdf.Active := False;

end;

Rita former med CreatePath

// Create a path starting at (X, Y)

procedure TPdf.CreatePath(

X, Y: Single; // Starting point

FillMode: TPdfFillMode = fmNone; // None, Alternate, or Winding

FillColor: TColor = clBlack; // Fill color

FillAlpha: Byte = $FF; // Fill transparency

Stroke: Boolean = True; // Draw outline

StrokeColor: TColor = clBlack; // Outline color

StrokeAlpha: Byte = $FF; // Outline transparency

StrokeWidth: Single = 1.0; // Line width

LineCap: TPdfLineCap = lcDefault; // Line end style

LineJoin: TPdfLineJoin = ljDefault; // Line join style

BlendMode: TPdfBlendMode = bmDefault // Color blending

);

// Create a rectangle path

procedure TPdf.CreatePath(

X, Y, Width, Height: Single; // Rectangle bounds

// Same optional parameters as above...

);

Exempel på formritning

procedure TFormMain.AddShapes;

begin

// Filled rectangle with blue color at 50% opacity

Pdf.CreatePath(100, 550, 150, 80, fmWinding, $FFCCAA, $80);

Pdf.AddPath;

Pdf.AddText('Rectangle', 'Arial', 10, 120, 580, clBlack, $FF, 0.0);

// Another filled shape (green)

Pdf.CreatePath(350, 590, 80, 80, fmWinding, $CCFFCC, $80);

Pdf.AddPath;

Pdf.AddText('Shape', 'Arial', 10, 370, 580, clBlack, $FF, 0.0);

end;

Skapa komplexa vägar

procedure DrawTriangle(Pdf: TPdf);

begin

// Start path at first vertex

Pdf.CreatePath(200, 300, fmWinding, clBlue, $80, True, clNavy, $FF, 2.0);

// Draw lines to other vertices

Pdf.LineTo(300, 300);

Pdf.LineTo(250, 400);

// Close the path

Pdf.ClosePath;

// Add to page

Pdf.AddPath;

end;

procedure DrawCurve(Pdf: TPdf);

begin

Pdf.CreatePath(100, 200, fmNone, clBlack, $FF, True, clRed, $FF, 2.0);

Pdf.MoveTo(100, 200);

// Bezier curve with control points

Pdf.BezierTo(

150, 250, // Control point 1

200, 250, // Control point 2

250, 200 // End point

);

Pdf.AddPath;

end;

Bygga enkla tabeller

procedure TFormMain.AddTable;

var

X, Y: Double;

I: Integer;

begin

X := 100;

Y := 450;

// Table header

Pdf.AddText('Item', 'Arial', 10, X, Y, clBlack, $FF, 0.0);

Pdf.AddText('Quantity', 'Arial', 10, X + 100, Y, clBlack, $FF, 0.0);

Pdf.AddText('Price', 'Arial', 10, X + 200, Y, clBlack, $FF, 0.0);

// Draw header underline

Pdf.CreatePath(X, Y - 5, 250, 0.5, fmNone, clBlack, $FF,

True, clBlack, $FF, 1.0);

Pdf.AddPath;

// Table rows

for I := 1 to 3 do

begin

Y := Y - 20;

Pdf.AddText('Item ' + IntToStr(I), 'Arial', 9, X, Y, clBlack, $FF, 0.0);

Pdf.AddText(IntToStr(I), 'Arial', 9, X + 100, Y, clBlack, $FF, 0.0);

Pdf.AddText('$' + IntToStr(I * 10) + '.00', 'Arial', 9,

X + 200, Y, clBlack, $FF, 0.0);

end;

Lägga till vattenstämplar

procedure TFormMain.AddWatermark;

begin

// Large, semi-transparent, rotated text

Pdf.AddText('SAMPLE', 'Arial', 72, 200, 200, clGray, $30, 45.0);

end;

// More sophisticated watermark

procedure AddDiagonalWatermark(Pdf: TPdf; const Text: string);

begin

// Center of A4 page

Pdf.AddText(Text, 'Arial', 60,

595 / 2 - 100, // X centered

842 / 2, // Y centered

$CCCCCC, // Light gray

$40, // 25% opacity

45.0 // 45 degree rotation

);

end;

Lägga till bilder

procedure AddImageToPdf(Pdf: TPdf; const ImageFile: string);

var

Picture: TPicture;

begin

Picture := TPicture.Create;

try

Picture.LoadFromFile(ImageFile);

// Add at position with automatic sizing

Pdf.AddPicture(Picture, 50, 400);

// Or with specific dimensions

Pdf.AddPicture(Picture, 50, 400, 200, 150);

finally

Picture.Free;

end;

Flersidiga dokument

procedure CreateMultiPagePdf;

var

Pdf: TPdf;

I: Integer;

begin

Pdf := TPdf.Create(nil);

try

Pdf.CreateDocument;

Pdf.Active := True;

for I := 1 to 5 do

begin

// Add page

Pdf.AddPage(I, 595, 842);

Pdf.PageNumber := I;

// Add content

Pdf.AddText('Page ' + IntToStr(I), 'Arial', 24,

250, 400, clBlack, $FF, 0.0);

end;

Pdf.SaveAs('multipage.pdf');

finally

Pdf.Active := False;

Pdf.Free;

end;

Sidstorlekar

Format	Bredd (poäng)	Höjd (poäng)
A4 porträtt	595	842
A4 Landskap	842	595
Bokstavsporträtt	612	792
Bokstavslandskap	792	612
Juridisk porträtt	612	1008

Användningsfall

Rapportgenerering – Skapa formaterade rapporter från data
Skapa faktura – Skapa fakturor och kvitton
Certifikatgenerering – Skapa certifikat med mallar
Dokumentmallar – Fyll mallar med dynamiskt innehåll

Slutsats

Skapa PDF-demon visar att PDFium VCL inte bara är till för visning – det är en komplett PDF-verktygslåda. Med stöd för text, former, bilder och flersidiga dokument kan du generera professionella PDF-filer helt från kod.

I kombination med komponentens visnings- och manipuleringsmöjligheter ger PDFium VCL allt du behöver för omfattande PDF-hantering i Delphi-applikationer.

Utforska PDF-skapande med PDFium VCL-komponent och skapa dynamisk dokumentgenerering till dina applikationer.