Скачать
Компоненты VCL\Работа с PDF

:: Меню ::
:: На главную ::
:: FAQ ::
:: Заметки ::
:: Практика ::
:: Win API ::
:: Проекты ::
:: Скачать ::
:: Секреты ::
:: Ссылки ::

:: Сервис ::
:: Написать ::

:: MVP ::

:: RSS ::

Яндекс.Метрика
TPrintPDF 2.0
Компонент для создания PDF файлов из программ на Delphi.

Информация

Для использования компонента в Delphi6, в файл tnpdf.pas нужно внести следующие изменения (вставить пункт Ver140).
{$IFDEF VER140} 
  {$DEFINE DFS_DELPHI_3_UP} 
  {$DEFINE DFS_DELPHI_4_UP} 
  {$DEFINE DFS_DELPHI_5_UP} 
  {$DEFINE DFS_DELPHI_6_UP} 
{$ENDIF} 

{$IFDEF VER130} 
  {$DEFINE DFS_COMPILER_5} 
  {$DEFINE DFS_DELPHI} 
  {$DEFINE DFS_DELPHI_5} 
{$ENDIF} 

{$IFDEF VER125} 
  {$DEFINE DFS_DELPHI_3_UP} 
  {$DEFINE DFS_DELPHI_4_UP} 
  {$DEFINE DFS_DELPHI_5_UP} 
{$ENDIF} 

{$IFDEF VER120} 
  {$DEFINE DFS_DELPHI_3_UP} 
  {$DEFINE DFS_DELPHI_4_UP} 
{$ENDIF} 

{$IFDEF VER100} 
  {$DEFINE DFS_DELPHI_3_UP} 
{$ENDIF}
Пример использования
procedure TForm1.Button1Click(Sender:TObject);
var
  pdf: TPrintPDF;
begin
   pdf := TPrintPDF.Create( Self );
   with pdf do
   begin
      FileName := 'c:\MyPDF.pdf'; // Имя файла
      Title := 'PDF title'; // Заголовок документа
      PageWidth := 400; // Ширина страницы
      PageHeight := 500; // Высота страницы
      BeginDoc; // Начало документа
      LineWidth := 1; //Установим строку
      // Установим шрифт
      Font.Name := poTimesRoman;
      Font.Size := 12;
      MemoOut( 10, 10, Memo1 ); // Записываем содержание Memo
      NewPage; // Начинаем новую страницу
      Draw( 10, 10, Image1 ); // Рисуем изображение по координатам x, y
      NewPage;
      TextOut( 10, 10, 'This is the end...' ); // Выводим строку
      EndDoc; // Конец документа
      Free; // Освобождаем объект PDF
   end;
end;
Скачать. 330kb ZIP

PowerPDF 0.9 (beta) D2007-DXE3
PowerPDF представляет собой набор визуальных компонентов для создания PDF-документов. В набор входит несколько компонентов, таких как TPDFImage, TPDFText, TPDFAnnotation и т.д. После установки компонентов на палитре появится закладка PowerPDF с которой нам и предстоит в дальнейшем работать. В комплекте с компонентом имеются примеры.
Скачать. 503kb ZIP

Synopse PDF Engine 1.18 (5-XE3)
Возможности компонента:
  • Чистый Delphi-код без использования сторонних DLL;
  • Маленький размер создаваемых pdf-файлов;
  • Быстрая генерация pdf с минимальным использованием памяти;
  • Доступ к TCanvas для рисования линий, кривых, текста и т.д;
  • Поддержка Unicode;
  • Создание PDF/A-1 файлов.
Пример использования
uses
  {...,} SynPdf;

procedure TForm1.Button1Click(Sender:TObject);
var
  lPdf: TPdfDocument;
begin
   lPdf := TPdfDocument.Create; // Создание документа
   try
      lPdf.Info.Author := 'Tester'; // Автор
      lPdf.Info.CreationDate := Now; // Дата создания документа
      lPdf.DefaultPaperSize := psA4; // Формат страниц (А4)
      lPDF.AddPage; // Добавление страницы в документ
      lPDF.Canvas.SetFont( 'Helvetica', 10.0, [] ); // Параметры шрифта
      {запись текста в документ}
      lPdf.Canvas.BeginText;
      try
         lPdf.Canvas.TextOutW( 0, 700,  'Это текст в PDF-документе...' );
         lPdf.Canvas.TextOutW( 0, 686,  'Это текст на другой строке в PDF-документе...' );
      finally
         lPdf.Canvas.EndText;
      end;
      // Сохранение полученного файла
      lPdf.SaveToFile( 'c:\temp\test.pdf' );
   finally
      lPdf.Free;
   end;
end;
Скачать. 626.3kb ZIP