Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.10.2011, 20:55   #1
Vova777
Уважаемый
Форумчанин
 
Аватар для Vova777
 
Регистрация: 04.07.2010
Сообщений: 318
По умолчанию Свойство ScanLine. Анализ пикселей.

Как свойством BitMap.ScanLine проверить изображение (200х200 пкс) на наличие черных пикселей? Результат вывести в двумерный массив 200х200 ячеек.
даешь высокое напряжение
Vova777 вне форума Ответить с цитированием
Старый 06.10.2011, 22:01   #2
Asinkrit
Пользователь
 
Аватар для Asinkrit
 
Регистрация: 02.04.2011
Сообщений: 48
По умолчанию

Код:

type

  _RGB = record
    b,
    g,
    r: byte;
  end;

  ARGB = array[0..1] of _RGB;

  PARGB = ^ARGB;

  TBuffer = array[0..199,0..199] of boolean;

...

var
  p: PARGB;
  x, y: Integer;
  FBuffer:TBuffer;
begin
  for y:=0 to 199 do
    begin
    p:=aBitMap.ScanLine[y];
    for x:=0 to 199 do
      FBuffer[x,y]:=((p[x].b = 0) and (p[x].g = 0) and (p[x].r = 0));
    end;
end;
Asinkrit вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Координаты пикселей. Vova777 Общие вопросы Delphi 10 07.07.2011 17:27
Создание TBitmap с ScanLine другого битмапа... SalasAndriy Мультимедиа в Delphi 7 25.10.2010 22:47
Указатели. Объясните пожалуйста на примере scanline. TwiX Общие вопросы Delphi 3 19.10.2009 11:24
Изменение пикселей Antitime Мультимедиа в Delphi 2 27.08.2009 16:37
Таблица пикселей bl0w Мультимедиа в Delphi 1 19.01.2009 00:32

Реклама для незарегистрированных, регистрация на форуме