• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Blue_Acid

[Delphi] Dúvida: IMAGENS DA WEBCAM (Resolvido)

7 mensagens neste tópico

Viva alguem me sabe dizer como é que atravez do delphi posso ir buscar a imagem da webcam??

Um Abraço

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Já agora aproveito pra testar, porque também estou a aprender delphi.

Obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas Pessoal...

Ja testei este componente, e consegui po-lo a funcionar sem problemas...

Agora surgiume foi outro problema, a gravação é feita, o tamanha do video é de 1GB, mas quando o coloco a reproduzir seja no media player, seja no vlc player ou no bsplayer nao reproduz, alguem tem alguma ideia do que possa ser???

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ja resolvi o problema...

Muito obrigado pela ajuda...

Cumps

Monky

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

AMIGO SE NAO QUISERES USAR COMPONENTES TENS AQUI UMA ALTERNATIVA

var
  HwebCam: HWND;

  function  capCreateCaptureWindowA(lpszWindowName: pchar; dwStyle: dword; x, y, nWidth, nHeight: word; ParentWin: dword; nId: word): dword; stdcall external 'avicap32.dll';

implementation

Function CapturarWebCam(DestinoCapBMP:string) : Boolean;
const
   WM_WEBCAM = $400;
   WM_CONECTAR_DRIVER_WEBCAM    = WM_WEBCAM + $a;
   WM_DESCONECTAR_DRIVER_WEBCAM = WM_WEBCAM + $b;
   WM_GUARDAR_CAPTURA = WM_WEBCAM + 25;
   WM_FECHAR_WEBCAM = $0010;
begin
if HwebCam = 0 then
  begin                                            //WS_CHILD   //WS_VISIBLE
  HwebCam := capCreateCaptureWindowA('CaptureWindow', $40000000 and $10000000, 0, 0, 0, 0, GetDesktopWindow, 0);
    if SendMessage(HwebCam, WM_CONECTAR_DRIVER_WEBCAM, 0, 0) <> 1 then
    begin
      HwebCam   := 0;
      Result        := False;
    end else begin
      SendMessage(HwebCam, WM_GUARDAR_CAPTURA, wparam(0), lparam(PChar(DestinoCapBMP)));
      SendMessage(HwebCam, WM_FECHAR_WEBCAM, 0, 0);
      SendMessage(HwebCam, WM_FECHAR_WEBCAM, 0, 0);
      HwebCam   := 0;
      Result        := True;
    end;
  end else
  Result := False;
end;

Procedure Capturar;
Const
Captura = 'C:\Users\Joel\Desktop\WebCam Captura.bmp';
begin
if not CapturarWebCam(Captura) then
MessageBox(0,Pchar('Não foi possivél capturar a webcam'#10''),'Erro',16);
end;

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora