Membros Pro Embrati Postado 19 Janeiro, 2017 Membros Pro Compartilhar Postado 19 Janeiro, 2017 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. Att. ---------------------------------- EMBRATI Soluções em T.I. (17)4141-4101 Link para o comentário Compartilhar em outros sites More sharing options...
Moderadores Juliomar Marchetti Postado 19 Janeiro, 2017 Moderadores Compartilhar Postado 19 Janeiro, 2017 No devexpress tem como o jedi também 1 Juliomar Marchetti skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br Link para o comentário Compartilhar em outros sites More sharing options...
Dangelo Porto Postado 5 Junho, 2017 Compartilhar Postado 5 Junho, 2017 Alguém teria um componente para capturar a webcam pelo XE7 sem ser a DevExpress? Link para o comentário Compartilhar em outros sites More sharing options...
MarcosRWeimer Postado 21 Agosto, 2017 Compartilhar Postado 21 Agosto, 2017 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; -=Ma®©oS=- Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts
Crie uma conta ou entre para comentar
Você precisar ser um membro para fazer um comentário
Criar uma conta
Crie uma nova conta em nossa comunidade. É fácil!
Crie uma nova contaEntrar
Já tem uma conta? Faça o login.
Entrar Agora