Поддержка libTIFF для Lazarus: чтение и запись файлов TIF.

Delphi , Компоненты и Классы , TImage и TImageList

В мире разработки под Lazarus и Pascal часто возникает необходимость работы с графическими форматами, в частности, с форматом TIFF. Хотя стандартная библиотека fcl-image предоставляет базовую поддержку TIFF, она имеет свои ограничения. В этой статье мы рассмотрим библиотеку libTIFF, предоставляющую расширенные возможности для работы с TIFF-файлами в Lazarus, а также обсудим её преимущества и недостатки.

Что такое libTIFF?

libTIFF – это библиотека с открытым исходным кодом (лицензия MIT), предназначенная для чтения и записи файлов TIFF (Tagged Image File Format). Она является де-факто стандартом для работы с этим форматом и поддерживает широкий спектр кодеков сжатия и других возможностей.

Почему может потребоваться libTIFF вместо fcl-image?

Как отмечалось в обсуждениях на форуме, стандартная поддержка TIFF в fcl-image имеет некоторые ограничения:

• Ограниченная поддержка форматов: fcl-image может не поддерживать некоторые менее распространенные форматы TIFF, такие как CCITT Group 3.
• Проблемы с записью: При записи TIFF-файла с помощью fcl-image, последующее чтение этого файла обратно в fcl-image может привести к ошибке "Tags must be in ascending order".

Библиотека libTIFF для Lazarus, разработанная Xelitan (https://github.com/Xelitan/TIFF-for-Delphi-Lazarus-Free-Pascal/), решает эти проблемы, предоставляя более полную и надежную поддержку TIFF.

Использование libTIFF в Lazarus

Использование libTIFF в Lazarus достаточно простое. Для начала необходимо скачать библиотеку с GitHub и добавить её в свой проект. Основные классы, которые вам понадобятся, это TTifImage.

Пример кода для чтения TIFF-файла:

uses
  Classes, SysUtils, Graphics, TifImage;

procedure TForm1.Button1Click(Sender: TObject);
var
  t: TTifImage;
begin
  Image1.Picture.LoadFromFile('test.tif'); // Загрузка из файла
end;

Пример кода для записи TIFF-файла:

uses
  Classes, SysUtils, Graphics, TifImage;

procedure TForm1.Button2Click(Sender: TObject);
var
  t: TTifImage;
begin
  t := TTifImage.Create;
  t.Assign(Image1.Picture.Bitmap);
  t.SetCompression(COMPRESSION_LZW);  // Выбор алгоритма сжатия
  t.SaveToFile('out.tif');
  t.Free;
end;

В примере выше используются различные алгоритмы сжатия, такие как COMPRESSION_LZW, COMPRESSION_NONE, COMPRESSION_CCITT3, COMPRESSION_CCITT4, COMPRESSION_JPEG, COMPRESSION_ADOBE_DEFLATE, COMPRESSION_PACKBITS, COMPRESSION_DEFLATE, COMPRESSION_LZMA2, COMPRESSION_ZSTD, COMPRESSION_WEBP.

Решение проблемы с порядком тегов (если используется fcl-image):

Если вы столкнулись с проблемой, когда TIFF-файл, записанный с помощью fcl-image, не может быть прочитан обратно, то использование libTIFF является отличным решением. Однако, если вы хотите продолжать использовать fcl-image, можно попробовать изменить порядок тегов при записи. Это может быть сложной задачей, и libTIFF предоставляет более простое и надежное решение.

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

Как было отмечено в обсуждениях, иногда изображение может отображаться в неправильном порядке. Это можно исправить, изменив значение свойства Orient в классе TTifImage. Например, замена "if Orient = 0 then" на "if Orient = 1 then" в файле TifImage.pas может решить проблему. Также, для корректной работы с TTifImage, необходимо добавить модуль Math в секцию uses.

Реализация DPI:

В последних версиях библиотеки libTIFF для Lazarus реализована возможность установки DPI. Для этого необходимо использовать метод SetDpi класса TTifImage:

uses
  Classes, SysUtils, Graphics, TifImage;

procedure TForm1.Button3Click(Sender: TObject);
var
  t: TTifImage;
begin
  t := TTifImage.Create;
  t.Assign(Image1.Picture.Bitmap);
  t.SetCompression(COMPRESSION_LZW);
  t.SetDpi(300); // Установка DPI
  t.SaveToFile('out.tif');
  t.Free;
end;

Альтернативные решения:

Хотя libTIFF предоставляет отличное решение для работы с TIFF, существуют и другие альтернативы:

• fcl-image: Если вам не требуется поддержка специфических форматов или алгоритмов сжатия, то fcl-image может быть достаточным.
• Другие библиотеки: Существуют и другие библиотеки для работы с TIFF, но libTIFF является наиболее популярной и хорошо поддерживаемой.

Заключение:

Библиотека libTIFF для Lazarus предоставляет расширенные возможности для чтения и записи файлов TIFF, решая проблемы, с которыми можно столкнуться при использовании стандартной библиотеки fcl-image. Благодаря простой интеграции и поддержке широкого спектра форматов, libTIFF является отличным выбором для разработчиков, работающих с графическими данными в Lazarus и Pascal. Не забудьте проверить наличие вирусов при скачивании библиотеки и использовать надежный антивирус.

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

Это описание статьи о библиотеке libTIFF и её применении в Lazarus для работы с TIFF-файлами.

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

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

:: Главная :: TImage и TImageList ::