|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.12.2009, 11:17 | #1 |
Форумчанин
Регистрация: 27.09.2008
Сообщений: 152
|
Выделение цифр на картинке
Доброго время суток всем
С наступающим ПРАЗДНИКОМ!!! На моей картинке есть 4 цифры они могут стаять не вряд одна выше другая ниже и по разным растояниям картинка загружена в BitMap цвет картинки чёрно-белый (Монохроный) как в BitMap мне выделить каждую цифру и записать в 4 img(1-4).Canvas...(img1.Canvas.Draw(10, 10, nomerone); (помагите куском кода или ниже) или может у кого нибуть остался исходник програмы которая распознаёт номера на канвертах вот там цифры выделяются и независима от их количества Всем спс С наступающим всех ещё раз! Последний раз редактировалось jone; 29.12.2009 в 11:29. |
29.12.2009, 11:21 | #2 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
>>> тут <<< обсуждение, насчет конвертов - пост #4
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
29.12.2009, 11:45 | #3 |
Форумчанин
Регистрация: 27.09.2008
Сообщений: 152
|
спасибо
выделить получается а вот выдернуть некак ((( помагите |
29.12.2009, 12:03 | #4 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
...а примеры запускали, к примеру этот?
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
29.12.2009, 12:29 | #5 |
Форумчанин
Регистрация: 27.09.2008
Сообщений: 152
|
procedure TfmMain.Button1Click(Sender: TObject);
var i, q1, q2, j : Integer; str1 : String; begin q1 := 0; q2 := 0; //сканирование картинки на предмет черной области (цифры) with Image2.Picture do for i := 2 to Bitmap.Width - 3 do begin if (not Parce1(i - 2)) and (not Parce1(i - 1)) and Parce1(i) and Parce1(i + 1) then q1 := i; if Parce1(i - 1) and Parce1(i) and (not Parce1(i + 1)) and (not Parce1(i + 2)) then for j := 2 to Bitmap.Height - 3 do begin if (not Parce2(j - 2,q1,i)) and (not Parce2(j - 1,q1,i)) and Parce2(j,q1,i) and Parce2(j + 1,q1,i) then q2 := j; if Parce2(j - 1,q1,i) and Parce2(j,q1,i) and (not Parce2(j + 1,q1,i)) and (not Parce2(j + 2,q1,i)) then str1 := str1 + Parce3(q1,q2,i,j); end; end; это немогу зделать для сваей картинки пробую свою картинку получилось вот что распозновалка готова только распознаёт по 1 числу вот я и хочу каждое выдеруть и обработать |
29.12.2009, 12:43 | #6 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
точнее вы хотите выдернуть область изображения с изображением числа, используйте copyrect для выборки уже выделенной области... наиболее приближенным - это использование не этого примера, а самообучения из "Neuro-40", там это сделано для одной цифры, следовательно для нескольких нужно на вход ему последовательно выдать то, что вы резали, сие будет более надежно.
к сожалению, на то он и стилизованный пример, что условия в нем практически идеальные и для приведенных вами картинок оно еще может и справиться, а вот для более сложных изображений + если еще и наклон + зашумление, так просто с наскока задачу не решить... почитайте более внимательно обсуждение с Gonzo, и так же статью - "распознавание автономеров" и остальные ссылки тоже.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
29.12.2009, 12:56 | #7 |
Форумчанин
Регистрация: 27.09.2008
Сообщений: 152
|
можно просто код выдерающий 4 цифры из картинки
или примерчик зделайте если не сложна спасибо |
30.12.2009, 12:23 | #8 |
Старожил
Регистрация: 29.09.2009
Сообщений: 9,713
|
всю темку.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation |
30.12.2009, 15:59 | #9 | |
Форумчанин
Регистрация: 27.09.2008
Сообщений: 152
|
блин оч сложна ((
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
выделение цифр в записи числа | машко | Помощь студентам | 5 | 19.06.2009 16:53 |
Выделение цифр в записи числа, помогите, плиз! | BeaU | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 04.06.2009 13:32 |
текст на картинке | Chudo4258 | HTML и CSS | 21 | 29.05.2009 22:54 |
Надпись на картинке | Lemo | Помощь студентам | 4 | 11.02.2009 20:12 |
Натуральное число, в записи которого п цифр, называется числом Армстронга, если сумма его цифр, возведенн | OTLi4HO | Общие вопросы C/C++ | 6 | 14.01.2009 19:48 |