VPF::Распознание образа - Форум программистов

Zero

Дата 20.1.2006, 22:58 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Короче ситуация такая: у меня есть отсканированый диск (я прикрепил файл, но реальный размер 7598*7042 пикселей). На нём есть определённые линии, причём на этиъ линияхх, если их реальный размер посмотреть, то два рядом стоящих пикселя немного разные... И чтобы их хотябы образ распознать, то нужно пробежатся по каждому пикселю, и цвет которых совпадает с цветом линни, нужно превращать в чёрный и выводить на другой имейдж, а где пиксель не является цветом линии, то его превращать в белый цвет.
Вот вопрос, то в том, какое поставить условие сравнения, чтобы пиксели которые относятся к линии, оставались распознаными???

Присоединённый файл ( Кол-во скачиваний: 28 )

1.jpg 112,33 Kb

Zero

Дата 22.1.2006, 19:49 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Сам разобрался... Кому надо будет, то это так:

Код


for j:=0 to image1.Height-1 do
    begin
      for i:=0 to image1.Width-1 do
        if GetRValue(image1.Canvas.Pixels[i,j]) in [146..174] then
          image1.Canvas.Pixels[i,j] := 0
        else
          image1.Canvas.Pixels[i,j] := RGB(255, 255, 255);
      application.ProcessMessages;
    end;

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

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