| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Можно ли распознать картинку при помощи шаблона?
DoktorX © (2006-11-16 12:05:00)Можно ли распознать картинку при помощи шаблона?
ANB (2006-11-16 13:35:00) [1]Где то я это уже видел. Вроде как третья ветка с таким вопросом, и код тот же. Только первый раз признал, что это учебное задание. А учебное полезно делать самостоятельно.
KilkennyCat (2006-11-16 13:32:00) [2]> [25] clickmaker © (16.11.06 13:31)
:)
clickmaker (2006-11-16 13:31:00) [3]
> [24] DoktorX
а чо должно быть? Бурные и продолжительные аплодисменты?
DoktorX (2006-11-16 13:28:00) [4]тишина :(
DoktorX (2006-11-16 13:17:00) [5]вот чо у меня получилось
procedure TForm1.Button3Click(Sender: TObject);
var
Count,x,y,i,Result,chislo:integer;
bm:TBitmap;
begin
for i:=0 to 5 do
begin
bm:=TBitmap.Create;
ImageList1.GetBitmap(i,bm);
Image4.Picture.Bitmap:=bm;
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:= i;
label4.Caption:= inttostr(chislo);
end;
bm.Free;
end;
DoktorX (2006-11-16 13:04:00) [6]А где прочитать про ето с примерчиками ?
Anatoly Podgoretsky (2006-11-16 13:02:00) [7]> DoktorX (16.11.2006 12:52:18) [18]
Некто, этим не занимался.
ЮЮ (2006-11-16 12:55:00) [8]
> некто не занимался с етим ?
Это же тебе задали. Думаешь и в жизни такие простые задачи встречаются? :)
> Раскажите как осуществить сравнительный перебор по тёмным
> пикселам?
У тебя даже и метод решения есть
Anatoly Podgoretsky (2006-11-16 12:55:00) [9]> DoktorX (16.11.2006 12:25:05) [5]
Крайний случай, черный фон на нем черным цветом нарисована цифра, другой крайний случай, белый фон на нем черным цветом, шрифтом Courier New нарисована цифра. Все остальные случаи между этими.
DoktorX (2006-11-16 12:52:00) [10]некто не занимался с етим ?
DoktorX (2006-11-16 12:48:00) [11]пропорции сохранены, поворота нет
ЮЮ (2006-11-16 12:45:00) [12]Насколько покоцанная? Пропорции сохранены? Поворота нет?
Сергей М. (2006-11-16 12:45:00) [13]
> Можно ли распознать картинку при помощи шаблона?
Можно.
Берешь любой OCR-софт, реализованный как сервер автоматизации, цепляешься к нему из своей программы, даешь ему команду, мол, "распознай мне вот эту фигню" и получи готовую "цифру" (или отлуп)
DoktorX (2006-11-16 12:40:00) [14]:)
KilkennyCat (2006-11-16 12:39:00) [15]В институте обычно не только задания дают.
DoktorX (2006-11-16 12:37:00) [16]НС-НЕЙРОННАЯ СЕТЬ
ASoft (2006-11-16 12:37:00) [17]
> а что такое НС ?
без нарастающей суммы :)
DoktorX (2006-11-16 12:36:00) [18]та нет задание дали в институте
KilkennyCat (2006-11-16 12:36:00) [19]> токо без НС
а что такое НС ?
DoktorX (2006-11-16 12:35:00) [20]Раскажите как осуществить сравнительный перебор по тёмным пикселам?
| |
Страницы: 