Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Ваши программы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 17.09.2009, 09:59
Vocabulary Vocabulary вне форума
Новичок
 
Регистрация: 17.09.2009
Сообщения: 85
Репутация: 9
По умолчанию Программный детектор движения

Программный детектор движения (под Windows).

С сайта Mitov SoftWare http://www.mitov.com можно скачать библиотеку компонентов для Delphi работающую с аудио и видео конетентом (больше с видео).
Библиотека серьезная. Кстати, без исходников бесплатная.

Взял оттуда демку детектора движения и прикрутил к ней запись в файл и просмотр этих файлов.

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

Запись в файл происходит только тогда, когда детектор обнаруживает движение, а поэтому файлы получаются не громадные.
Правда, количество записанных байт в 1 секунду зависит от цветности камеры, разрешения (или ТВЛ - кол-во вертикальных линий для аналоговых камер).
Примерный подсчет показывает, что с цветной веб камерой разрешением 640х480 1 час записи обходится простому налогоплательщику в 350 Мб. В файле только записанные движения, поэтому час этот может содержать и 5, и 10, и 20 часов наблюдения, в зависимости от интенсивности движения, естественно.

Тестировалась только одна веб камера, с ней датчик работает отлично.

Замеченная особенность.
Если освещенность объектов недостаточная (для веб камер уж точно такое может быть), то запись в файл происходит прерывисто (так назовем) - датчик хорошо отличает цветовой шум от действительного движения и не дергается чтобы записывать шумы.
Как следствие, получается забавный эффект - видео прокручивается как бы на повышенной скорости.
Но и файлы получаются меньше и совсем не портят возможность увидеть злоумышленника, например.

Просмотр файлов прост. Есть выбор записанных детектором файлов, имена которых формируются в виде <ггммдд_ччммсс>.avi (системная дата и время начала записи в файл).
Новый файл создается каждый раз после того как нажата кнопка "Старт" в главной программе детектора. Поэтому, если постоянно щелкать этой кнопкой (и кнопкой "Стоп"), файлов может быть много.
Если нажать на "Старт" и забыть, то файл будет один. Если машина выключается, то на следующий день будет другой файл.
В записываемое изображение вставляется временнАя метка.

Не получилось в просмотре сделать покадровый просмотр (абракадабра отображается), видимо, формат видео не позволяет, т.к. с другими форматами покадровый просмотр работает.
Звук к изображению тоже не подключался. Может надо, может нет.

Требуется DirectShow, версии 8.1 или более поздней. Если установлен DirectX, то и беспокоиться о наличии DS незачем.

Программа http://athenasoft.ru/release/MotionDetect.rar. Инсталляции не требует.
Скрикшот: http://athenasoft.ru/release/motion.gif

Доработка, конечно, требуется, но для "попробовать как моя камера отслеживает движение" вполне годится.
Ответить с цитированием
  #2  
Старый 22.10.2009, 19:37
Gurt87 Gurt87 вне форума
Прохожий
 
Регистрация: 17.05.2009
Сообщения: 16
Репутация: 10
По умолчанию

Ну, а где же исходники ? =)
Ответить с цитированием
  #3  
Старый 23.10.2009, 04:47
Vocabulary Vocabulary вне форума
Новичок
 
Регистрация: 17.09.2009
Сообщения: 85
Репутация: 9
По умолчанию

Исходные тексты здесь: http://athenasoft.ru/release/MotionDetect_Src.rar
Чтобы проект компилировался, нужно с сайта mitov.com скачать и установить в Delphi две библиотеки VisionLab и VideoLab.

Последний раз редактировалось Vocabulary, 23.10.2009 в 04:52.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:21.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter