Objektinstanz-Zustandsverwaltung und Dateikonfliktvermeidung Entdecken Sie, wie Sie den Fehler “Bitte laden Sie das Dokument vor der Verwendung von BeginDoc” bei der Verwendung der HotPDF Delphi-Komponente lösen und PDF-Dateizugriffskonflikte durch strategische Zustandsverwaltung und automatisierte Fenstererkennung eliminieren können. Architekturübersicht der HotPDF-Komponentenfixes: Zustandsreset…
Object Instance State Management and File Conflict Resolution Discover how to solve the “Please load the document before using BeginDoc” error while using HotPDF Delphi Component and eliminate PDF file access conflicts through strategic state management and automated window enumeration…
HotPDF Komponente Delphi TextOut Beispiel – Schriftarten und Zeichensätze Dieses umfassende HotPDF Komponente TextOut Beispiel demonstriert erweiterte Schriftbehandlung, Zeichensatzunterstützung, Textskalierung, Abstandsanpassungen und Rendering-Modi. Das Beispiel generiert detaillierte Schrift- und Zeichensatzdemonstrationen mit praktischen Beispielen für PDF-Generierung in Delphi-Anwendungen. Schriftfamilien-Demonstration mit Arial,…
This example shows you how to programmatically New and Free a HotPDF object instance with C++Builder.
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#include
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma link "HPDFDoc"
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
THotPDF* HotPDF1 = new THotPDF(this);
HotPDF1->FileName = "HelloWorld.pdf";
HotPDF1->AutoLaunch = true;
HotPDF1->BeginDoc(false);
HotPDF1->CurrentPage->PrintText( 10, 10, 0, "Hello World!" );
HotPDF1->EndDoc();
HotPDF1->Free();
}
|
You need to set the include & library path of the project to the directory where HotPDF library files exist.
HotPDF Component Database Table To PDF sample
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
program TableDemo;
{$APPTYPE CONSOLE}
{ Reduce EXE size by disabling as much of RTTI as possible }
{$IFDEF VER210}
{$WEAKLINKRTTI ON}
{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}
{$ENDIF}
uses
{$IFDEF VER230}System.Classes, System.SysUtils, Vcl.Graphics, DB, DBTables,
{$ELSE} Classes, SysUtils, Graphics, DB, DBTables,
{$ENDIF} HPDFDoc;
var
HotPDF: THotPDF;
PageNum, VertPos: Integer;
CustomerTable: TTable;
Back: boolean;
procedure PrintRow(Position: Integer; No, Company, Addr, City: AnsiString; ShowBackground: boolean);
begin
if ShowBackground then
begin
HotPDF.CurrentPage.SetRGBColor($FFF3DD);
HotPDF.CurrentPage.Rectangle(50, Position, 520, 20);
HotPDF.CurrentPage.Fill;
HotPDF.CurrentPage.SetRGBColor(clBlack);
end;
HotPDF.CurrentPage.TextOut(70, Position, 0, No);
HotPDF.CurrentPage.TextOut(110, Position, 0, Company);
HotPDF.CurrentPage.TextOut(300, Position, 0, Addr);
HotPDF.CurrentPage.TextOut(480, Position, 0, City);
end;
procedure PreparePage;
begin
HotPDF.CurrentPage.SetFont('Arial', [fsItalic], 10);
HotPDF.CurrentPage.TextOut(50, VertPos, 0, 'customer.db' + ' Page' + AnsiString(IntToStr(PageNum)));
HotPDF.CurrentPage.TextOut(480, VertPos, 0, AnsiString(DateTimeToStr(Now)));
HotPDF.CurrentPage.MoveTo(50, VertPos + 15);
HotPDF.CurrentPage.LineTo(570, VertPos + 15);
HotPDF.CurrentPage.MoveTo(50, VertPos + 45);
HotPDF.CurrentPage.LineTo(570, VertPos + 45);
HotPDF.CurrentPage.Stroke;
HotPDF.CurrentPage.SetFont('Times New Roman', [fsItalic, fsBold], 12);
HotPDF.CurrentPage.SetRGBFillColor(clNavy);
PrintRow(VertPos + 25, 'No', 'Company', 'Addr', 'City', false);
HotPDF.CurrentPage.SetRGBFillColor(clBlack);
Inc(VertPos, 20);
end;
begin
CustomerTable := TTable.Create(nil);
try
CustomerTable.DatabaseName := 'DBDEMOS';
CustomerTable.TableName := GetCurrentDir + '\customer.db';
CustomerTable.Active := true;
CustomerTable.First;
HotPDF := THotPDF.Create(nil);
try
HotPDF.AutoLaunch := true;
HotPDF.FileName := 'TableDemo.pdf';
HotPDF.PageLayout := plOneColumn;
HotPDF.BeginDoc;
HotPDF.CurrentPage.SetFont('Arial', [fsBold], 24);
HotPDF.CurrentPage.TextOut(200, 20, 0, 'Customer report'); // Print PDF header
PageNum := 1;
VertPos := 60;
PreparePage; // Table header
Back := true;
while (not(CustomerTable.Eof)) do
begin
Back := not(Back);
if (VertPos > 700) then // If end of page then
begin
HotPDF.AddPage; // Add page, draw and print
Inc(PageNum); // table header and set
VertPos := 60; // new print position
PreparePage;
end;
PrintRow(VertPos + 25, // print row from the current position
AnsiString(CustomerTable.FieldValues['CustNo']), AnsiString(CustomerTable.FieldValues['Company']),
AnsiString(CustomerTable.FieldValues['Addr1']), AnsiString(CustomerTable.FieldValues['City']), Back);
Inc(VertPos, 20);
CustomerTable.Next;
end;
HotPDF.EndDoc;
finally
HotPDF.Free;
end;
finally
CustomerTable.Free;
end;
end.
|
Implementing 22 Barcode Types with HotPDF Delphi Component In today’s digital world, barcodes serve as the backbone of inventory management, retail operations, and data tracking systems. The ability to generate professional PDF documents containing various barcode types has become essential…
Mastering PDF Annotations with HotPDF Component PDF annotations are one of the most powerful features for creating interactive and collaborative documents. They allow users to add comments, highlights, stamps, and multimedia content directly to PDF files without modifying the original…