Карта сайтаСсылкиКонтакты

Создание PDF документов в Delphi

PDF Печать
Статьи

Есть много компонентов для создания PDF документов, но к сожалению они все платные.

Этот компонент разработан K. Nishita и Вы можете его загрузить отсюда.

Давайте посмотрим, как создать простой PDF документ.

Поместите на форму TMemo, TImage и TButton. Напишите что-нибудь в Memo и загрузите какое-нибудь изображение в TImage.

Мы создадим простой документ с текстом и изображением. В событие щелчка кнопки, мы запишем:


procedure TForm1.Button1Click(Sender:TObject);
var
   p: TPrintPDF;
begin
//Сначала создадим PDF объект
p:= TPrintPDF.Create(Self);
with p do
   begin

   FileName:= 'c:\test.pdf';  //имя PDF файла

   Title:= 'The PDF Demo'; //установим заголовок документа

   //Теперь установим высоту/ширину страницы
   PageWidth:= 600;
   PageHeight:= 700;

   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;

Очень просто! И абсолютно бесплатно!

Если Вы хотите использовать файл tnpdf.pas с Delphi6, Вы должны сделать следующие изменения:(вставить пункт 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} 

По материалам сайта www.delphi3000.com


 

Добавить комментарий


Защитный код
Обновить