Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.12.2009, 11:17   #1
jone
Форумчанин
 
Аватар для jone
 
Регистрация: 27.09.2008
Сообщений: 152
Хорошо Выделение цифр на картинке

Доброго время суток всем
С наступающим ПРАЗДНИКОМ!!!

На моей картинке есть 4 цифры
они могут стаять не вряд одна выше другая ниже и по разным растояниям
картинка загружена в BitMap
цвет картинки чёрно-белый (Монохроный)
как в BitMap мне выделить каждую цифру и записать в 4 img(1-4).Canvas...(img1.Canvas.Draw(10, 10, nomerone);

(помагите куском кода или ниже)


или может у кого нибуть остался исходник програмы которая распознаёт номера на канвертах вот там цифры выделяются и независима от их количества

Всем спс

С наступающим всех ещё раз!

Последний раз редактировалось jone; 29.12.2009 в 11:29.
jone вне форума Ответить с цитированием
Старый 29.12.2009, 11:21   #2
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

>>> тут <<< обсуждение, насчет конвертов - пост #4
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 29.12.2009, 11:45   #3
jone
Форумчанин
 
Аватар для jone
 
Регистрация: 27.09.2008
Сообщений: 152
По умолчанию

спасибо
выделить получается а вот выдернуть некак (((
помагите
jone вне форума Ответить с цитированием
Старый 29.12.2009, 12:03   #4
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

...а примеры запускали, к примеру этот?
Изображения
Тип файла: jpg Копировать из новый-2.jpg (36.0 Кб, 220 просмотров)
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 29.12.2009, 12:29   #5
jone
Форумчанин
 
Аватар для jone
 
Регистрация: 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 числу
вот я и хочу каждое выдеруть и обработать
jone вне форума Ответить с цитированием
Старый 29.12.2009, 12:43   #6
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

точнее вы хотите выдернуть область изображения с изображением числа, используйте copyrect для выборки уже выделенной области... наиболее приближенным - это использование не этого примера, а самообучения из "Neuro-40", там это сделано для одной цифры, следовательно для нескольких нужно на вход ему последовательно выдать то, что вы резали, сие будет более надежно.

к сожалению, на то он и стилизованный пример, что условия в нем практически идеальные и для приведенных вами картинок оно еще может и справиться, а вот для более сложных изображений + если еще и наклон + зашумление, так просто с наскока задачу не решить... почитайте более внимательно обсуждение с Gonzo, и так же статью - "распознавание автономеров" и остальные ссылки тоже.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 29.12.2009, 12:56   #7
jone
Форумчанин
 
Аватар для jone
 
Регистрация: 27.09.2008
Сообщений: 152
По умолчанию

можно просто код выдерающий 4 цифры из картинки
или примерчик зделайте если не сложна

спасибо
Изображения
Тип файла: bmp 2021.bmp (8.2 Кб, 160 просмотров)
jone вне форума Ответить с цитированием
Старый 30.12.2009, 12:23   #8
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

всю темку.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 30.12.2009, 15:59   #9
jone
Форумчанин
 
Аватар для jone
 
Регистрация: 27.09.2008
Сообщений: 152
По умолчанию

блин оч сложна ((

Цитата:
можно просто код выдерающий 4 цифры из картинки
или примерчик зделайте если не сложна

спасибо
jone вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
выделение цифр в записи числа машко Помощь студентам 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