Преобразование 32-битного битмапа в градации серого: простой метод с GDI

Delphi , Синтаксис , Справочник по API-функциям

Преобразование изображения в градации серого является распространенной задачей в компьютерной графике. В контексте использования GDI (Graphic Device Interface) для работы с графикой в операционных системах Windows, такая задача может быть выполнена разными способами. В данном случае рассматривается преобразование 32-битного битмапа в градации серого без использования GDI+.

Проблема

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

Решение

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

Подтвержденный ответ

В доступных функциях GDI нет такой, которая бы выполняла преобразование в градации серого напрямую. Однако, существует алгоритм вычисления яркости пикселей, рекомендованный ITU (International Telecommunication Union), который используется для преобразования цветного изображения в градации серого. Этот алгоритм основан на формуле, учитывающей интенсивность красного, зеленого и синего цветов каждого пикселя.

Пример кода на Object Pascal (Delphi) для преобразования битмапа в градации серого:

procedure BitmapGrayscale(ABitmap: TBitmap);
type
  PPixelRec = ^TPixelRec;
  TPixelRec = packed record
    B: Byte;
    G: Byte;
    R: Byte;
  end;
var
  X, Y: Integer;
  Gray: Byte;
  Pixel: PPixelRec;
begin
  for Y := 0 to ABitmap.Height - 1 do
  begin
    Pixel := ABitmap.ScanLine[Y];
    for X := 0 to ABitmap.Width - 1 do
    begin
      Gray := Round((0.299 * Pixel.R) + (0.587 * Pixel.G) + (0.114 * Pixel.B));
      Pixel.R := Gray;
      Pixel.G := Gray;
      Pixel.B := Gray;
      Inc(Pixel);
    end;
  end;
end;

Перед использованием этого кода убедитесь, что битмап имеет формат 24 бит на пиксель.

Альтернативный ответ

В качестве альтернативы можно создать палитрованный DIB Section с 8 битами на пиксель и 256 цветами, инициализировав палитру оттенками серого от 0 до 255. Затем, используя функцию BitBlt, можно перерисовать исходное изображение в градации серого.

Пример кода на C++ (для понимания идеи, так как полноценный пример на Object Pascal не был предоставлен в контексте):

// Создание палитрованного DIB Section
// Инициализация палитры оттенками серого
// Использование BitBlt для перерисовки изображения в градациях серого

Заключение

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

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

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

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

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

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

:: Главная :: Справочник по API-функциям ::