Оптимизация алгоритма изменения цвета пикселей в изображениях на Delphi

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

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

В данной статье мы рассмотрим, как можно оптимизировать процесс изменения цвета пикселей, используя свойство ScanLine объекта TBitmap, которое позволяет быстро работать с пикселями изображения.

Проблема

В коде ниже представлен пример алгоритма, который изменяет цвет пикселей изображения с белого на чёрный. Однако, этот алгоритм работает медленно, так как использует свойство Pixels объекта TCanvas, что является неоптимальным:

procedure TForm1.Button1Click(Sender: TObject);
var
  BitMap1 : TBitmap;
  X, Y, Size : Integer;
  P: Cardinal;
begin
  BitMap1 := TBitmap.Create;
  BitMap1.LoadFromFile('image1.bmp');

  for Y := 0 to BitMap1.Height - 1 do
  begin
    for X := 0 to BitMap1.Width - 1 do
    begin
      P := BitMap1.Canvas.Pixels[X, Y];
      if P = 255 then
        BitMap1.Canvas.Pixels[X, Y] := 0;
    end;
  end;

  Image1.Picture.Assign(BitMap1);
end;

Оптимизация

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

Пример оптимизированного кода:

procedure ChangeWhiteToBlack(var Bitmap: TBitmap);
var
  scanline: PRGBTriple;
  y, x: Integer;
begin
  Assert(Bitmap.PixelFormat = pf24bit);
  for y := 0 to Bitmap.Height - 1 do
  begin
    scanline := Bitmap.ScanLine[y];
    for x := 0 to Bitmap.Width - 1 do
    begin
      with scanline^ do
      begin
        if (rgbtBlue = 255) and (rgbtGreen = 255) and (rgbtRed = 255) then
          FillChar(scanline^, SizeOf(TRGBTriple), 0);
      end;
      Inc(scanline, SizeOf(TRGBTriple));
    end;
  end;
end;

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

Заключение

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

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

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

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

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

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