Определение и вырезание объектов на изображениях с использованием Delphi и Pascal

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

Определение и вырезание объектов на изображениях в Delphi

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

Понимание задачи

Нам необходимо определить прямоугольную область на изображении, которая содержит объекты, отличные по цвету от фона. Для этого нужно найти крайние точки (верхнюю, нижнюю, левую и правую) на изображении, где цвет отличается от цвета фона. Эти точки образуют прямоугольник, который и будет являться интересующей областью.

Пример изображения

На изображениях, приведенных в описании задачи, можно увидеть исходное изображение и результат работы алгоритма вырезания. На левой стороне изображен исходный кадр, а на правой стороне — результат после вырезания области с объектом.

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

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

1. Инициализация переменных для хранения крайних точек прямоугольника.
2. Перебор строк изображения с помощью цикла.
3. Перебор пикселей в строке с помощью цикла.
4. Сравнение цвета текущего пикселя с цветом фона.
5. Обновление крайних точек, если пиксель отличается от фона.
6. Запоминание крайних точек, которые содержат объекты, для получения итогового прямоугольника.

Пример кода на Object Pascal, который реализует данный алгоритм:

procedure CalcCloseCrop(ABitmap: TBitmap; const ABackColor: TColor; out ACropRect: TRect);
var
  X, Y: Integer;
  Color: TColor;
  Pixel: PRGBTriple;
  RowClean, LastClean: Boolean;
begin
  // Проверка формата изображения
  if ABitmap.PixelFormat <> pf24bit then
    raise Exception.Create('Инcorrect bit depth, bitmap must be 24-bit!');

  // Инициализация крайних точек
  ACropRect := Rect(ABitmap.Width, ABitmap.Height, 0, 0);
  LastClean := False;

  // Перебор строк изображения
  for Y := 0 to ABitmap.Height-1 do
  begin
    RowClean := True;
    Pixel := ABitmap.ScanLine[Y];

    // Перебор пикселей в строке
    for X := 0 to ABitmap.Width - 1 do
    begin
      Color := RGB(Pixel.rgbtRed, Pixel.rgbtGreen, Pixel.rgbtBlue);
      if Color <> ABackColor then
      begin
        // Обновление крайних точек для строки
        RowClean := False;
        if X < ACropRect.Left then
          ACropRect.Left := X;
        if X + 1 > ACropRect.Right then
          ACropRect.Right := X + 1;
      end;
      Inc(Pixel);
    end;

    // Запоминание крайних точек для всего изображения
    if not RowClean then
    begin
      if not LastClean then
      begin
        LastClean := True;
        ACropRect.Top := Y;
      end;
      if Y + 1 > ACropRect.Bottom then
        ACropRect.Bottom := Y + 1;
    end;
  end;

  // Корректировка ACropRect в случае пустого прямоугольника
  if ACropRect.IsEmpty then
  begin
    // Установка значений для неопределенных точек
    if ACropRect.Left = ABitmap.Width then
      ACropRect.Left := 0;
    if ACropRect.Top = ABitmap.Height then
      ACropRect.Top := 0;
    if ACropRect.Right = 0 then
      ACropRect.Right := ABitmap.Width;
    if ACropRect.Bottom = 0 then
      ACropRect.Bottom := ABitmap.Height;
  end;
end;

Вырезание области из изображения

После определения прямоугольника с объектами, можно вырезать эту область из исходного изображения, создав новый битмап с размером равным размеру ACropRect и скопировав в него область из исходного изображения.

Заключение

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

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

Задача заключается в разработке алгоритма для определения и вырезания объектов на изображениях в Delphi, которые отличаются по цвету от фона, с использованием Object Pascal для автоматической обработки изображений.

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

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

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