| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
andrecianfarani
Novato
Registrado: Sexta-Feira, 22 de Março de 2013
Mensagens: 19
|
 Enviada: Seg Abr 29, 2013 8:17 am Assunto: Código Fonte para captura de imagem webcam pronto... |
 |
|
Bem sou novo no delphi 7 e estou tendo dificuldades no código fonte não estou conseguindo fazer a câmera ligar assim que o programa inicia. Preciso identificar o caminho do drive para cada uma delas, ou seja, estou tentando ligar duas câmeras simultaneamente uma do meu notebook e outra usb. Consegui ligar as duas juntas porem tenho que ligar uma e depois selecionar o drive a outra e ligar. Alguem pode me ajudar?
Abaixo esta o codigo fonte que uso.
| Código: | unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, tscap32_rt;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
tsCap321: TtsCap32;
tsCap322: TtsCap32;
Button3: TButton;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
tsCap321.Connected:= True;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
tsCap321.SaveAsBMP:= 'C:\temp\chiari\webcam\teste.bmp';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
tsCap322.Connected:= True;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
tsCap322.SaveAsBMP:= 'C:\temp\chiari\webcam\teste2.bmp';
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
end. |
|
|
| Voltar ao Topo |
|
 |
cobaiaoo
Colaborador
Registrado: Domingo, 1 de Abril de 2012
Mensagens: 1283
|
| Enviada: Seg Abr 29, 2013 9:49 am Assunto: Re: Código Fonte para captura de imagem webcam pronto... |
|
|
amigo se vc for nesse post procure por webcam existe uma biblioteca para manipulacao para a msm q usa o direct x, bem facil de usar, te sugiro isso pq vc esta no delphi 7 e esse componente foi descontinuado, caso quiser migrar para uma versao mais recente vai ter muitos problemas com este componente, ja o abaixo nao 
http://www.activedelphi.com.br/forum/viewtopic.php?t=78274
_________________
I João 4:8 - "Aquele que não ama não conhece a Deus; porque Deus é amor." |
|
| Voltar ao Topo |
|
|
andrecianfarani
Novato
Registrado: Sexta-Feira, 22 de Março de 2013
Mensagens: 19
|
| Enviada: Seg Abr 29, 2013 10:41 am Assunto: |
|
|
| Até tentei usar esse webcam capture no delphi 7, porem nao deu certo acredito que seja apenas para Delphi XE2. Quando compilo parece que falta algum componete. E não tem nenhum assunto relacionado a ligar 2 webcams simultaneamente pelo menos no tscap32 consegui colocar as duas para funcionar ao mesmo tempo. Mas obrigado pela preocupação tem me ajudado bastante. |
|
| Voltar ao Topo |
|
|
cobaiaoo
Colaborador
Registrado: Domingo, 1 de Abril de 2012
Mensagens: 1283
|
| Enviada: Seg Abr 29, 2013 10:50 am Assunto: |
|
|
mas amigo se vc puder informar qual o erro q acontece com a biblioteca q te sugeri talvez possa te ajudar
_________________
I João 4:8 - "Aquele que não ama não conhece a Deus; porque Deus é amor." |
|
| Voltar ao Topo |
|
|
andrecianfarani
Novato
Registrado: Sexta-Feira, 22 de Março de 2013
Mensagens: 19
|
| Enviada: Ter Abr 30, 2013 8:33 am Assunto: |
|
|
Ta certo, abaixo segue a imagem do erro. Alguem pode me ajudar?
Uploaded with ImageShack.us
Uploaded with ImageShack.us
Quando clico em ignorar e compilo da isso...
Uploaded with ImageShack.us |
|
| Voltar ao Topo |
|
|
cobaiaoo
Colaborador
Registrado: Domingo, 1 de Abril de 2012
Mensagens: 1283
|
| Enviada: Ter Abr 30, 2013 9:24 am Assunto: |
|
|
andrecianfarani a partir do xe 2 n se chama mais nas uses forms, dialogs, messages, agora usa um prefixo antes, vcl.forms, vcl.dialogs, vcl.messages. entao esses prefixos e o "." vc tira fora, qto a vcl.themes e vcl.styles sao do bitmap style design q foi implementado tb no xe 2, sao akelas skins q ficam na aplicacao, sendo assim, basta vc remover essas referencias da sua unit
*pelo menos qdo eu abri o projeto Webcam_Capture_V2 bastou apenas compilar q rodou, no seu caso acho q seria necessario essas pequenas alteracoes, qgora qto ao ERRO do edit n sei pq aconteceu, mas acredito q seja so ignorar, tente compilar e me de um feedback (=
_________________
I João 4:8 - "Aquele que não ama não conhece a Deus; porque Deus é amor." |
|
| Voltar ao Topo |
|
|
felipekk
Colaborador
Registrado: Quinta-Feira, 5 de Janeiro de 2012
Mensagens: 1531
Localização: Pirapora - MG
|
| Enviada: Ter Abr 30, 2013 9:28 am Assunto: |
|
|
Problema de versão como o cobaiaoo disse.
Tente fazer as alterações e poste o resultado.
_________________
"Esteja ligado em melhora contínua: hoje melhor do que ontem e pior do que amanhã."
 |
|
| Voltar ao Topo |
|
|
andrecianfarani
Novato
Registrado: Sexta-Feira, 22 de Março de 2013
Mensagens: 19
|
| Enviada: Ter Abr 30, 2013 10:52 am Assunto: |
|
|
| Ja postei na ultima imagem. Ignorei e compilei. |
|
| Voltar ao Topo |
|
|
cobaiaoo
Colaborador
Registrado: Domingo, 1 de Abril de 2012
Mensagens: 1283
|
| Enviada: Ter Abr 30, 2013 11:06 am Assunto: |
|
|
| andrecianfarani escreveu: | | Ja postei na ultima imagem. Ignorei e compilei. |
mas o post pode entrar como resolvido ou podemos fazer mais alguma coisa por vc?
_________________
I João 4:8 - "Aquele que não ama não conhece a Deus; porque Deus é amor." |
|
| Voltar ao Topo |
|
|
andrecianfarani
Novato
Registrado: Sexta-Feira, 22 de Março de 2013
Mensagens: 19
|
| Enviada: Ter Abr 30, 2013 2:22 pm Assunto: |
|
|
| Desculpe me expressei mal e você não me entendeu. Eu cliquei para ignorar e compilei e da esse erro da ultima imagem postada. Agora se não tiver como resolver pode fechar sim sem problemas. |
|
| Voltar ao Topo |
|
|
cobaiaoo
Colaborador
Registrado: Domingo, 1 de Abril de 2012
Mensagens: 1283
|
| Enviada: Ter Abr 30, 2013 2:50 pm Assunto: |
|
|
| andrecianfarani escreveu: | | Desculpe me expressei mal e você não me entendeu. Eu cliquei para ignorar e compilei e da esse erro da ultima imagem postada. Agora se não tiver como resolver pode fechar sim sem problemas. |
amigo tdas as referencias vcl.styles e vcl.themes q tiver no codigo basta vc apagar, nesse caso nao so o "vcl." apaga a linha td, pq sao inuts q so fazem parte a partir do xe 2, tenta compilar, volta aki e nos de um feedback
_________________
I João 4:8 - "Aquele que não ama não conhece a Deus; porque Deus é amor." |
|
| Voltar ao Topo |
|
|
josejp1
Novato
Registrado: Quarta-Feira, 1 de Mai de 2013
Mensagens: 2
|
|
| Voltar ao Topo |
|
|
potew
Novato
Registrado: Quarta-Feira, 23 de Dezembro de 2015
Mensagens: 5
|
| Enviada: Qui Mar 03, 2016 2:52 pm Assunto: |
|
|
Desculpem ressuscitar este tópico, mas estou aqui apenas para agradecer a ajuda dos confrades acima. No caso do Delphi 7, consegui fazer as modificações e funcionou perfeitamente.
O arquivo onde tem as bibliotecas fica assim:
| Código: | Forms,
camform in 'camform.pas' {Form1},
VFrames in 'Common\VFrames.pas',
VSample in 'Common\VSample.pas',
Direct3D9 in 'Common\DirectX\Direct3D9.pas',
DirectDraw in 'Common\DirectX\DirectDraw.pas',
DirectShow9 in 'Common\DirectX\DirectShow9.pas',
DirectSound in 'Common\DirectX\DirectSound.pas',
DXTypes in 'Common\DirectX\DXTypes.pas'; |
E o principal fica assim:
| Código: | uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ExtCtrls, IniFiles, JPEG,
VFrames, VSample, Direct3D9, DirectDraw, DirectShow9, DirectSound, DXTypes, ComCtrls; |
Abraços! |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
