Seu Curso

  • Full Screen
  • Wide Screen
  • Narrow Screen
  • Increase font size
  • Default font size
  • Decrease font size

Como capturar e exibir imagens de uma webcam no Delphi

Imprimir
Avaliação do Usuário: / 27
PiorMelhor 

 

 

Toda a implementação desse tutorial foi feita utilizando o Delphi 2005, se você usá-lo em outra versão, por favor, relate para nós os resultados.

 

Certifique-se de, antes de começar, possuir uma webcam devidamente instalada no seu computador.

 

Baixe o componente tscap32 em http://tscap32.sourceforge.net/ há também uma cópia para download do componente em http://www.seucurso.com.br/downloads/tscap32_delphi7_release.zip

 

Descompacte-o em uma pasta que seja de fácil localização.

 

No Delphi:

 

Clique no menu File e clique sobre a opção Open:

 

 

Encontre o arquivo tscap32.dpk (que deverá estar na pasta criada com a descompactação do componente baixado) e clique no botão Abrir:

 

 

Quando solicitado para qual versão deseja-se converter o componente selecione a opção Delphi for Win32 e clique no botão OK:

 

 

Você deverá ver o componente aberto no Project Manager, do lado direito da janela do Delphi:

 

 

Clique sobre o nome do componente com o botão da direita do mouse e selecione a opção Compile:

 

 

Verifique se não há erros de compilação, warnings (alertas) não impedirão de prosseguirmos, mas verifique-os para ter certeza de que não há nenhum erro que necessite de correção, como por exemplo, arquivos faltantes ou não encontrados.

 

Clique novamente sobre o nome do componente com o botão da direita do mouse e selecione a opção Install:

 

 

 

Você deverá obter uma janela confirmando a instalação:

 

 

Precisamos fechar o componente, que já está instalado, para isso vá ao menu File e clique sobre a opção Close All:

 

 

Ao ser solicitado para salvar as alterações feitas, você pode clicar sobre o botão No se desejar, nada será perdido ou alterado na instalação feita.

 

Vamos criar uma aplicação usando os componentes recém instalados para testá-los. Clique no menu File e na opção New clique sobre VCL Forms Application – Delphi for Win32:

 

 

Encontre o componente TtsCap32, no grupo tsTech do Tool Palette e arraste-o para seu formulário:

 

Salve seu projeto!

 

Encontre os seguintes arquivos descompactados junto com o componente tscap32 e copie-os na mesma pasta onde você salvou seu projeto:

 

tscap32_rt.dcu

tstlg.dcu

vfwunit.dcu

tsDibRel.dcu

tsMessages.dcu

 

Copie também a pasta tsCap32FormResources.

 

Coloque no evento onCreate do seu formulário o seguinte código:

 

tsCap321.Connected := True;

 

 

Execute seu projeto! Divirta-se:

 

I

Comentários  

 
0 #8 EstudanteIsaac Segunda 15-07-2016 06:09
Valeu pelo apoio...
Funcionou perfeitamente...
Citar
 
 
0 #7 Res: componente não funcionaFernando Bryan Frizzarin 13-03-2016 10:30
Não testei no Windows 10, mas tente executar como administrador para vermos o que acontece.

Citando Luiz Antonio:
Oi;
Ao executar, pela 2a vez, a rotina apresenta erro
"connect failed - exception message was not processed by the capture drive"
Entendo que a comunicação com algum drive não foi realizada, mas, na primeira vez funciona, portanto, o "drive" é encontrado.
Obs: uso delphi 7 / webcam do notebook / windows 10 / testei com o exemplo demonstrado na sua página e testei com o exemplo do arquivo compactado.
Se puder dar uma dica eu agradeço.
Citar
 
 
0 #6 componente tsCap não funciona 2a vezLuiz Antonio 12-03-2016 22:22
Oi;
Ao executar, pela 2a vez, a rotina apresenta erro
"connect failed - exception message was not processed by the capture drive"
Entendo que a comunicação com algum drive não foi realizada, mas, na primeira vez funciona, portanto, o "drive" é encontrado.
Obs: uso delphi 7 / webcam do notebook / windows 10 / testei com o exemplo demonstrado na sua página e testei com o exemplo do arquivo compactado.
Se puder dar uma dica eu agradeço.
Citar
 
 
0 #5 Dúvida resolvidaJoão Batista Jr 02-12-2012 20:28
Caro Fernando, perdoe-me, chamei-o de Manolo. Grato.
Citar
 
 
+1 #4 Dúvida resolvidaJoão Batista Jr 02-12-2012 20:26
Caro Manolo, resolvi o problema. A imagem de captura da webcam não apareci no componente por problemas de instalação nos "codecs". Minha máquina é 64bits e os "codecs" não estavam devidamente atualizados. Agora tá funcionando perfeitamente. Grato.
Citar
 
 
+1 #3 DúvidaFernando Bryan Frizzarin 02-12-2012 19:56
A principio não, apenas verifique se no Windows 7 é preciso ter permissão de administrador para acessar o driver da webcam e se ele está selecionado corretamente no componente.
Citar
 
 
+1 #2 DúvidaJoão Batista Jr 02-12-2012 06:19
Caro Manolo, meu ambiente é Delphi 7 em Windows 7 e uso a câmera do próprio notebook, ou seja, não é uma webcam externa. Fiz todas a instalação sem erros. Executei o projeto que você exemplifica, mas o componente não apresenta imagem (tela escura).
Pergunta. Tenho que usar uma webcam externa ou mais alguma orientação para o ambiente que estou utilizando?
:-|
Citar
 
 
+1 #1 Agradecimentos! Derik 24-10-2012 14:49
Valeu manolo, muito obrigado, isso me ajudou bastante. :D
Citar
 

Adicionar comentário


Código de segurança
Atualizar

You are here: