Использование изображений из архива в компоненте TImage в Delphi с помощью TMemoryStream

Delphi , Синтаксис , Память и Указатели

Вопрос о работе с изображениями, заархивированными в формате ZIP, и их извлечении непосредственно в память программы, а не на диск, является актуальным для разработчиков, использующих Delphi и Pascal. В данной статье мы рассмотрим, как можно извлечь изображения из ZIP-архива в память программы, используя компонент TMemoryStream, и затем загрузить их в компонент TImage.

Проблема

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

Решение

Для решения задачи можно использовать класс TZipFile из библиотеки System.Zip, который позволяет работать с архивами. Методы Read класса TZipFile позволяют прочитать содержимое файлов архива в поток, в том числе и в TMemoryStream.

uses
  Vcl.AxCtrls,
  System.Zip;

procedure TForm41.Button1Click(Sender: TObject);
var
  LStream: TStream;
  LZipFile: TZipFile;
  LOleGraphic: TOleGraphic;
  LocalHeader: TZipHeader;
begin
  LZipFile := TZipFile.Create;
  try
    // Открытие архива
    LZipFile.Open('C:\Users\Dexter\Desktop\registry.zip', zmRead);
    // Создание потока в памяти
    LStream := TMemoryStream.Create;
    try
      // Чтение файла из архива в поток
      LZipFile.Read('SAM_0408.JPG', LStream, LocalHeader);
      // Работа с потоком
      LStream.Position:=0;
      // Создание объекта для загрузки изображения
      LOleGraphic := TOleGraphic.Create;
      try
        // Загрузка изображения из потока в объект TOleGraphic
        LOleGraphic.LoadFromStream(LStream);
        // Перенос изображения в компонент TImage
        Image1.Picture.Assign(LOleGraphic);
      finally
        LOleGraphic.Free;
      end;
    finally
      LStream.Free;
    end;
  finally
    LZipFile.Free;
  end;
end;

Подробности

Индексация файлов в архиве начинается с нуля, и максимальное значение индекса можно получить через свойство FileCount класса TZipFile. Важно правильно обращаться с объектами TStream и TOleGraphic, чтобы избежать утечек памяти.

Дополнительные вопросы

Разработчик также интересовался, как сохранить поток доступным на протяжении всего времени работы программы, чтобы изображение оставалось доступным. Вопрос об уничтожении кода при завершении программы в Delphi аналогичен C++, где используется обработчик завершения работы приложения (OnTerminate).

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

Заключение

Использование TMemoryStream и класса TZipFile позволяет извлечь изображения из ZIP-архива прямо в память программы и загрузить их в компоненты TImage для дальнейшей работы. Важно правильно управлять ресурсами и объектами, чтобы избежать утечек памяти и ошибок доступа к памяти.

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

Вопрос связан с использованием изображений из архива в компоненте TImage в Delphi с помощью TMemoryStream для прямого извлечения изображений в память программы без сохранения их на диск.

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

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

:: Главная :: Память и Указатели ::