Jump to content


Delphi: Detecção De Movimento


  • Faça o login para participar
6 replies to this topic

#1 Phr34k3r

Phr34k3r
  • Visitantes

Posted 07/07/2003, 15:50

Tive a oportunidade de conhecer um projeto de detecção de movimento feito totalmente em delphi, queru tentar reproduzi-lo.

Descrição do projeto:
Uma camera/webcam "ligada" em um micro, eh possivel detectar qualquer movimento dentro dakela area. Apos essa detecção eh disparadu um evento, este podendo ser;
- Tocar uma musica
- Mandar um email
- etc.

Atraves de uma conversa com alguns amigos, pude perceber que poderia se implantadu nesse projeto uma Rede Neural Artificial (RNA). Estou com dificuldade em implanta-la, visto que, conhecu pouca coisa sobre o assuntu. Gostaria de contar com a colaboracao de algumas pessoas daki, se possivel ...

PS:
Nao eh trabalhu de faculdade, pos ou mestradu. Eh pura curiosidade!!!

Falow.

#2 Guest

Guest
  • Visitantes

Posted 08/07/2003, 10:00

Bem, para começar os testes eu gravaria a posição do mouse (X e Y) dentro de um TPoint... e quando esses números alterassem, ele disparava o evento...

Mas como é dentro de uma ÁREA a detecção do movimento, você poderia tentar chamar a mensagem WN_ONMOUSEOVER...

Mas pelo que percebi, o negócio é perceber o movimento capturado por uma Webcam é isso ????


Confirme isso para mim.

Obrigado

#3 Phr34k3r

Phr34k3r
  • Visitantes

Posted 08/07/2003, 14:31

Correto!

Uma webcam virada para um direcao fixa, quandu passar "alguma coisa" por ali, dispara-se o evento ...
Achu que o modo mais facil de se fazer issu eh tirandu fotos em um intervalo de tempo definido anteriormente.

Vc conhece algum componente de webcam para delphi, ou uma rotina para tirar fotos?

#4 The Tamer

The Tamer

    'F' motivos para se gostar de Hexa

  • Usuários
  • 185 posts
  • Sexo:Não informado

Posted 10/07/2003, 18:01

OI, EU SOU O "GUEST" aí em cima...

Eu não conheço nenhum não... mas indico um site muito bom de componentes para Delphi sem links quebrados e pop-ups do tipo HPG, VIRTUA e semelhantes:


Delphi Super Page: http://delphi.icm.edu.pl/


Qualquer coisa estou a disposição... mas a coisa é bem complexa, você tem que entrar dentro dos arquivos de imagem, e detectar alguma alteração brusca das cores dos PIXELS em geral... por exemplo:


temos um bitmap, cada pixel tem 3 baterias de 255 cores (o RGB), você faz ele analizar PIXEL a PIXEL e definir um intervalo para cada um deles por exemplo (de RED[200] a RED[205]), para evitar o disparo no caso do sol se esconder e fizer alguma sombra, ou passar alguma mosca.

É uma idéia, veja se ajudou... qualquer coisa me avise, acabei me interessando na coisa.

:) :)

Até
__________________________________________
The Tamer
Quando morrer, escrevam em minha lápide: </life>

Blog: http://www.dtsoftware.eti.br/
MCWD - Macromedia Certified Web Designer MX

#5 Phr34k3r

Phr34k3r
  • Visitantes

Posted 11/07/2003, 11:47

Se interessou?
Muito bom, mas uma pessoa para trocar uma ideia sobre issu ;) ...

A alguns dias me deram a sugestao de uma matriz de diferenca (0,1), mapeando a foto e, com uma tolerancia maior. Mas eh claru com a webcam tirandu fotos e nao usando RNA ...
Seria necessario tirar uma foto para "calibracao" e, tirar outras fotos em um intervalo de tempo definido. Daih pegaria essas "outras" fotos em comparacao com a primeira, atraves dakela matriz logo acima ...

MAS ESSA SOLUCAO ACIMA, INICIALMENTE, NAO EH A SOLUCAO PROPOSTA, MAS PARA EFEITO DE APRENDIZADO FUNCIONARIA MUITO BEM!

Realmente o meu maior problema eh conseguir me comunicar de qualquer jeito com uma webcam. Queria fazer um negocio bem legal, com interface que vc poderia alterar o contraste, cor, foco, etc.

O que vc acha da solucao acima?

PS: Se souber de alguma coisa ou, outra solucao nao deixe de postar aki, ok?

#6 The Tamer

The Tamer

    'F' motivos para se gostar de Hexa

  • Usuários
  • 185 posts
  • Sexo:Não informado

Posted 11/07/2003, 12:42

Achei 2 componentes FREE para delphi que cominica com WEBCAM veja:


http://delphi.icm.ed...ee/jlcvideo.zip
This component allows to capture images and videos from several sources (videocams, vcr's, webcams). Has been created using the AVICAP32.dll (from the Win32 API). (ver. 1.4, added 2/13/2000, Visit my web site (jlceada.virtualave.net). There are examples for this component.)



http://delphi.icm.ed...0free/video.zip
Webcams, TV Tuner Cards, Digital Cameras...

As these devices are getting more and more popular, it is time to have a component that deals with it.
Drop this component on to your form and enable it. *POOF* Digital Video from your video capture device driver starts straight away without ANY coding!!!
Need I say more?!

Updates / Features :
1) Making use of this component has NEVER been easier!
2) Where else would you be able to find a component that does this???
3) Saves frame to BMP file.
4) Supports all MCI video capture drivers.
5) Supports systems with multiple video capture drivers installed.
6) Uses its own thread.
7) Added OnFrame event.
8) Fixed memory leak problem.
9) It's FREE!!!

*** NEW *** - Supports C5!!!

Future plans :
1) Save to AVI.
(ver. 1.2, added 4/9/2000, updated 8/20/2000, no src.)

__________________________________________
The Tamer
Quando morrer, escrevam em minha lápide: </life>

Blog: http://www.dtsoftware.eti.br/
MCWD - Macromedia Certified Web Designer MX

#7 Phr34k3r

Phr34k3r
  • Visitantes

Posted 13/07/2003, 00:34

Valeu!
Assim que tiver oportunidade irei testa-los ...




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq