|
:: 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 |
|
