Synpdf Delphi Примеры

Для работы с PDF-файлами в Delphi можно использовать библиотеку SynPDF, которая предоставляет широкие возможности для создания, просмотра и редактирования PDF. Напишем примеры использования этой библиотеки:

Пример 1. Создание нового документа:

var  pdf: TSynPDF;begin  pdf := TSynPDF.Create;  try    pdf.BeginDocument;    //добавление страницы и элементов на страницу    pdf.EndDocument;    //сохранение документа в файл    pdf.SaveToFile('example.pdf');  finally    pdf.Free;  end;

Пример 2. Добавление текста на страницу:

var  pdf: TSynPDF;begin  pdf := TSynPDF.Create;  try    pdf.BeginDocument;    pdf.AddPage;    pdf.SetFont('Arial',10);    pdf.TextOut(50,50,'Привет, мир!');    pdf.EndDocument;    pdf.SaveToFile('example.pdf');  finally    pdf.Free;  end;

Пример 3. Добавление изображения:

var  pdf: TSynPDF;  img: TGraphic;begin  img := TBitmap.Create;  try    img.LoadFromFile('image.bmp');    pdf := TSynPDF.Create;    try      pdf.BeginDocument;      pdf.AddPage;      pdf.DrawGraphic(img,0,0,0,0);      pdf.EndDocument;      pdf.SaveToFile('example.pdf');    finally      pdf.Free;    end;  finally    img.Free;  end;

Пример 4. Добавление таблицы:

var  pdf: TSynPDF;  table: TSynTable;begin  pdf := TSynPDF.Create;  table := TSynTable.Create;  try    pdf.BeginDocument;    pdf.AddPage;    //задание формата таблицы    table.BorderColor := clBlack;    table.HeaderFont.Bold := True;    table.HeaderFillColor := clSilver;    //добавление заголовков    table.AddColumn('№',30,alRight);    table.AddColumn('Название',200);    table.AddColumn('Цена',70,alRight);    table.AddColumn('Количество',70,alRight);    //добавление строк    table.AddRow;    table.AddTextCell('1');    table.AddTextCell('Продукт 1');    table.AddTextCell('100');    table.AddTextCell('1');    table.AddRow;    table.AddTextCell('2');    table.AddTextCell('Продукт 2');    table.AddTextCell('200');    table.AddTextCell('2');    //вывод таблицы на странице    table.DrawOn(pdf);    pdf.EndDocument;    pdf.SaveToFile('example.pdf');  finally    pdf.Free;    table.Free;  end;

Пример 5. Изменение существующего документа:

var  pdf: TSynPDF;  x,y: Single;begin  pdf := TSynPDF.Create;  try    pdf.LoadFromFile('document.pdf');    pdf.BeginUpdate;    //находим координаты на странице для добавления текста    x := pdf.PageWidth / 2;    y := pdf.PageHeight - 50;    pdf.SetFont('Arial',12);    pdf.TextOut(x,y,'Новый текст');    pdf.EndUpdate;    pdf.SaveToFile('document_updated.pdf');  finally    pdf.Free;  end;