Загрузка TImageList из TMemoryStream в формате JPEG

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

В данной статье мы рассмотрим процесс загрузки изображения в формате JPEG из TMemoryStream в TImageList с использованием языка программирования Object Pascal в среде разработки Delphi.

Контекст задачи

Пользователь JIMSMITH столкнулся с необходимостью загрузить список изображений (TImageList) из потока памяти (TMemoryStream), содержащего изображение в формате JPEG. В ответе на его вопрос, Anders Melander предложил использовать метод TJPEGImage.LoadFromStream для загрузки изображения из потока, а затем скопировать полученное изображение в TBitmap с помощью метода TBitmap.Assign, после чего добавить TBitmap в TImageList.

Решение задачи

Шаг 1: Подготовка TMemoryStream

Сначала необходимо убедиться, что TMemoryStream содержит данные в формате JPEG. Это может быть реализовано следующим образом:

var
  MemoryStream: TMemoryStream;
begin
  MemoryStream := TMemoryStream.Create;
  try
    // Загрузите данные JPEG в MemoryStream
    MemoryStream.WriteBuffer(ByteArrayOfJPEG, LengthOfByteArray);
  except
    on E: Exception do
      // Обработка ошибки, если это необходимо
  end;
  // Продолжить работу с MemoryStream
end;

Шаг 2: Загрузка изображения из потока

Далее, используем TJPEGImage.LoadFromStream для загрузки изображения из TMemoryStream:

var
  JPEGImage: TJPEGImage;
begin
  JPEGImage := TJPEGImage.Create;
  try
    JPEGImage.LoadFromStream(MemoryStream);
    // Продолжить работу с JPEGImage
  finally
    JPEGImage.Free;
  end;
end;

Шаг 3: Копирование TJPEGImage в TBitmap

После загрузки изображения в TJPEGImage, копируем его в TBitmap с помощью метода Assign:

var
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.Assign(JPEGImage);
    // Продолжить работу с Bitmap
  finally
    Bitmap.Free;
  end;
end;

Шаг 4: Добавление TBitmap в TImageList

И, наконец, добавляем TBitmap в TImageList, используя стандартные методы:

var
  ImageList: TImageList;
begin
  ImageList := TImageList.Create;
  try
    ImageList.Add(Bitmap, nil);
    // Теперь ImageList содержит JPEG изображение
  finally
    ImageList.Free;
  end;
end;

Альтернативное решение

Если по какой-то причине вышеописанный метод не подходит, можно рассмотреть альтернативный подход, например, использование компонента TJPEGPicture для загрузки изображения из потока памяти:

var
  JPEGPicture: TJPEGPicture;
begin
  JPEGPicture := TJPEGPicture.Create(Self);
  try
    JPEGPicture.LoadFromStream(MemoryStream);
    // Используйте JPEGPicture в вашем приложении
  finally
    JPEGPicture.Free;
  end;
end;

Далее, можно скопировать TJPEGPicture в TImageList, если это возможно, или преобразовать его в TBitmap и следовать стандартной процедуре добавления изображений в список.

Заключение

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

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

Задача заключается в загрузке изображения в формате JPEG из потока памяти `TMemoryStream` в список изображений `TImageList` с использованием языка Object Pascal в среде разработки Delphi.

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

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

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