Haru Free PDF Library
есть пример использования на фрипаскале
Модератор: Модераторы
Troublemaker писал(а):PDF-creator
ViruZ писал(а):В Винде уже давно использую полностью БЕСПЛАТНЫЙ doPDF - документы генерятся отлично и без всяких проблем, есть дополнительные настройки.
procedure make_pdf();
const
fname: string = 'LineDemo.pdf';
var
pdf: HPDF_Doc;
font: HPDF_Font;
page: HPDF_Page;
x: Double;
y: Double;
tw: Single;
begin
pdf := HPDF_New(@error_handler, nil);
if pdf = nil then
begin
WriteLn('error: cannot create PdfDoc object\n');
Halt(1);
end;
try
HPDF_SetCompressionMode(pdf, HPDF_COMP_ALL);
{* create default-font *}
font := HPDF_GetFont(pdf, HPDF_LoadTTFontFromFile(pdf,'arial.ttf',1), 'CP1251');
{* add a new page object. *}
page := HPDF_AddPage(pdf);
{* print the title of the page (with positioning center). *}
HPDF_Page_SetFontAndSize(page, font, 8);
HPDF_Page_SetCMYKFill(page, 0.2, 0, 0, 0);
HPDF_Page_SetCMYKStroke(page, 0, 0, 0, 1);
HPDF_Page_Rectangle(page, 0, 0, 100, 100);
HPDF_Page_FillStroke(page);
HPDF_Page_SetCMYKFill(page, 0, 0, 0, 1);
HPDF_Page_BeginText(page);
HPDF_Page_SetHorizontalScalling(page, 40);
HPDF_Page_TextOut(page, 10, 50, 'ertret Бла-бла');
HPDF_Page_SetHorizontalScalling(page, 300);
HPDF_Page_TextOut(page, 10, 10, 'retret Бла-бла');
HPDF_Page_EndText(page);
{* save the document to a file *}
HPDF_SaveToFile(pdf, PChar(fname));
except
on e: Exception do
begin
Writeln(e.message);
HPDF_Free(pdf);
Halt(1);
end;
end;
{* clean up *}
HPDF_Free(pdf);
end;
Вернуться в Сторонние средства
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 7