Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Распознование Текста с сканера! [D7]


Страницы:   1 2 3 4 5

pavels777 ©   (2006-11-12 22:39:00) 

Уважаемые друзья!
Мне задали сделать программу которая распознаёт буквы, отсканированные с плохого листа бумаги.
Функцию очистки от шума я сделал. а вот сравнение с шаблоном в масиве сделать не получаеться :(
Я делал по сравнению количества чёрных пикселей, но ето приводит к неправильному результату!
Помогите пожалуйста!!


Anatoly Podgoretsky   (2006-11-13 14:33:00) [1]

> MikePetrichenko  (13.11.2006 14:04:24)  [84]

Ну это очень мягко, но пойдет.

--


MikePetrichenko   (2006-11-13 14:04:00) [2]


> Почему в наказание?
> Как раз по делу, автор начинающий в данной области

IMHO, у него уровень начинающего программиста, а не программиста, начинающего писать распознавалку образов.


Anatoly Podgoretsky   (2006-11-13 13:43:00) [3]

> MikePetrichenko  (13.11.2006 13:12:21)  [81]

Почему в наказание?
Как раз по делу, автор начинающий в данной области

--


LexXL   (2006-11-13 13:13:00) [4]

Пасиб :) ща буду творить ....


MikePetrichenko   (2006-11-13 13:12:00) [5]


> Хм.. распознавание текста в начинающих?
> Жесткие, однако, требования к нынешней молодежи...

Да нет, автор профессией ошибся, а сюда поместили, чтобы другим неповадно было.


Kolan   (2006-11-13 13:11:00) [6]

> Коля, давай ты будешь излагать только то, в чем ты совершенно
> уверен в теории и на практике.

Давай, только какраз на практике в прошлом году нам задавали делать распознание текста(букв) разными методами. Втч шаблоном, нейро сетью ... Так что такие лабы бывают, делается за день.

Понятно что не конкурент FineFeader и распознает фигово. Но для того, чтобы в голове отложилось как это вообще делают достаточно...


KilkennyCat   (2006-11-13 13:11:00) [7]

> [76] LexXL ©   (13.11.06 12:56)

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


clickmaker   (2006-11-13 13:07:00) [8]

Хм.. распознавание текста в начинающих?
Жесткие, однако, требования к нынешней молодежи...


LexXL   (2006-11-13 13:06:00) [9]

http://www.diploms.com/inf/teor_inf.htm- но там "теория"(платная правда можешь обратиться к яше за free)

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


LexXL   (2006-11-13 12:56:00) [10]

извените вопрос не в тему но не молгибы вы напомнить мне условия алгоритма игры life, давно хотел развлечься  :)


Anatoly Podgoretsky   (2006-11-13 07:45:00) [11]

> Германн  (13.11.2006 1:24:45)  [45]

Не напрашиваяся


Gydvin   (2006-11-13 06:33:00) [12]


>  if (Image3.Canvas.Pixels[x,y] = clblack) and (Image4.Canvas.
> Pixels[x,y] = clblack)
>  then Inc(Count);
> Result:=(Count div 10);

Мдя... Timage, Pixels[x,y]....
Tbitmap и scanline рулят )))


MikePetrichenko   (2006-11-13 02:50:00) [13]


> решил избавиться от автора кардинально и надолго? %-)

Уже не получится... Автор выжил.


Ketmar   (2006-11-13 02:49:00) [14]

и где этот массив упоминается в первом цикле?


MikePetrichenko   (2006-11-13 02:48:00) [15]


> masks:array[0..5]of integer; {Массив масок}

Простое объявление массива не освобождает тебя от обязанности его заполнить.

Компилятор еще не снабдили телепатором (хотя можешь пользовать идею для следующего проекта).

И врядли картинки будут иметь тип Integer (хотя можно CRC посчитать).


pavels777   (2006-11-13 02:43:00) [16]

masks:array[0..5]of integer; {Массив масок}
> Германн


Ketmar   (2006-11-13 02:42:00) [17]

>[66] pavels777 13-Nov-2006, 02:40
>есть 6 картинок  их надо загнать в масив, а потом сравнит
>с изображением.
таки не угадал. ты загружаешь в image ОДНУ картинку. последнюю. потому что массивом там и не пахнет.

>[65] MikePetrichenko(c) 13-Nov-2006, 02:39
>Почитай для начала теорию по распознаванию образов и т.п.
решил избавиться от автора кардинально и надолго? %-)


MikePetrichenko   (2006-11-13 02:42:00) [18]


> эх. набросились на человека... что-то я стал сентиментальным.
>  всё-таки автор начал с "уважаемые друзья", а не "дайте
> код срочно"...
> pavels777, ты не обижайся. тебе уже ответили, собственно.
>  дальше пошёл наш обычный трёп.


Ну все... Пристыдил. Будем код смотреть:

> for i:=0 to 5 do
>  begin
>   Image4.Picture.LoadFromFile(ExtractFilePath(Application.
> Exename)+'22\'+InttoStr(i)+'.bmp');
>
> end;

Бред какой-то. Я даже с недосыпу такое не напишу. Вдумайся, что сие делает.


> for x := 0 to Width-1 do
> for y := 0 to Height-1 do

Врядли хорошая идея прать размер формы и сравнивать Image.


Германн   (2006-11-13 02:42:00) [19]


> pavels777   (13.11.06 02:40) [66]
>
> есть 6 картинок  их надо загнать в масив, а потом сравнит
> с изображением.
>

А массив-то где?


pavels777   (2006-11-13 02:40:00) [20]

есть 6 картинок  их надо загнать в масив, а потом сравнит с изображением.


Страницы:   1 2 3 4 5

Наверх

Титульная страница Поиск, карта сайта Написать письмо