Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 2412 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • 4 meses depois ...
  • 2 meses depois ...
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

  • Este tópico foi criado há 2412 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

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 conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.