Как добавить дату создания фото в метаданные с помощью Delphi

Delphi , Графика и Игры , Изображения

При разработке приложения для работы с фотографиями часто возникает задача добавления даты создания фотографии непосредственно на изображение, а также сохранения этой информации в метаданных файла. В данной статье мы рассмотрим, как решить эту задачу, используя язык программирования Object Pascal в среде разработки Delphi.

Проблема

Разработчик сталкивается с необходимостью вставки даты создания фотографии на само изображение и сохранением этой информации в метаданных файла. Неясно, какие компоненты и методы следует использовать для выполнения этой задачи.

Решение

Для решения поставленной задачи можно использовать следующий подход:

1. Загрузить изображение в объект TBitmap.
2. Нарисовать дату на изображении с помощью TCanvas.
3. Сохранить измененное изображение в файл.

Пример кода на Object Pascal для добавления даты на изображение:

var
  R: TRectF;
  Img: TBitmap;
begin
  Img := TBitmap.Create;
  try
    Img.LoadFromFile('C:\MyPic.jpg');
    R.Create(Img.Width - 100, Img.Height - 100, Img.Width, Img.Height);
    Img.Canvas.BeginScene;
    Img.Canvas.Fill.Kind := TBrushKind.Solid;
    Img.Canvas.Stroke.Thickness := 12;
    Img.Canvas.Stroke.Color := TAlphaColors.White;
    Img.Canvas.FillText(
      R, DateToStr(Now), False, 100, [TFillTextFlag.RightToLeft], TTextAlign.Center);
    Img.Canvas.EndScene;
    Img.SaveToFile('D:\Result.jpg');
  finally
    Img.Free;
  end;

Также важно установить дату создания файла с помощью функции TFile.SetCreationTime().

Альтернативные методы

Для получения информации о дате создания фотографии из метаданных (EXIF) можно использовать сторонние библиотеки, например:

• dEXIF
• CCR EXIF

Эти библиотеки предоставляют функционал для чтения и записи EXIF данных, что позволяет работать с датой создания фотографии на более низком уровне.

Заключение

В статье рассмотрены базовые методы добавления даты на изображение и сохранения метаданных в файлах. Используя примеры кода и рекомендации по работе с TBitmap и TCanvas, разработчики могут легко интегрировать эту функциональность в свои приложения на Delphi.

Создано по материалам из источника по ссылке.

Статья посвящена добавлению даты создания фотографии на само изображение и сохранению этой информации в метаданных файла с использованием языка программирования Object Pascal в среде Delphi.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Изображения ::