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

← →
Palladin © (2006-11-12 23:55) [40]

> [38] Gydvin ©

ни в каком... народ частично ушел в детство...

← →
Ketmar © (2006-11-12 23:59) [41]

>[28] KilkennyCat(c) 12-Nov-2006, 23:39
>А теперь ты старый и холодный :)
угу. змей.

>[37] Anatoly Podgoretsky(c) 12-Nov-2006, 23:48
>Так нас уже трое оказывается, ты Кетмаря забыл
да-да. только автор не успел той ветки пояснить, кто из нас виртуал. а если оба -- то чьи.

← →
Anatoly Podgoretsky © (2006-11-13 00:07) [42]

> Ketmar (12.11.2006 23:59:41) [41]

Но зато сказали, что мы железяки.

← →
Ketmar © (2006-11-13 00:15) [43]

>[42] Anatoly Podgoretsky(c) 13-Nov-2006, 00:07
>Но зато сказали, что мы железяки.
боты, боты... завидуют просто автору алгоритма, вот и ругаются.

← →
Gydvin © (2006-11-13 00:17) [44]

Это все Матрица

← →
Германн © (2006-11-13 01:24) [45]

> Anatoly Podgoretsky © (12.11.06 23:48) [37]
>
> > KilkennyCat (12.11.2006 23:39:28) [28]
>
> Так нас уже трое оказывается, ты Кетмаря забыл
>

Не, ну я ещё могу себе представить Керка отвечающего за АП или за Кетмара (с трудом, но могу). Но вот представить себе АП или Кетмара постящих про футбол!!! Это был-бы полный отпад для меня. :-)

← →
pavels777 (2006-11-13 01:31) [46]

Друзья подскажите где я совершил ошибку?
мне надо сравнить две картинки
procedure TForm1.Button3Click(Sender: TObject);
var
Count,x,y,Result:integer;
begin
Count := 0;
for x := 0 to Width-1 do
for y := 0 to Height-1 do
if (Image3.Canvas.Pixels[x,y] = clblack) and (Image4.Canvas.Pixels[x,y] = clblack)
then Inc(Count);
Result := Count * 200 div (Count*clblack+Count*clblack);
label4.Caption:= inttostr(Result);
end;

← →
KilkennyCat © (2006-11-13 01:36) [47]

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

уже здесь.

← →
Германн © (2006-11-13 01:37) [48]

> pavels777 (13.11.06 01:31) [46]
>
> Друзья подскажите где я совершил ошибку?

Пост [0]

← →
MikePetrichenko © (2006-11-13 02:08) [49]

> Пост [0]

Раньше.... Гораздо раньше... В момент выбора профессии/занятия.

← →
pavels777 (2006-11-13 02:25) [50]

Я программист в крупной компании!!

← →
Ketmar © (2006-11-13 02:28) [51]

>[50] pavels777 13-Nov-2006, 02:25
>Я программист в крупной компании!!
несчастная компания... надеюсь, ты там один такой...

хотя что-то мне подсказывает, что "гражданин соврамши", и "крупная компания" (если она есть) называется "дядя вася очень лтд суперсофт".

← →
Ketmar © (2006-11-13 02:29) [52]

хотя... если идёт компания из 20 человек, и среди них "программист" -- то это тоже "программист в крупной компании"...

← →
Германн © (2006-11-13 02:30) [53]

> pavels777 (13.11.06 02:25) [50]
>
> Я программист в крупной компании!!
>

Компании явно не повезло. Увы отдел кадров прошляпил. Начальника - на периферию!

← →
Ketmar © (2006-11-13 02:31) [54]

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

← →
pavels777 (2006-11-13 02:33) [55]

Исправьте пожалуйста где я ошибся?

procedure TForm1.Button3Click(Sender: TObject);

var
Count,x,y,i,Result,chislo:integer;
masks:array[0..5]of integer; {Массив масок}

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

end;
Count := 0;
for x := 0 to Width-1 do
for y := 0 to Height-1 do
if (Image3.Canvas.Pixels[x,y] = clblack) and (Image4.Canvas.Pixels[x,y] = clblack)
then Inc(Count);
Result:=(Count div 10);
if (Result >20)
then
chislo:= masks[i];
label4.Caption:= inttostr(chislo);
end;

← →
MikePetrichenko © (2006-11-13 02:34) [56]

> Я программист в крупной компании!!

Надеюсь, что очень мелкий программист.

P.S. А вдруг он из FineReader???

← →
Ketmar © (2006-11-13 02:34) [57]

хм. везде.
хинт: все image одинакового размера?
хинт: к чему относятся свойства width и height в циклах?

← →
pavels777 (2006-11-13 02:35) [58]

все image одинакового размера

← →
MikePetrichenko © (2006-11-13 02:36) [59]

> Исправьте пожалуйста где я ошибся?

Вот же упертый...
Раньше надо было исправлять. Смею предположить, что лет так 20-25 назад.

← →
pavels777 (2006-11-13 02:37) [60]

← →
Ketmar © (2006-11-13 02:37) [61]

второй хинт обдумывай.

← →
Ketmar © (2006-11-13 02:38) [62]

зыж нет, код тут дают редко. тут все жестокие -- заставляют думать и литературу/справку читать...

← →
pavels777 (2006-11-13 02:38) [63]

if (Image3.Canvas.Pixels[x,y] = clblack) and (Image4.Canvas.Pixels[x,y] = clblack)
надо заменить на if (Image3.Canvas.Pixels[x,y] = clblack) and (massiv[i] [x,y] = clblack) ?

← →
Германн © (2006-11-13 02:39) [64]

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

Может мне кто-нибудь объяснит смысл сего действа!

← →
MikePetrichenko © (2006-11-13 02:39) [65]

> pavels777 (12.11.06 22:39)

Почитай для начала теорию по распознаванию образов и т.п.

← →
pavels777 (2006-11-13 02:40) [66]

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

← →
Германн © (2006-11-13 02:42) [67]

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

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

← →
MikePetrichenko © (2006-11-13 02:42) [68]

> эх. набросились на человека... что-то я стал сентиментальным.
> всё-таки автор начал с "уважаемые друзья", а не "дайте
> код срочно"...
> 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.

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

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

← →
pavels777 (2006-11-13 02:43) [70]

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

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

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

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

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

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

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

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

> 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 рулят )))

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

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

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

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

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

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

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

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

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

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

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

Распознование Текста с сканера! Найти похожие ветки