WebCam

[Embrati]

Olá pessoal,

Alguém poderia indicar e/ou até mesmo anexar exemplo de um componente que vocês usam para obter imagem da webcam ?

agradeço a todos.

[Juliomar Marchetti]

No devexpress tem como o jedi também 

[Dangelo Porto]

Alguém teria um componente para capturar a webcam pelo XE7 sem ser a DevExpress?

[MarcosRWeimer]

Em 05/06/2017 at 15:26, Dangelo Porto disse:

Alguém teria um componente para capturar a webcam pelo XE7 sem ser a DevExpress?

 

Em 19/01/2017 at 17:51, Embrati disse:

Olá pessoal,

Alguém poderia indicar e/ou até mesmo anexar exemplo de um componente que vocês usam para obter imagem da webcam ?

agradeço a todos.

Ola!

no XE8 estou fazendo assim:

procedure TFWebCam.IniciarCamera();
begin
  handler := capCreateCaptureWindowA('', WS_CHILD OR WS_VISIBLE, 2, 15, 334, 322, Self.Handle, 0);
  //handler := capCreateCaptureWindowA('', WS_CHILD OR WS_VISIBLE, 2, 15, 334, 322, Application.ActiveFormHandle, 0); -> abre no owner...
  //handler := capCreateCaptureWindowA('CaptureWindow', $40000000 and $10000000, 0, 0, 0, 0, GetDesktopWindow, 0); -> abre em novas janelas (no desktop)

  try
    SendMessage(handler, WM_DRIVER_CONNECT, 0, 0);
    SendMessage(handler, WM_SET_PREVIEWRATE, 40, 0);
    SendMessage(handler, WM_SET_PREVIEW, 1, 0);
    raise EValidation.Create('Ocorreu um erro ao obter as imagens');
  end;
end;

procedure TFWebCam.btnCapturarClick(Sender: TObject);
begin
  if (handler <> 0) then
  begin
    SendMessage(handler, WM_SAVEDIB, 0, LongInt(PAnsiChar(AnsiString(caminhoBmp)))); //manter as conversões do caminhoBmp (se não manter (mesmo alterando o tipo da variavel) não salva corretamente (salva com caminho/nome/extensão avariados)
    Image1.Picture.LoadFromFile(caminhoBmp); //carrega a imagem capturada
  end;
end;