Оптимизация создания большого JPEG-файла в Delphi без превышения оперативной памяти

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

Вопрос создания большого JPEG-файла в программах на Delphi является актуальной задачей для разработчиков, работающих с большими объемами графической информации. Проблема заключается в том, что стандартные подходы к работе с изображениями в Delphi предполагают использование объектов TBitmap, которые могут занимать значительный объем оперативной памяти при работе с крупными изображениями. Это может привести к ошибкам, связанным с нехваткой памяти, особенно на системах с ограниченным объемом оперативной памяти.

Описание проблемы

Разработчик столкнулся с необходимостью объединить множество JPEG-файлов малого размера (512x512 пикселей) в один большой JPEG-файл внутри своей программы. Однако, при попытке создать объект TBitmap с большими размерами, например, 20 000x20 000 пикселей, возникает ошибка, связанная с нехваткой оперативной памяти. В то же время, на той же машине с помощью Photoshop удалось создать файл размером 30 000x30 000 пикселей без проблем. Это указывает на возможность решения задачи без использования внешних библиотек, таких как ImageMagick.

Подход к решению

Для решения задачи можно использовать подход, аналогичный тому, как это реализовано в программах типа Photoshop. Суть подхода заключается в написании потокового ввода/вывода данных изображения непосредственно на диск, что позволяет избежать необходимости загрузки всего изображения в оперативную память.

Реализация

1. Создание потока на диске для записи данных большого JPEG-файла.
2. Чтение каждого маленького JPEG-файла и его запись в поток, с учетом компрессии JPEG.
3. Использование библиотеки, такой как NativeJpg, для записи данных в потоковом режиме, что позволяет обрабатывать изображение по частям, не загружая его полностью в память.

Пример кода

procedure WriteBitmapFile(TileCountY, TileCountX: Integer; BM_Stm: TStream);
var
  BM: TBitmap;
  TileY, TileX, PixelY: Integer;
  JpegImage: TJpegImage;
begin
  BM := TBitmap.Create;
  for TileY := 0 to TileCountY-1 do
    for TileX := 0 to TileCountX-1 do
    begin
      JpegImage := TJpegImage.Create; // Инициализация для чтения маленького JPEG
      JpegImage.LoadFromFile('path_to_small_jpeg'); // Загрузка маленького JPEG
      BM.PixelFormat := pf32bit;
      BM.Width := JpegImage.Width;
      BM.Height := JpegImage.Height;
      BM.Canvas.Draw(0, PixelY, JpegImage);
      BM_Stm.Write(BM.ScanLine^, BM.Width * SizeOf(TRGBQuad) * BM.DpiX / 254); // Масштаб для RGBQuad
      PixelY := PixelY + JpegImage.Height;
      JpegImage.Free;
    end;
  BM.Free;
  // После цикла, необходимо обработать последний фрагмент потока, который будет включать сжатие
  BM_Stm.Flush;
  // Здесь должен быть код для инициализации сжатия с помощью библиотеки NativeJpg
  // ...
end;

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

В качестве альтернативы, можно рассмотреть использование специализированных библиотек, предназначенных для работы с большими изображениями, таких как Graphics32. Однако, стоит отметить, что использование сторонних библиотек может потребовать дополнительной интеграции и адаптации под нужды конкретного проекта.

Заключение

Таким образом, для оптимизации создания большого JPEG-файла в Delphi без превышения оперативной памяти, необходимо использовать потоковый ввод/вывода данных с использованием специализированных библиотек для работы с JPEG, например, NativeJpg. Это позволит разработчикам эффективно работать с большими объемами графической информации, не сталкиваясь с ограничениями, связанными с оперативной памятью.

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

Задача состоит в оптимизации процесса создания большого JPEG-файла в среде Delphi, избегая превышения объема оперативной памяти.

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

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

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