Использование TBitmap.LoadFromStream в фоновом потоке в Delphi: избегаем блокировки основного потока

Delphi , Компоненты и Классы , Потоки

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

Проблема блокировки основного потока

Пользователь domus столкнулся с проблемой блокировки основного потока при загрузке PNG-изображения в TBitmap с использованием TBitmap.LoadFromStream в фоновом потоке. Несмотря на то, что операции с изображением не требовали взаимодействия с пользовательским интерфейсом, наблюдались задержки в выполнении программы.

Решение проблемы

В ответах на вопрос domus было предложено несколько решений:

1. Использование библиотеки Graphics32, которая предоставляет альтернативный класс Bitmap32, не блокирующий основной поток. Однако, необходимо убедиться в поддержке FMX.

2. Переключение на другой рендерер, например, Skia, который может решить проблему блокировки, связанную с использованием D2D.

3. Использование TBitmapSurface для загрузки изображения, что может избежать блокировки, связанной с доступом к GPU.

4. Проверка кода на наличие некорректного использования TThreadedQueue, которое может приводить к блокировке основного потока.

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

Если вышеупомянутые решения не подходят или не решают проблему, можно рассмотреть альтернативный подход:

• Использование асинхронного подхода с помощью компонентов, таких как TIdHTTP для загрузки данных в поток, а затем их обработки в фоновом потоке с помощью TBitmap.

procedure TForm1.LoadBitmapFromStream(const AStream: TStream; const ABitmap: TBitmap);
var
  Buffer: TMemoryStream;
begin
  Buffer := TMemoryStream.Create;
  try
    AStream.CopyTo(Buffer, 0);
    ABitmap.LoadFromStream(Buffer);
  finally
    Buffer.Free;
  end;
end;

procedure TForm1.LoadBitmapAsync(const AFileName: string; const ABitmap: TBitmap);
var
  Stream: TMemoryStream;
  WorkerThread: TThread;
begin
  Stream := TMemoryStream.Create;
  try
    TIdHTTP.Get(AFileName, Stream);
    WorkerThread := TThread.CreateAnonymousThread(
      procedure
      begin
        LoadBitmapFromStream(Stream, ABitmap);
      end
    );
    WorkerThread.Start;
  finally
    Stream.Free;
  end;
end;

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

Заключение

При работе с TBitmap.LoadFromStream в фоновом потоке важно учитывать, что некоторые операции могут приводить к блокировке основного потока. Для решения этой проблемы можно использовать альтернативные библиотеки, такие как Graphics32, или же переключиться на другой рендерер, например, Skia. Также важно тщательно проверять свой код на отсутствие некорректного использования многопоточности, например, использование TThreadedQueue. В случае необходимости можно применить асинхронный подход с загрузкой данных в потоке и их обработкой в фоновом потоке, что позволит избежать задержек в пользовательском интерфейсе.

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

Context: В статье рассмотрены причины и решения проблемы блокировки основного потока при использовании TBitmap.LoadFromStream в фоновом потоке в Delphi, предложены альтернативные библиотеки и подходы для обеспечения плавного用户体验流畅

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

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

:: Главная :: Потоки ::