Освоение PDF-аннотаций с компонентом HotPDF

PDF-аннотации являются одной из самых мощных функций для создания интерактивных и совместных документов. Они позволяют пользователям добавлять комментарии, выделения, штампы и мультимедийный контент непосредственно в PDF-файлы без изменения исходной структуры документа. Это всеобъемлющее руководство исследует, как реализовать различные типы PDF-аннотаций с использованием компонента HotPDF, охватывая все от базовых текстовых аннотаций до продвинутых мультимедийных вложений.

Понимание PDF-аннотаций: больше чем просто комментарии

PDF-аннотации – это объекты, которые могут быть добавлены на страницы PDF для предоставления дополнительной информации, интерактивности или визуальных улучшений. В отличие от обычного содержимого страницы, аннотации хранятся как отдельные объекты, которые могут быть показаны или скрыты, отредактированы или удалены без влияния на базовую структуру документа. Это делает их идеальными для:

Рецензирования документов: Добавление комментариев, заметок и отзывов
Улучшения форм: Создание интерактивных элементов и справочного текста
Интеграции мультимедиа: Встраивание аудио, видео и файловых вложений
Визуальной разметки: Выделение важных разделов штампами и фигурами
Совместных рабочих процессов: Позволение нескольким пользователям вносить вклад без конфликтов

HotPDF Component PDF Annotations Delphi Sample — PDF-документ, созданный примером проекта PDF-аннотаций компонента HotPDF на Delphi

Быстрый старт: простой пример текстовой аннотации

Давайте начнем с базового примера текстовой аннотации, чтобы понять основные концепции PDF-аннотаций:

program SimpleAnnotation;
{$I ..\..\..\Lib\HotPDF.inc}
{$APPTYPE CONSOLE}

uses
  {$IFDEF XE2+}
  System.Classes,
  System.SysUtils,
  Vcl.Graphics,
  {$ELSE}
  Classes,
  SysUtils,
  Graphics,
  {$ENDIF}
  HPDFDoc;

var
  HotPDF: THotPDF;
begin
  HotPDF := THotPDF.Create(nil);
  try
    // Настройка базовых свойств PDF
    HotPDF.FileName := 'SimpleAnnotation.pdf';
    HotPDF.Title := 'Simple Annotation Demo';
    HotPDF.Author := 'HotPDF Component';
    
    // Установка встраивания шрифтов для согласованного отображения
    HotPDF.FontEmbedding := True;
    
    HotPDF.BeginDoc;
    
    // Установка шрифта
    HotPDF.CurrentPage.SetFont('Arial', [], 12, 0, False);
    
    // Добавление содержимого страницы
    HotPDF.CurrentPage.TextOut(120, 65, 0, 'Нажмите на значок аннотации:');
    
    // Добавление многоязычных текстовых аннотаций
    HotPDF.CurrentPage.AddTextAnnotation(
      'Это текстовая аннотация.' + #13#10 +
      'Dies ist eine Textanmerkung.' + #13#10 +
      'Ceci est une annotation textuelle.' + #13#10 +
      'This is a text annotation.',
      Rect(120, 80, 140, 100), True, taComment, clBlue
    );
    
    HotPDF.EndDoc;
  finally
    HotPDF.Free;
  end;
end.

program SimpleAnnotation;

{$I ..\..\..\Lib\HotPDF.inc}

{$APPTYPE CONSOLE}

uses

{$IFDEF XE2+}

System.Classes,

System.SysUtils,

Vcl.Graphics,

{$ELSE}

Classes,

SysUtils,

Graphics,

{$ENDIF}

HPDFDoc;

var

HotPDF: THotPDF;

begin

HotPDF := THotPDF.Create(nil);

try

// Настройка базовых свойств PDF

HotPDF.FileName := 'SimpleAnnotation.pdf';

HotPDF.Title := 'Simple Annotation Demo';

HotPDF.Author := 'HotPDF Component';

// Установка встраивания шрифтов для согласованного отображения

HotPDF.FontEmbedding := True;

HotPDF.BeginDoc;

// Установка шрифта

HotPDF.CurrentPage.SetFont('Arial', [], 12, 0, False);

// Добавление содержимого страницы

HotPDF.CurrentPage.TextOut(120, 65, 0, 'Нажмите на значок аннотации:');

// Добавление многоязычных текстовых аннотаций

HotPDF.CurrentPage.AddTextAnnotation(

'Это текстовая аннотация.' + #13#10 +

'Dies ist eine Textanmerkung.' + #13#10 +

'Ceci est une annotation textuelle.' + #13#10 +

'This is a text annotation.',

Rect(120, 80, 140, 100), True, taComment, clBlue

);

HotPDF.EndDoc;

finally

HotPDF.Free;

end;

end.

Этот простой пример демонстрирует несколько основных концепций PDF-аннотаций:

Позиционирование: Параметр Rect(120, 80, 140, 100) определяет кликабельную область аннотации
Поддержка многих языков: Содержимое включает английский, немецкий, французский и китайский текст
Контроль видимости: Параметр True делает аннотацию изначально открытой
Тип аннотации: taComment создает стандартную аннотацию комментария
Визуальная настройка: clBlue устанавливает цвет аннотации
Встраивание шрифтов: FontEmbedding := True обеспечивает согласованное отображение в разных просмотрщиках

Полный справочник типов аннотаций

Компонент HotPDF поддерживает всеобъемлющие типы аннотаций, каждый оптимизированный для конкретных случаев использования:

1. Текстовые аннотации

Текстовые аннотации являются наиболее часто используемым типом, предоставляя различные стили отображения:

// Доступное перечисление типов текстовых аннотаций
THPDFTextAnnotationType = (
  taComment,        // Стандартный пузырь комментария
  taKey,           // Символ ключа для важных заметок
  taNote,          // Значок заметки для общей информации
  taHelp,          // Значок справки для справочного текста
  taNewParagraph,  // Маркер нового абзаца
  taParagraph,     // Маркер абзаца
  taInsert         // Маркер вставки содержимого
);

// Примеры использования для разных типов
procedure AddTextAnnotationExamples(PDF: THotPDF);
begin
  WriteLn('Добавление текстовых аннотаций...');

  // Заголовок раздела
  PDF.CurrentPage.TextOut(50, 80, 0, 'Текстовые аннотации - разные типы и цвета:');

  // Критическая аннотация с многоязычным содержимым
  PDF.CurrentPage.AddTextAnnotation(
    'КРИТИЧНО: Это критическая аннотация комментария, требующая немедленного внимания.' + #13#10 + 
    'KRITISCH: Dies ist eine kritische Textanmerkung.' + #13#10 + 
    'CRITIQUE: Ceci est une annotation critique.',
    Rect(50, 95, 70, 115), True, taComment, clRed
  );

  // Аннотация ключевого пункта
  PDF.CurrentPage.AddTextAnnotation(
    'КЛЮЧЕВОЙ ПУНКТ: Маркер важной информации' + #13#10 + 
    'Эта аннотация использует значок ключа для акцента.',
    Rect(80, 100, 100, 120), False, taKey, $0080FF // Оранжевый
  );

  // Аннотация справки
  PDF.CurrentPage.AddTextAnnotation(
    'СПРАВКА: Нажмите для дополнительной помощи' + #13#10 + 
    'Эта справочная аннотация предоставляет руководство пользователю.',
    Rect(110, 100, 130, 120), False, taHelp, clBlue
  );

  // Общая аннотация заметки
  PDF.CurrentPage.AddTextAnnotation(
    'ЗАМЕТКА: Аннотация общей информации' + #13#10 + 
    'Стандартная заметка для дополнительной информации.',
    Rect(140, 100, 160, 120), False, taNote, clGreen
  );

  // Аннотация маркера вставки
  PDF.CurrentPage.AddTextAnnotation(
    'ВСТАВКА: Маркер вставки содержимого' + #13#10 + 
    'Указывает, где должно быть добавлено новое содержимое.',
    Rect(170, 100, 190, 120), False, taInsert, $800080 // Фиолетовый
  );
end;

// Доступное перечисление типов текстовых аннотаций

THPDFTextAnnotationType = (

taComment, // Стандартный пузырь комментария

taKey, // Символ ключа для важных заметок

taNote, // Значок заметки для общей информации

taHelp, // Значок справки для справочного текста

taNewParagraph, // Маркер нового абзаца

taParagraph, // Маркер абзаца

taInsert // Маркер вставки содержимого

);

// Примеры использования для разных типов

procedure AddTextAnnotationExamples(PDF: THotPDF);

begin

WriteLn('Добавление текстовых аннотаций...');

// Заголовок раздела

PDF.CurrentPage.TextOut(50, 80, 0, 'Текстовые аннотации - разные типы и цвета:');

// Критическая аннотация с многоязычным содержимым

PDF.CurrentPage.AddTextAnnotation(

'КРИТИЧНО: Это критическая аннотация комментария, требующая немедленного внимания.' + #13#10 +

'KRITISCH: Dies ist eine kritische Textanmerkung.' + #13#10 +

'CRITIQUE: Ceci est une annotation critique.',

Rect(50, 95, 70, 115), True, taComment, clRed

);

// Аннотация ключевого пункта

PDF.CurrentPage.AddTextAnnotation(

'КЛЮЧЕВОЙ ПУНКТ: Маркер важной информации' + #13#10 +

'Эта аннотация использует значок ключа для акцента.',

Rect(80, 100, 100, 120), False, taKey, $0080FF // Оранжевый

);

// Аннотация справки

PDF.CurrentPage.AddTextAnnotation(

'СПРАВКА: Нажмите для дополнительной помощи' + #13#10 +

'Эта справочная аннотация предоставляет руководство пользователю.',

Rect(110, 100, 130, 120), False, taHelp, clBlue

);

// Общая аннотация заметки

PDF.CurrentPage.AddTextAnnotation(

'ЗАМЕТКА: Аннотация общей информации' + #13#10 +

'Стандартная заметка для дополнительной информации.',

Rect(140, 100, 160, 120), False, taNote, clGreen

);

// Аннотация маркера вставки

PDF.CurrentPage.AddTextAnnotation(

'ВСТАВКА: Маркер вставки содержимого' + #13#10 +

'Указывает, где должно быть добавлено новое содержимое.',

Rect(170, 100, 190, 120), False, taInsert, $800080 // Фиолетовый

);

end;

2. Аннотации свободного текста

Аннотации свободного текста отображают текст непосредственно на странице без требования взаимодействия пользователя:

// Перечисление опций выравнивания свободного текста
THPDFFreeTextAnnotationJust = (
  ftLeftJust,   // Текст, выровненный по левому краю
  ftCenter,     // Текст, выровненный по центру
  ftRightJust   // Текст, выровненный по правому краю
);

// Пример: Создание аннотаций свободного текста с разными выравниваниями
procedure AddFreeTextAnnotationExamples(PDF: THotPDF);
begin
  WriteLn('Добавление аннотаций свободного текста...');

  // Заголовок раздела
  PDF.CurrentPage.TextOut(50, 160, 0, 'Аннотации свободного текста - разные выравнивания:');

  // Свободный текст с выравниванием по левому краю
  PDF.CurrentPage.AddFreeTextAnnotation(
    'ЛЕВАЯ ТЕКСТОВАЯ АННОТАЦИЯ',
    Rect(50, 180, 200, 200),
    ftLeftJust,
    $008000 // Зеленый
  );

  // Свободный текст с выравниванием по центру
  PDF.CurrentPage.AddFreeTextAnnotation(
    'ЦЕНТРИРОВАННЫЙ Текст',
    Rect(220, 180, 370, 200),
    ftCenter,
    $0080FF // Оранжевый
  );

  // Свободный текст с выравниванием по правому краю
  PDF.CurrentPage.AddFreeTextAnnotation(
    'ПРАВАЯ АННОТАЦИЯ',
    Rect(390, 180, 540, 200),
    ftRightJust,
    clFuchsia // Фуксия
  );

  // Аннотация статуса документа
  PDF.CurrentPage.AddFreeTextAnnotation(
    'КОНФИДЕНЦИАЛЬНЫЙ ДОКУМЕНТ',
    Rect(200, 210, 400, 230),
    ftCenter,
    clRed
  );
end;

// Перечисление опций выравнивания свободного текста

THPDFFreeTextAnnotationJust = (

ftLeftJust, // Текст, выровненный по левому краю

ftCenter, // Текст, выровненный по центру

ftRightJust // Текст, выровненный по правому краю

);

// Пример: Создание аннотаций свободного текста с разными выравниваниями

procedure AddFreeTextAnnotationExamples(PDF: THotPDF);

begin

WriteLn('Добавление аннотаций свободного текста...');

// Заголовок раздела

PDF.CurrentPage.TextOut(50, 160, 0, 'Аннотации свободного текста - разные выравнивания:');

// Свободный текст с выравниванием по левому краю

PDF.CurrentPage.AddFreeTextAnnotation(

'ЛЕВАЯ ТЕКСТОВАЯ АННОТАЦИЯ',

Rect(50, 180, 200, 200),

ftLeftJust,

$008000 // Зеленый

);

// Свободный текст с выравниванием по центру

PDF.CurrentPage.AddFreeTextAnnotation(

'ЦЕНТРИРОВАННЫЙ Текст',

Rect(220, 180, 370, 200),

ftCenter,

$0080FF // Оранжевый

);

// Свободный текст с выравниванием по правому краю

PDF.CurrentPage.AddFreeTextAnnotation(

'ПРАВАЯ АННОТАЦИЯ',

Rect(390, 180, 540, 200),

ftRightJust,

clFuchsia // Фуксия

);

// Аннотация статуса документа

PDF.CurrentPage.AddFreeTextAnnotation(

'КОНФИДЕНЦИАЛЬНЫЙ ДОКУМЕНТ',

Rect(200, 210, 400, 230),

ftCenter,

clRed

);

end;

3. Геометрические аннотации

Аннотации линий и фигур обеспечивают визуальный акцент и функциональность разметки:

// Примеры аннотаций линий и фигур
procedure AddGeometricAnnotationExamples(PDF: THotPDF);
var
  StartPoint, EndPoint: THPDFCurrPoint;
begin
  WriteLn('Добавление геометрических аннотаций...');

  // Заголовок раздела
  PDF.CurrentPage.TextOut(50, 250, 0, 'Геометрические аннотации - линии и фигуры:');

  // Аннотация линии - диагональная
  StartPoint.X := 50;
  StartPoint.Y := 270;
  EndPoint.X := 150;
  EndPoint.Y := 290;
  
  PDF.CurrentPage.AddLineAnnotation(
    'Диагональная линия, указывающая на важное содержимое',
    StartPoint,
    EndPoint,
    $0080FF // Оранжевый
  );
  
  // Аннотация линии - горизонтальная
  StartPoint.X := 170;
  StartPoint.Y := 280;
  EndPoint.X := 270;
  EndPoint.Y := 280;
  
  PDF.CurrentPage.AddLineAnnotation(
    'Горизонтальная линия для акцента',
    StartPoint,
    EndPoint,
    clBlue
  );

  // Аннотация круга
  PDF.CurrentPage.AddCircleSquareAnnotation(
    'Круг, выделяющий важную область',
    Rect(50, 300, 120, 320),
    csCircle,
    clGreen
  );

  // Аннотация квадрата
  PDF.CurrentPage.AddCircleSquareAnnotation(
    'Квадратная рамка для акцента',
    Rect(140, 300, 210, 320),
    csSquare,
    $800080 // Фиолетовый
  );
end;

// Типы аннотаций кругов и квадратов
THPDFCSAnnotationType = (csCircle, csSquare);

// Примеры аннотаций линий и фигур

procedure AddGeometricAnnotationExamples(PDF: THotPDF);

var

StartPoint, EndPoint: THPDFCurrPoint;

begin

WriteLn('Добавление геометрических аннотаций...');

// Заголовок раздела

PDF.CurrentPage.TextOut(50, 250, 0, 'Геометрические аннотации - линии и фигуры:');

// Аннотация линии - диагональная

StartPoint.X := 50;

StartPoint.Y := 270;

EndPoint.X := 150;

EndPoint.Y := 290;

PDF.CurrentPage.AddLineAnnotation(

'Диагональная линия, указывающая на важное содержимое',

StartPoint,

EndPoint,

$0080FF // Оранжевый

);

// Аннотация линии - горизонтальная

StartPoint.X := 170;

StartPoint.Y := 280;

EndPoint.X := 270;

EndPoint.Y := 280;

PDF.CurrentPage.AddLineAnnotation(

'Горизонтальная линия для акцента',

StartPoint,

EndPoint,

clBlue

);

// Аннотация круга

PDF.CurrentPage.AddCircleSquareAnnotation(

'Круг, выделяющий важную область',

Rect(50, 300, 120, 320),

csCircle,

clGreen

);

// Аннотация квадрата

PDF.CurrentPage.AddCircleSquareAnnotation(

'Квадратная рамка для акцента',

Rect(140, 300, 210, 320),

csSquare,

$800080 // Фиолетовый

);

end;

// Типы аннотаций кругов и квадратов

THPDFCSAnnotationType = (csCircle, csSquare);

4. Штамповые аннотации

Штамповые аннотации предоставляют предопределенные визуальные маркеры для статуса документа и рабочего процесса:

// Доступное перечисление типов штампов
THPDFStampAnnotationType = (
  satApproved,              // Зеленый штамп "Одобрено"
  satExperimental,          // Маркер "Экспериментальный"
  satNotApproved,           // Красный штамп "Не одобрено"
  satAsIs,                  // Статус "Как есть"
  satExpired,               // Предупреждение "Истек"
  satNotForPublicRelease,   // Маркер конфиденциальности
  satConfidential,          // Штамп "Конфиденциально"
  satFinal,                 // Маркер "Финальный"
  satSold,                  // Статус "Продано"
  satDepartmental,          // Маркер отдела
  satForComment,            // Штамп рецензирования "Для комментариев"
  satTopSecret              // Классификация "Совершенно секретно"
);

// Пример: Добавление различных штамповых аннотаций
procedure AddStampAnnotationExamples(PDF: THotPDF);
begin
  WriteLn('Добавление штамповых аннотаций...');

  // Заголовок раздела
  PDF.CurrentPage.TextOut(50, 340, 0, 'Штамповые аннотации - маркеры статуса документа:');

  // Штампы одобрения
  PDF.CurrentPage.AddStampAnnotation(
    'Документ одобрен для выпуска',
    Rect(50, 360, 150, 390),
    satApproved,
    clGreen
  );

  PDF.CurrentPage.AddStampAnnotation(
    'Документ отклонен - требует пересмотра',
    Rect(170, 360, 270, 390),
    satNotApproved,
    clRed
  );

  // Штампы безопасности
  PDF.CurrentPage.AddStampAnnotation(
    'Маркер конфиденциальной информации',
    Rect(290, 360, 390, 390),
    satConfidential,
    clRed
  );

  PDF.CurrentPage.AddStampAnnotation(
    'Штамп финальной версии',
    Rect(410, 360, 510, 390),
    satFinal,
    clBlue
  );

  // Штампы рабочего процесса
  PDF.CurrentPage.AddStampAnnotation(
    'Для комментариев и рецензирования',
    Rect(50, 400, 150, 430),
    satForComment,
    $800080 // Фиолетовый
  );

  PDF.CurrentPage.AddStampAnnotation(
    'Экспериментальная версия',
    Rect(170, 400, 270, 430),
    satExperimental,
    $0080FF // Оранжевый
  );
end;

// Доступное перечисление типов штампов

THPDFStampAnnotationType = (

satApproved, // Зеленый штамп "Одобрено"

satExperimental, // Маркер "Экспериментальный"

satNotApproved, // Красный штамп "Не одобрено"

satAsIs, // Статус "Как есть"

satExpired, // Предупреждение "Истек"

satNotForPublicRelease, // Маркер конфиденциальности

satConfidential, // Штамп "Конфиденциально"

satFinal, // Маркер "Финальный"

satSold, // Статус "Продано"

satDepartmental, // Маркер отдела

satForComment, // Штамп рецензирования "Для комментариев"

satTopSecret // Классификация "Совершенно секретно"

);

// Пример: Добавление различных штамповых аннотаций

procedure AddStampAnnotationExamples(PDF: THotPDF);

begin

WriteLn('Добавление штамповых аннотаций...');

// Заголовок раздела

PDF.CurrentPage.TextOut(50, 340, 0, 'Штамповые аннотации - маркеры статуса документа:');

// Штампы одобрения

PDF.CurrentPage.AddStampAnnotation(

'Документ одобрен для выпуска',

Rect(50, 360, 150, 390),

satApproved,

clGreen

);

PDF.CurrentPage.AddStampAnnotation(

'Документ отклонен - требует пересмотра',

Rect(170, 360, 270, 390),

satNotApproved,

clRed

);

// Штампы безопасности

PDF.CurrentPage.AddStampAnnotation(

'Маркер конфиденциальной информации',

Rect(290, 360, 390, 390),

satConfidential,

clRed

);

PDF.CurrentPage.AddStampAnnotation(

'Штамп финальной версии',

Rect(410, 360, 510, 390),

satFinal,

clBlue

);

// Штампы рабочего процесса

PDF.CurrentPage.AddStampAnnotation(

'Для комментариев и рецензирования',

Rect(50, 400, 150, 430),

satForComment,

$800080 // Фиолетовый

);

PDF.CurrentPage.AddStampAnnotation(

'Экспериментальная версия',

Rect(170, 400, 270, 430),

satExperimental,

$0080FF // Оранжевый

);

end;

Мультимедийные аннотации: за пределами текстового взаимодействия

Современные PDF-рабочие процессы часто требуют интеграции мультимедиа. Компонент HotPDF поддерживает мультимедийные аннотации:

5. Аннотации файловых вложений

Аннотации файловых вложений позволяют встраивать внешние файлы в PDF-документы:

// Пример аннотации файлового вложения
procedure AddMultimediaAnnotationExamples(PDF: THotPDF);
var
  DemoTextFile, DemoAudioFile: string;
  DemoContent: TStringList;
begin
  WriteLn('Добавление мультимедийных аннотаций...');

  // Заголовок раздела
  PDF.CurrentPage.TextOut(50, 450, 0, 'Мультимедийные аннотации - файлы, аудио и видео:');

  // Создание демонстрационного текстового файла, если он не существует
  DemoTextFile := 'DemoAttachment.txt';
  if not FileExists(DemoTextFile) then
  begin
    DemoContent := TStringList.Create;
    try
      DemoContent.Add('Демонстрационное вложение компонента HotPDF');
      DemoContent.Add('===============================================');
      DemoContent.Add('Это образец текстового файла, прикрепленного к PDF-документу.');
      DemoContent.Add('Он демонстрирует возможность аннотации файлового вложения.');
      DemoContent.Add('Создано: ' + DateTimeToStr(Now));
      DemoContent.SaveToFile(DemoTextFile);
    finally 
      DemoContent.Free;
    end;
  end;

  // Аннотация файлового вложения
  PDF.CurrentPage.AddFileAttachmentAnnotation(
    'Демонстрационное вложение текстового файла',
    DemoTextFile,
    Rect(50, 470, 90, 490),
    clBlue
  );

  // Примеры множественных файловых вложений
  PDF.CurrentPage.AddFileAttachmentAnnotation(
    'Документ правового соглашения',
    'Contract.docx',
    Rect(100, 470, 140, 490),
    clPurple
  );

  PDF.CurrentPage.AddFileAttachmentAnnotation(
    'Справочное изображение для сравнения',
    'Reference.png',
    Rect(150, 470, 190, 490),
    clGreen
  );
end;

// Пример аннотации файлового вложения

procedure AddMultimediaAnnotationExamples(PDF: THotPDF);

var

DemoTextFile, DemoAudioFile: string;

DemoContent: TStringList;

begin

WriteLn('Добавление мультимедийных аннотаций...');

// Заголовок раздела

PDF.CurrentPage.TextOut(50, 450, 0, 'Мультимедийные аннотации - файлы, аудио и видео:');

// Создание демонстрационного текстового файла, если он не существует

DemoTextFile := 'DemoAttachment.txt';

if not FileExists(DemoTextFile) then

begin

DemoContent := TStringList.Create;

try

DemoContent.Add('Демонстрационное вложение компонента HotPDF');

DemoContent.Add('===============================================');

DemoContent.Add('Это образец текстового файла, прикрепленного к PDF-документу.');

DemoContent.Add('Он демонстрирует возможность аннотации файлового вложения.');

DemoContent.Add('Создано: ' + DateTimeToStr(Now));

DemoContent.SaveToFile(DemoTextFile);

finally

DemoContent.Free;

end;

// Аннотация файлового вложения

PDF.CurrentPage.AddFileAttachmentAnnotation(

'Демонстрационное вложение текстового файла',

DemoTextFile,

Rect(50, 470, 90, 490),

clBlue

);

// Примеры множественных файловых вложений

PDF.CurrentPage.AddFileAttachmentAnnotation(

'Документ правового соглашения',

'Contract.docx',

Rect(100, 470, 140, 490),

clPurple

);

PDF.CurrentPage.AddFileAttachmentAnnotation(

'Справочное изображение для сравнения',

'Reference.png',

Rect(150, 470, 190, 490),

clGreen

);

end;

6. Звуковые аннотации

Звуковые аннотации позволяют встраивать аудиофайлы для голосовых заметок или объяснений:

// Пример звуковой аннотации
procedure AddSoundAnnotationExample(PDF: THotPDF);
var
  DemoAudioFile: string;
begin
  // Проверка существующих мультимедийных файлов и добавление аннотаций
  DemoAudioFile := 'Music.wav';
  if FileExists(DemoAudioFile) then
  begin
    PDF.CurrentPage.AddSoundAnnotation(
      'Демонстрационный аудиофайл - нажмите для воспроизведения',
      DemoAudioFile,
      Rect(110, 470, 150, 490),
      clGreen
    );
  end
  else
  begin
    PDF.CurrentPage.AddTextAnnotation(
      'Аудиофайл не найден: ' + DemoAudioFile,
      Rect(110, 470, 130, 490),
      False,
      taNote,
      $0080FF // Оранжевый
    );
  end;

  // Пример многоязычной звуковой аннотации
  PDF.CurrentPage.AddSoundAnnotation(
    'Английская озвучка',
    'Narration_EN.mp3',
    Rect(60, 350, 100, 390),
    clBlue
  );

  PDF.CurrentPage.AddSoundAnnotation(
    'Китайская озвучка',
    'Narration_CN.mp3',
    Rect(110, 350, 150, 390),
    clGreen
  );
end;

// Пример звуковой аннотации

procedure AddSoundAnnotationExample(PDF: THotPDF);

var

DemoAudioFile: string;

begin

// Проверка существующих мультимедийных файлов и добавление аннотаций

DemoAudioFile := 'Music.wav';

if FileExists(DemoAudioFile) then

begin

PDF.CurrentPage.AddSoundAnnotation(

'Демонстрационный аудиофайл - нажмите для воспроизведения',

DemoAudioFile,

Rect(110, 470, 150, 490),

clGreen

);

end

else

begin

PDF.CurrentPage.AddTextAnnotation(

'Аудиофайл не найден: ' + DemoAudioFile,

Rect(110, 470, 130, 490),

False,

taNote,

$0080FF // Оранжевый

);

end;

// Пример многоязычной звуковой аннотации

PDF.CurrentPage.AddSoundAnnotation(

'Английская озвучка',

'Narration_EN.mp3',

Rect(60, 350, 100, 390),

clBlue

);

PDF.CurrentPage.AddSoundAnnotation(

'Китайская озвучка',

'Narration_CN.mp3',

Rect(110, 350, 150, 390),

clGreen

);

end;

Полный пример аннотации: улучшенный демонстрационный проект

Вот полный, обновленный пример, который демонстрирует все типы аннотаций в одном всеобъемлющем проекте:

{***********************************************************}
// Компонент HotPDF PDF - улучшенная демонстрация аннотаций Delphi
// Copyright(c)2007-2025, https://www.loslab.com
// Эта демонстрация показывает всеобъемлющую функциональность аннотаций
{***********************************************************}

program Annotations;
{$I ..\..\..\Lib\HotPDF.inc}
{$APPTYPE CONSOLE}

uses
  {$IFDEF XE2+}
  System.Classes,
  System.SysUtils,
  Vcl.Graphics,
  {$ELSE} 
  Classes,
  SysUtils,
  Graphics,
  {$ENDIF}
  HPDFDoc;

var
  HotPDF: THotPDF;

// ... существующий код ...

procedure AddDocumentationAndFooter(PDF: THotPDF);
begin
  WriteLn('Добавление документации и нижнего колонтитула...');

  // Раздел документации
  PDF.CurrentPage.TextOut(50, 510, 0, 'Руководство по использованию аннотаций:');
  PDF.CurrentPage.TextOut(50, 530, 0, '• Красные аннотации указывают на критические проблемы, требующие немедленного внимания');
  PDF.CurrentPage.TextOut(50, 545, 0, '• Оранжевые аннотации показывают предупреждения и предостережения');
  PDF.CurrentPage.TextOut(50, 560, 0, '• Синие аннотации предоставляют общую информацию');
  PDF.CurrentPage.TextOut(50, 575, 0, '• Зеленые аннотации отмечают завершенные или одобренные элементы');
  PDF.CurrentPage.TextOut(50, 590, 0, '• Фиолетовые аннотации указывают на элементы, требующие рецензирования');

  // Техническая информация
  PDF.CurrentPage.TextOut(50, 620, 0, 'Технические детали:');
  PDF.CurrentPage.TextOut(50, 635, 0, '• Все аннотации интерактивны и могут быть открыты/закрыты пользователями');
  PDF.CurrentPage.TextOut(50, 650, 0, '• Мультимедийные аннотации требуют совместимых PDF-просмотрщиков');
  PDF.CurrentPage.TextOut(50, 665, 0, '• Файловые вложения встроены в PDF-документ');

  // Нижний колонтитул
  PDF.CurrentPage.TextOut(50, 730, 0, 'Компонент HotPDF - улучшенная демонстрация аннотаций (Delphi)');
  PDF.CurrentPage.TextOut(50, 745, 0, 'Создано: ' + DateTimeToStr(Now));
  PDF.CurrentPage.TextOut(50, 760, 0, 'Посетите https://www.loslab.com для получения дополнительной информации');

  // Добавление финальной сводной аннотации
  PDF.CurrentPage.AddTextAnnotation(
    'СВОДКА: Этот документ демонстрирует все типы аннотаций, поддерживаемые компонентом HotPDF.' + #13#10 + 
    'Каждый тип аннотации служит конкретным целям в рабочем процессе документа и взаимодействии пользователя.' + #13#10 +
    'For technical support and documentation, visit https://www.loslab.com',
    Rect(450, 740, 470, 760),
    False,
    taNote,
    clBlue
  );
end;

begin
  WriteLn('Улучшенная демонстрация аннотаций HotPDF (Delphi)');
  WriteLn('=================================================');
  WriteLn('Создание всеобъемлющего PDF со всеми типами аннотаций...');
  WriteLn('');

  HotPDF := THotPDF.Create(nil);
  try
    try
      // Настройка свойств PDF
      HotPDF.FileName := 'HotPDF-Annotations.pdf';
      HotPDF.Title := 'Демонстрация аннотаций HotPDF (Delphi)';
      HotPDF.Author := 'Компонент HotPDF';
      HotPDF.Subject := 'Всеобъемлющие примеры аннотаций';
      HotPDF.Keywords := 'PDF, Аннотации, HotPDF, Демонстрация, Интерактивный, Delphi';

      // Установка встраивания шрифтов для согласованного отображения
      HotPDF.FontEmbedding := True;

      // Включение сжатия FlateDecode для меньших размеров файлов
      HotPDF.Compression := cmFlateDecode;
      
      // Установка начального масштаба для подгонки высоты страницы в окне
      HotPDF.InitialZoom := izFitV;

      HotPDF.BeginDoc;
      
      // Использование стандартного шрифта
      HotPDF.CurrentPage.SetFont('Arial', [], 12, 0, False);

      // Добавление заголовка страницы
      HotPDF.CurrentPage.TextOut(150, 40, 0, 'Компонент HotPDF - витрина аннотаций (Delphi)');

      // Добавление всех примеров аннотаций
      AddTextAnnotationExamples(HotPDF);
      AddFreeTextAnnotationExamples(HotPDF);
      AddGeometricAnnotationExamples(HotPDF);
      AddStampAnnotationExamples(HotPDF);
      AddMultimediaAnnotationExamples(HotPDF);
      AddDocumentationAndFooter(HotPDF);

      HotPDF.EndDoc;

      WriteLn('PDF аннотаций создан успешно!');
      WriteLn('');
      WriteLn('Выходной файл: ' + HotPDF.FileName);
      WriteLn('');
      WriteLn('PDF содержит:');
      WriteLn('• Текстовые аннотации с разными типами и цветами');
      WriteLn('• Аннотации свободного текста с различными выравниваниями');
      WriteLn('• Геометрические аннотации (линии, круги, квадраты)');
      WriteLn('• Штамповые аннотации для рабочего процесса документа');
      WriteLn('• Мультимедийные аннотации (файл, аудио, видео)');
      WriteLn('• Всеобъемлющую документацию и руководства по использованию');

    except
      on E: Exception do
      begin
        WriteLn('Ошибка создания PDF: ' + E.Message);
        ExitCode := 1;
      end;
    end;

  finally 
    HotPDF.Free;
  end;
end.

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

{***********************************************************}

// Компонент HotPDF PDF - улучшенная демонстрация аннотаций Delphi

// Эта демонстрация показывает всеобъемлющую функциональность аннотаций

{***********************************************************}

program Annotations;

{$I ..\..\..\Lib\HotPDF.inc}

{$APPTYPE CONSOLE}

uses

{$IFDEF XE2+}

System.Classes,

System.SysUtils,

Vcl.Graphics,

{$ELSE}

Classes,

SysUtils,

Graphics,

{$ENDIF}

HPDFDoc;

var

HotPDF: THotPDF;

// ... существующий код ...

procedure AddDocumentationAndFooter(PDF: THotPDF);

begin

WriteLn('Добавление документации и нижнего колонтитула...');

// Раздел документации

PDF.CurrentPage.TextOut(50, 510, 0, 'Руководство по использованию аннотаций:');

PDF.CurrentPage.TextOut(50, 530, 0, '• Красные аннотации указывают на критические проблемы, требующие немедленного внимания');

PDF.CurrentPage.TextOut(50, 545, 0, '• Оранжевые аннотации показывают предупреждения и предостережения');

PDF.CurrentPage.TextOut(50, 560, 0, '• Синие аннотации предоставляют общую информацию');

PDF.CurrentPage.TextOut(50, 575, 0, '• Зеленые аннотации отмечают завершенные или одобренные элементы');

PDF.CurrentPage.TextOut(50, 590, 0, '• Фиолетовые аннотации указывают на элементы, требующие рецензирования');

// Техническая информация

PDF.CurrentPage.TextOut(50, 620, 0, 'Технические детали:');

PDF.CurrentPage.TextOut(50, 635, 0, '• Все аннотации интерактивны и могут быть открыты/закрыты пользователями');

PDF.CurrentPage.TextOut(50, 650, 0, '• Мультимедийные аннотации требуют совместимых PDF-просмотрщиков');

PDF.CurrentPage.TextOut(50, 665, 0, '• Файловые вложения встроены в PDF-документ');

// Нижний колонтитул

PDF.CurrentPage.TextOut(50, 730, 0, 'Компонент HotPDF - улучшенная демонстрация аннотаций (Delphi)');

PDF.CurrentPage.TextOut(50, 745, 0, 'Создано: ' + DateTimeToStr(Now));

PDF.CurrentPage.TextOut(50, 760, 0, 'Посетите https://www.loslab.com для получения дополнительной информации');

// Добавление финальной сводной аннотации

PDF.CurrentPage.AddTextAnnotation(

'СВОДКА: Этот документ демонстрирует все типы аннотаций, поддерживаемые компонентом HotPDF.' + #13#10 +

'Каждый тип аннотации служит конкретным целям в рабочем процессе документа и взаимодействии пользователя.' + #13#10 +

'For technical support and documentation, visit https://www.loslab.com',

Rect(450, 740, 470, 760),

False,

taNote,

clBlue

);

end;

begin

WriteLn('Улучшенная демонстрация аннотаций HotPDF (Delphi)');

WriteLn('=================================================');

WriteLn('Создание всеобъемлющего PDF со всеми типами аннотаций...');

WriteLn('');

HotPDF := THotPDF.Create(nil);

try

// Настройка свойств PDF

HotPDF.FileName := 'HotPDF-Annotations.pdf';

HotPDF.Title := 'Демонстрация аннотаций HotPDF (Delphi)';

HotPDF.Author := 'Компонент HotPDF';

HotPDF.Subject := 'Всеобъемлющие примеры аннотаций';

HotPDF.Keywords := 'PDF, Аннотации, HotPDF, Демонстрация, Интерактивный, Delphi';

// Установка встраивания шрифтов для согласованного отображения

HotPDF.FontEmbedding := True;

// Включение сжатия FlateDecode для меньших размеров файлов

HotPDF.Compression := cmFlateDecode;

// Установка начального масштаба для подгонки высоты страницы в окне

HotPDF.InitialZoom := izFitV;

HotPDF.BeginDoc;

// Использование стандартного шрифта

HotPDF.CurrentPage.SetFont('Arial', [], 12, 0, False);

// Добавление заголовка страницы

HotPDF.CurrentPage.TextOut(150, 40, 0, 'Компонент HotPDF - витрина аннотаций (Delphi)');

// Добавление всех примеров аннотаций

AddTextAnnotationExamples(HotPDF);

AddFreeTextAnnotationExamples(HotPDF);

AddGeometricAnnotationExamples(HotPDF);

AddStampAnnotationExamples(HotPDF);

AddMultimediaAnnotationExamples(HotPDF);

AddDocumentationAndFooter(HotPDF);

HotPDF.EndDoc;

WriteLn('PDF аннотаций создан успешно!');

WriteLn('');

WriteLn('Выходной файл: ' + HotPDF.FileName);

WriteLn('');

WriteLn('PDF содержит:');

WriteLn('• Текстовые аннотации с разными типами и цветами');

WriteLn('• Аннотации свободного текста с различными выравниваниями');

WriteLn('• Геометрические аннотации (линии, круги, квадраты)');

WriteLn('• Штамповые аннотации для рабочего процесса документа');

WriteLn('• Мультимедийные аннотации (файл, аудио, видео)');

WriteLn('• Всеобъемлющую документацию и руководства по использованию');

except

on E: Exception do

begin

WriteLn('Ошибка создания PDF: ' + E.Message);

ExitCode := 1;

end;

finally

HotPDF.Free;

end;

end.

Лучшие практики для PDF-аннотаций

1. Современная структура кода и совместимость

Обновленный компонент HotPDF использует современные практики кодирования Delphi:

// Современная структура модуля с условной компиляцией
uses
  {$IFDEF XE2+}
  System.Classes,
  System.SysUtils,
  Vcl.Graphics,
  {$ELSE}
  Classes,
  SysUtils,
  Graphics,
  {$ENDIF}
  HPDFDoc;

// Улучшенная конфигурация PDF
procedure ConfigureModernPDF(PDF: THotPDF);
begin
  // Встраивание шрифтов для согласованного отображения в просмотрщиках
  PDF.FontEmbedding := True;
  
  // Сжатие FlateDecode для меньших размеров файлов
  PDF.Compression := cmFlateDecode;
  
  // Настройка начального масштаба для лучшего пользовательского опыта
  PDF.InitialZoom := izFitV; // Подгонка к высоте страницы
  
  // Полные метаданные для лучшего управления документами
  PDF.Title := 'Профессиональный PDF с аннотациями';
  PDF.Author := 'Компонент HotPDF';
  PDF.Subject := 'Всеобъемлющие примеры аннотаций';
  PDF.Keywords := 'PDF, Аннотации, Интерактивный, Профессиональный';
end;

// Современная структура модуля с условной компиляцией

uses

{$IFDEF XE2+}

System.Classes,

System.SysUtils,

Vcl.Graphics,

{$ELSE}

Classes,

SysUtils,

Graphics,

{$ENDIF}

HPDFDoc;

// Улучшенная конфигурация PDF

procedure ConfigureModernPDF(PDF: THotPDF);

begin

// Встраивание шрифтов для согласованного отображения в просмотрщиках

PDF.FontEmbedding := True;

// Сжатие FlateDecode для меньших размеров файлов

PDF.Compression := cmFlateDecode;

// Настройка начального масштаба для лучшего пользовательского опыта

PDF.InitialZoom := izFitV; // Подгонка к высоте страницы

// Полные метаданные для лучшего управления документами

PDF.Title := 'Профессиональный PDF с аннотациями';

PDF.Author := 'Компонент HotPDF';

PDF.Subject := 'Всеобъемлющие примеры аннотаций';

PDF.Keywords := 'PDF, Аннотации, Интерактивный, Профессиональный';

end;

2. Обработка ошибок и надежность

Реализация правильной обработки ошибок для производственных приложений:

// Надежная обработка файлов с проверкой ошибок
procedure SafeAddFileAttachment(PDF: THotPDF; const FileName: string; const Description: string);
begin
  if FileExists(FileName) then
  begin
    PDF.CurrentPage.AddFileAttachmentAnnotation(
      Description,
      FileName,
      Rect(10, 10, 50, 50),
      clGreen
    );
  end
  else
  begin
    // Добавление аннотации ошибки вместо этого
    PDF.CurrentPage.AddTextAnnotation(
      Format('Файл не найден: %s', [ExtractFileName(FileName)]),
      Rect(10, 10, 30, 30),
      True,
      taKey,
      clRed
    );
  end;
end;

// Обработка исключений в основной программе
begin
  HotPDF := THotPDF.Create(nil);
  try
    try
      // Код создания PDF здесь
      HotPDF.BeginDoc;
      // ... код аннотаций ...
      HotPDF.EndDoc;
      
      WriteLn('PDF создан успешно!');
    except
      on E: Exception do
      begin
        WriteLn('Ошибка создания PDF: ' + E.Message);
        ExitCode := 1;
      end;
    end;
  finally
    HotPDF.Free;
  end;
end;

// Надежная обработка файлов с проверкой ошибок

procedure SafeAddFileAttachment(PDF: THotPDF; const FileName: string; const Description: string);

begin

if FileExists(FileName) then

begin

PDF.CurrentPage.AddFileAttachmentAnnotation(

Description,

FileName,

Rect(10, 10, 50, 50),

clGreen

);

end

else

begin

// Добавление аннотации ошибки вместо этого

PDF.CurrentPage.AddTextAnnotation(

Format('Файл не найден: %s', [ExtractFileName(FileName)]),

Rect(10, 10, 30, 30),

True,

taKey,

clRed

);

end;

// Обработка исключений в основной программе

begin

HotPDF := THotPDF.Create(nil);

try

// Код создания PDF здесь

HotPDF.BeginDoc;

// ... код аннотаций ...

HotPDF.EndDoc;

WriteLn('PDF создан успешно!');

except

on E: Exception do

begin

WriteLn('Ошибка создания PDF: ' + E.Message);

ExitCode := 1;

end;

finally

HotPDF.Free;

end;

3. Согласованность цветов и визуальный дизайн

Использование согласованных цветовых схем для лучшего пользовательского опыта:

// Константы цветов для согласованного дизайна аннотаций
const
  ANNOTATION_COLOR_ERROR = clRed;
  ANNOTATION_COLOR_WARNING = $0080FF;    // Оранжевый
  ANNOTATION_COLOR_INFO = clBlue;
  ANNOTATION_COLOR_SUCCESS = clGreen;
  ANNOTATION_COLOR_REVIEW = $800080;     // Фиолетовый

// Согласованное применение цветов
procedure AddColorCodedAnnotations(PDF: THotPDF);
begin
  // Аннотация ошибки
  PDF.CurrentPage.AddTextAnnotation(
    'ОШИБКА: Критическая проблема, требующая немедленного внимания',
    Rect(50, 100, 70, 120),
    True,
    taKey,
    ANNOTATION_COLOR_ERROR
  );

  // Аннотация предупреждения
  PDF.CurrentPage.AddTextAnnotation(
    'ПРЕДУПРЕЖДЕНИЕ: Требуется осторожность',
    Rect(80, 100, 100, 120),
    False,
    taComment,
    ANNOTATION_COLOR_WARNING
  );

  // Информационная аннотация
  PDF.CurrentPage.AddTextAnnotation(
    'ИНФОРМАЦИЯ: Доступна дополнительная информация',
    Rect(110, 100, 130, 120),
    False,
    taNote,
    ANNOTATION_COLOR_INFO
  );
end;

// Константы цветов для согласованного дизайна аннотаций

const

ANNOTATION_COLOR_ERROR = clRed;

ANNOTATION_COLOR_WARNING = $0080FF; // Оранжевый

ANNOTATION_COLOR_INFO = clBlue;

ANNOTATION_COLOR_SUCCESS = clGreen;

ANNOTATION_COLOR_REVIEW = $800080; // Фиолетовый

// Согласованное применение цветов

procedure AddColorCodedAnnotations(PDF: THotPDF);

begin

// Аннотация ошибки

PDF.CurrentPage.AddTextAnnotation(

'ОШИБКА: Критическая проблема, требующая немедленного внимания',

Rect(50, 100, 70, 120),

True,

taKey,

ANNOTATION_COLOR_ERROR

);

// Аннотация предупреждения

PDF.CurrentPage.AddTextAnnotation(

'ПРЕДУПРЕЖДЕНИЕ: Требуется осторожность',

Rect(80, 100, 100, 120),

False,

taComment,

ANNOTATION_COLOR_WARNING

);

// Информационная аннотация

PDF.CurrentPage.AddTextAnnotation(

'ИНФОРМАЦИЯ: Доступна дополнительная информация',

Rect(110, 100, 130, 120),

False,

taNote,

ANNOTATION_COLOR_INFO

);

end;

Оптимизация производительности для больших документов

1. Структурированный подход с процедурами

Обновленный пример использует модульный подход для лучшей поддерживаемости:

// Модульное управление аннотациями
procedure AddTextAnnotationExamples(PDF: THotPDF);
begin
  WriteLn('Добавление текстовых аннотаций...');
  // Код текстовых аннотаций здесь
end;

procedure AddFreeTextAnnotationExamples(PDF: THotPDF);
begin
  WriteLn('Добавление аннотаций свободного текста...');
  // Код аннотаций свободного текста здесь
end;

procedure AddGeometricAnnotationExamples(PDF: THotPDF);
begin
  WriteLn('Добавление геометрических аннотаций...');
  // Код геометрических аннотаций здесь
end;

// Основное выполнение с четкой структурой
begin
  HotPDF := THotPDF.Create(nil);
  try
    // Настройка PDF
    HotPDF.FileName := 'HotPDF-Annotations.pdf';
    HotPDF.FontEmbedding := True;
    HotPDF.Compression := cmFlateDecode;
    HotPDF.InitialZoom := izFitV;
    
    HotPDF.BeginDoc;
    HotPDF.CurrentPage.SetFont('Arial', [], 12, 0, False);
    
    // Добавление всех примеров аннотаций в организованном порядке
    AddTextAnnotationExamples(HotPDF);
    AddFreeTextAnnotationExamples(HotPDF);
    AddGeometricAnnotationExamples(HotPDF);
    AddStampAnnotationExamples(HotPDF);
    AddMultimediaAnnotationExamples(HotPDF);
    AddDocumentationAndFooter(HotPDF);
    
    HotPDF.EndDoc;
  finally
    HotPDF.Free;
  end;
end;

// Модульное управление аннотациями

procedure AddTextAnnotationExamples(PDF: THotPDF);

begin

WriteLn('Добавление текстовых аннотаций...');

// Код текстовых аннотаций здесь

end;

procedure AddFreeTextAnnotationExamples(PDF: THotPDF);

begin

WriteLn('Добавление аннотаций свободного текста...');

// Код аннотаций свободного текста здесь

end;

procedure AddGeometricAnnotationExamples(PDF: THotPDF);

begin

WriteLn('Добавление геометрических аннотаций...');

// Код геометрических аннотаций здесь

end;

// Основное выполнение с четкой структурой

begin

HotPDF := THotPDF.Create(nil);

try

// Настройка PDF

HotPDF.FileName := 'HotPDF-Annotations.pdf';

HotPDF.FontEmbedding := True;

HotPDF.Compression := cmFlateDecode;

HotPDF.InitialZoom := izFitV;

HotPDF.BeginDoc;

HotPDF.CurrentPage.SetFont('Arial', [], 12, 0, False);

// Добавление всех примеров аннотаций в организованном порядке

AddTextAnnotationExamples(HotPDF);

AddFreeTextAnnotationExamples(HotPDF);

AddGeometricAnnotationExamples(HotPDF);

AddStampAnnotationExamples(HotPDF);

AddMultimediaAnnotationExamples(HotPDF);

AddDocumentationAndFooter(HotPDF);

HotPDF.EndDoc;

finally

HotPDF.Free;

end;

2. Управление памятью и очистка ресурсов

Правильное управление ресурсами для надежной работы:

// Правильное управление ресурсами
procedure CreateAnnotatedPDF;
var
  HotPDF: THotPDF;
  TempFiles: TStringList;
begin
  HotPDF := THotPDF.Create(nil);
  TempFiles := TStringList.Create;
  try
    try
      // Создание временных файлов для демонстрации
      CreateDemoFiles(TempFiles);
      
      // Настройка и создание PDF
      ConfigurePDF(HotPDF);
      HotPDF.BeginDoc;
      
      // Добавление аннотаций
      AddAllAnnotations(HotPDF, TempFiles);
      
      HotPDF.EndDoc;
      WriteLn('PDF создан успешно!');
      
    except
      on E: Exception do
      begin
        WriteLn('Ошибка: ' + E.Message);
        raise; // Повторное возбуждение для правильной обработки ошибок
      end;
    end;
  finally
    // Очистка ресурсов
    TempFiles.Free;
    HotPDF.Free;
    
    // Очистка временных файлов
    CleanupTempFiles;
  end;
end;

// Правильное управление ресурсами

procedure CreateAnnotatedPDF;

var

HotPDF: THotPDF;

TempFiles: TStringList;

begin

HotPDF := THotPDF.Create(nil);

TempFiles := TStringList.Create;

try

// Создание временных файлов для демонстрации

CreateDemoFiles(TempFiles);

// Настройка и создание PDF

ConfigurePDF(HotPDF);

HotPDF.BeginDoc;

// Добавление аннотаций

AddAllAnnotations(HotPDF, TempFiles);

HotPDF.EndDoc;

WriteLn('PDF создан успешно!');

except

on E: Exception do

begin

WriteLn('Ошибка: ' + E.Message);

raise; // Повторное возбуждение для правильной обработки ошибок

end;

finally

// Очистка ресурсов

TempFiles.Free;

HotPDF.Free;

// Очистка временных файлов

CleanupTempFiles;

end;

Продвинутые функции и современные улучшения

1. Сжатие и оптимизация

Обновленный компонент включает улучшенные опции сжатия:

// Современные настройки сжатия
HotPDF.Compression := cmFlateDecode;  // Лучшее соотношение сжатия
HotPDF.FontEmbedding := True;         // Согласованное отображение шрифтов
HotPDF.InitialZoom := izFitV;         // Оптимальный опыт просмотра

// Современные настройки сжатия

HotPDF.Compression := cmFlateDecode; // Лучшее соотношение сжатия

HotPDF.FontEmbedding := True; // Согласованное отображение шрифтов

HotPDF.InitialZoom := izFitV; // Оптимальный опыт просмотра

2. Улучшенная поддержка метаданных

Полные метаданные документа для профессиональных документов:

// Полная конфигурация метаданных
procedure ConfigureDocumentMetadata(PDF: THotPDF);
begin
  PDF.Title := 'Профессиональный PDF с аннотациями';
  PDF.Author := 'Компонент HotPDF';
  PDF.Subject := 'Всеобъемлющие примеры аннотаций';
  PDF.Keywords := 'PDF, Аннотации, HotPDF, Демонстрация, Интерактивный, Delphi';
  PDF.Creator := 'Демонстрация компонента HotPDF';
  PDF.Producer := 'Компонент HotPDF v2.x';
end;

// Полная конфигурация метаданных

procedure ConfigureDocumentMetadata(PDF: THotPDF);

begin

PDF.Title := 'Профессиональный PDF с аннотациями';

PDF.Author := 'Компонент HotPDF';

PDF.Subject := 'Всеобъемлющие примеры аннотаций';

PDF.Keywords := 'PDF, Аннотации, HotPDF, Демонстрация, Интерактивный, Delphi';

PDF.Creator := 'Демонстрация компонента HotPDF';

PDF.Producer := 'Компонент HotPDF v2.x';

end;

Заключение

Обновленный компонент HotPDF обеспечивает всеобъемлющую поддержку PDF-аннотаций с современными практиками кодирования Delphi. Улучшенный демонстрационный проект показывает все типы аннотаций с улучшенной структурой кода, обработкой ошибок и управлением ресурсами.

Ключевые улучшения в обновленной версии:

Современная структура кода: Использует условную компиляцию для совместимости с XE2+
Улучшенная обработка ошибок: Надежная обработка исключений и очистка ресурсов
Улучшенная производительность: Сжатие FlateDecode и встраивание шрифтов
Лучшая организация: Модульные процедуры для разных типов аннотаций
Профессиональные функции: Полная поддержка метаданных и настройки оптимизации
Всеобъемлющие примеры: Все типы аннотаций с практическими случаями использования

Независимо от того, создаете ли вы системы рецензирования документов, интерактивные формы или мультимедийные презентации, обновленный компонент HotPDF предоставляет инструменты и примеры, необходимые для создания профессиональных, богатых функциями PDF-документов с всеобъемлющей поддержкой аннотаций.

Полный исходный код доступен в каталоге Demo/Delphi/Annotations, предоставляя прочную основу для ваших проектов PDF-аннотаций.

losLab Software Development

Delphi HotPDF компонент для создания PDF аннотаций

Освоение PDF-аннотаций с компонентом HotPDF

Понимание PDF-аннотаций: больше чем просто комментарии

Быстрый старт: простой пример текстовой аннотации

Полный справочник типов аннотаций

1. Текстовые аннотации

2. Аннотации свободного текста

3. Геометрические аннотации

4. Штамповые аннотации

Мультимедийные аннотации: за пределами текстового взаимодействия

5. Аннотации файловых вложений

6. Звуковые аннотации

Полный пример аннотации: улучшенный демонстрационный проект

Лучшие практики для PDF-аннотаций

1. Современная структура кода и совместимость

2. Обработка ошибок и надежность

3. Согласованность цветов и визуальный дизайн

Оптимизация производительности для больших документов

1. Структурированный подход с процедурами

2. Управление памятью и очистка ресурсов

Продвинутые функции и современные улучшения

1. Сжатие и оптимизация

2. Улучшенная поддержка метаданных

Заключение