VPF::Бинаризация изображения - Форум программистов

Таньчик

Дата 15.5.2006, 21:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 6.5.2006

Репутация: нет
Всего: нет

Работаю с изображением. Необходимо его бинаризировать, а также изменять контраст и яркость. Был предложен следующий алгоритм бинаризации:
В компонент Image загружен файл *.bmp

Код


var
  Image: TImage;
  MidColor, Pixel: TColor;

begin
  MidColor := (High (TColor) – Low (TColor)) div 2;
  Pixel := Image.Canvas.Pixels [0, 0];
  if Pixel < MidColor 
    then Pixel := Low (TColor)
    else Pixel := High (TColor);
  Image.Canvas.Pixels [0, 0] := Pixel;
end;

Но почему то не работает. smile

mes

Дата 15.5.2006, 22:29 (ссылка)

(нет голосов)

Загрузка ...

любитель

Профиль
Группа: Участник Клуба
Сообщений: 7954
Регистрация: 14.1.2006

Репутация: нет
Всего: 250

Цитата(Таньчик @ 15.5.2006, 21:26

)

Image.Canvas.Pixels [0, 0] := Pixel;

Эта функция может изменить только один пиксел с координатами (0.0). Если ты хочешь изменить каждый пиксел, то должна вместо фиксированого значения поставить две переменные (строка и столбец) и изменять их значения (в цикле) в нужном диапазоне.

--------------------

http://opendots.net

Droll

Дата 19.5.2006, 21:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 61
Регистрация: 10.11.2004

Репутация: 1
Всего: 3

Небольшой примерчик бинаризации:

Код


procedure dsBinarizeBMP(BMP: TBitmap; const aMid: Byte = 127);
// BMP: TBitmap - собственно само изображение
// aMid: Byte - порог. По умолчанию = 127
type
// Массив из трех байт. Нужен для работы с 24 битными изображениями
  T3b = array[0..2] of byte;
  P3b = ^T3b;
var
  i, j: Integer;
  f3b: P3b;
begin
// Для работы потребуется 24 битное изображение
  BMP.PixelFormat:= pf24bit;
  for i:= 0 to pred(BMP.Height) do
  begin
// Получаем строку изображения
    f3b:= BMP.ScanLine[i];
    for j:= 0 to pred(BMP.Width) do
    begin
// Если среднее арифметическое больше, чем порог
      if (((f3b^[0] + f3b^[1] + f3b^[2]) div 3) > aMid) then
// То цвет белый
        f3b^[0]:= 255
      else
// Иначе цвет черный
        f3b^[0]:= 0;
// Устанавливаем соответственно остальные байты
      f3b^[1]:= f3b^[0];
      f3b^[2]:= f3b^[0];
      if (j < pred(BMP.Width)) then
// Переходим к следующему пикселу
        inc(f3b);
    end;
  end;
end;

procedure TForm1.Button20Click(Sender: TObject);
// Пример
begin
// Загружаем в Image1 изображение 'try.bmp'
  Image1.Picture.Bitmap.LoadFromFile('try.bmp');
// Применяем функцию
  dsBinarizeBMP(Image1.Picture.Bitmap);

// После применения функции, можно сразу же посмотреть изменения в Image1
end;

Удачи!

fr33z3

Дата 13.5.2010, 02:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 14.6.2008

Репутация: нет
Всего: нет

Вот здесь есть уже готовый сорец более адекватной бинаризации:
Бинаризация методом Отсу

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »