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;Вернуться в Сторонние средства
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1