Поиском замкнутых областей на изображении

@vetatto · Регистрация: 03.10.2011

Студворк — интернет-сервис помощи студентам

Привет всем. Есть много изображений вида
https://www.cyberforum.ru/atta... 1361512297
Из него нужно выделить основную массу стеблей от земли. Так как очень схожий цвет фона и стеблей многие алгоритмы просто не подходят.
Удалось сделать с изображением такое
https://www.cyberforum.ru/atta... 1361512297
В принципе описание слоя стеблей нормальное, но есть большое но, остается много мусора (области земли мелкие).

Сам вопрос вот в чем:
1. Как найти все не белые и не красные области и и посчитать их площади.

В делфи не очень силен, если не сложно приведите алгоритм а если есть возможность и пример кода поиска этих областей. Очень сильно нужно для диплома. С меня пиво)))

Спасибо, друзья!

@mss · 22.02.2013, 10:45

Подключи и используй OpenCV - такие простые задачи она щелкает как орехи, в дюжину строк кода.

@vetatto · 22.02.2013, 11:05 **[ТС]**

Сообщение от mss

Подключи и используй OpenCV - такие простые задачи она щелкает как орехи, в дюжину строк кода.

Вот и проблема в том, что я OpenCV не знаю(. А информация не нашел по этой теме(( Нашел там только алгоритмы выделения контура на Си, но как это перенести в Делфи не могу понять. Если есть возможность подскажите пожалуйста хотябы ссылкой на что-нибудь из этого раздела. И еще как прикрутить OpenCV к делфи? Есть у кого рабочие заголовочные файлы?

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

@mss · 22.02.2013, 11:11

Сообщение от vetatto

Есть у кого рабочие заголовочные файлы?

Вот

@vetatto · 22.02.2013, 17:54 **[ТС]**

Сообщение от mss

Вот

Ругается delphi на них. Проект просто не запускается. Это если использовать файл opencv2.pas, все dll добавил, какие проект просил и какие есть в папке opencv2.3.1. В чем может быть проблема не подскажите?

@mss · 22.02.2013, 18:37

Рано тебе этим заниматься.
Подучи основы.

@vetatto · 22.02.2013, 18:45 **[ТС]**

Сообщение от mss

Рано тебе этим заниматься.
Подучи основы.

Да с основами то я разобрался. Почитал примеры Cи. Вот и нашел примерчик по моим нуждам. Помогите.

@mss · 22.02.2013, 19:03

Сообщение от vetatto

с основами то я разобрался

Да неужели ?
И "разобравшийся с основами" при этом употребляет школотное "ругается" "не запускается" ?

@vetatto · 22.02.2013, 19:09 **[ТС]**

Сообщение от mss

Да неужели ?
И "разобравшийся с основами" при этом употребляет школотное "ругается" "не запускается" ?

Хм. Ну я имел ввиду не уж во всем разобрался, но нашел пару статей и примеров по своей теме и хотел их опробовать, но проект не запускается. Хорошо давайте не по школьному.

Компилирование проекта проходит без ошибок, создается .exe, но при его запуске ничего не происходит, даже форма не появляется. Далее, если убрать из проекта подключение openCV2.pas, то все нормально запускается и все функции выполняются (когда не использую функции из opencv2.pas). Если создать пустой проект и подключить этот файл заголовков, то все повторяется.

Такое объяснение нормальное? Подробней уж некуда так как там ничего не происходит. Сам проект простая загрузка изображения. Если без OpenCv2, то изображение загружается.

@mss · 22.02.2013, 19:19

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

@vetatto · 23.02.2013, 11:39 **[ТС]**

Нашел проблемную функцию - это cvCvtColor, если ее использовать то появляется "Ошибка при запуске приложения (0xc000007b).", а мне как раз она нужна. Вы не сталкивались с этим? Функция из opencv_imgproc231.dll

Добавлено через 40 минут
Эта ошибка появляется если использовать любую функцию из opencv_imgproc231.dll

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.FormCreate(Sender: TObject);
var image,gray,bin,dst,r,g,b,temp:pIplImage;
storage:pCvMemStorage;
contours: PPCvSeq;
contoursCont:integer;
begin
 if opendialog1.Execute then
 begin
 image:= cvLoadImage(pchar(opendialog1.FileName),1);
 gray:= cvCreateImage( cvGetSize(image), IPL_DEPTH_8U, 1 );
 temp:= cvCreateImage( cvGetSize(image), IPL_DEPTH_8U, 1 );
  dst:= cvCloneImage(image);
  cvNamedWindow('original',0);
  cvNamedWindow('binary',0);
  cvNamedWindow('contours',0);
  r:= cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
  g:= cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
  b:= cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
  cvSplit(image, b, g, r, 0);
  cvThreshold(temp, dst, 50, 250, CV_THRESH_BINARY); //Если использовать эту функцию появляется ошибка
  cvShowImage('original',image);
  cvShowImage('binary', b);
  cvShowImage('contours', temp);
  storage:= cvCreateMemStorage(0);
  contours:=nil;
 
 end;
end;

Как с этим бороться? Попробовать другую версию библиотеки использовать?

P.S.: Всех с праздником)))

@mss · 24.02.2013, 17:41

пользуй libcv200.dll

@vetatto · 24.02.2013, 18:17 **[ТС]**

Сообщение от mss

пользуй libcv200.dll

Спасибо, за совет. Т.е. как я понял нужно в OpenCv2 вместо opencv_imgproc231.dll указать библиотеку libcv200.dll, посмотрел и в правду в ней есть нужные мне функции. Спасибо попробую.

@vetatto · 25.02.2013, 20:17 **[ТС]**

Уважаемый, mss!
Получилось у меня запустить проект, но теперь на функции cvThreshold появляется ошибка "Access violation at address 1012F637 in moule libcv200.dll Read of address 00000000", ну такого адреса и нет в этой dll. То ли dll плохие, то ли я что-то не так делаю. Не могли бы вы подсказать. Или если не сложно прислать dll, которые вы используете. Ну а если совсем обнаглеть (извиняюсь) не могли бы вы просто создать у себя проект с этими функциями и если заработает прислать мне, а я попробую со своими dll. Буду очень сильно благодарен.

@mss · 25.02.2013, 21:20

Вот полный комплект, который я пользую, OpenCV2.pas к которому ты получил ранее.

@vetatto · 26.02.2013, 03:07 **[ТС]**

Ох, благодарен от всей души. Все заработало. Видимо всеж dll у меня были не те.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@vetatto 0 / 0 / 0 Регистрация: 03.10.2011 Сообщений: 18

	Поиском замкнутых областей на изображении 22.02.2013, 09:52. Показов 3245. Ответов 15 Метки нет (Все метки) Привет всем. Есть много изображений вида https://www.cyberforum.ru/atta... 1361512297 Из него нужно выделить основную массу стеблей от земли. Так как очень схожий цвет фона и стеблей многие алгоритмы просто не подходят. Удалось сделать с изображением такое https://www.cyberforum.ru/atta... 1361512297 В принципе описание слоя стеблей нормальное, но есть большое но, остается много мусора (области земли мелкие). Сам вопрос вот в чем: 1. Как найти все не белые и не красные области и и посчитать их площади. В делфи не очень силен, если не сложно приведите алгоритм а если есть возможность и пример кода поиска этих областей. Очень сильно нужно для диплома. С меня пиво))) Спасибо, друзья! Миниатюры 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	22.02.2013, 10:45
	Подключи и используй OpenCV - такие простые задачи она щелкает как орехи, в дюжину строк кода. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	22.02.2013, 18:37
	Рано тебе этим заниматься. Подучи основы. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	22.02.2013, 19:19
	"разобравшийся с основами" первым делом открывает исходный текст проблемного модуля и изучает все что в нем происходит. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	24.02.2013, 17:41
	пользуй libcv200.dll 1

@vetatto 0 / 0 / 0 Регистрация: 03.10.2011 Сообщений: 18
	25.02.2013, 20:17 [ТС]
	Уважаемый, mss! Получилось у меня запустить проект, но теперь на функции cvThreshold появляется ошибка "Access violation at address 1012F637 in moule libcv200.dll Read of address 00000000", ну такого адреса и нет в этой dll. То ли dll плохие, то ли я что-то не так делаю. Не могли бы вы подсказать. Или если не сложно прислать dll, которые вы используете. Ну а если совсем обнаглеть (извиняюсь) не могли бы вы просто создать у себя проект с этими функциями и если заработает прислать мне, а я попробую со своими dll. Буду очень сильно благодарен. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	25.02.2013, 21:20
	Вот полный комплект, который я пользую, OpenCV2.pas к которому ты получил ранее. 1

@vetatto 0 / 0 / 0 Регистрация: 03.10.2011 Сообщений: 18
	26.02.2013, 03:07 [ТС]
	Ох, благодарен от всей души. Все заработало. Видимо всеж dll у меня были не те. 0