Ir para conteúdo
Fórum Script Brasil
  • 0

Detectar Webcam Conectada Na Usb


Tetzner

Pergunta

4 respostass a esta questão

Posts Recomendados

  • 0
Tenho um programa que utiliza a webcam, mas se alguém despluga o cabo da USB o programa trava.

Então quero primeiro detectar se há webcam na usb e então acionar o programa

Mas isto não impedirá de o usuário desplugar o cabo USB da câmera. :blink:

Link para o comentário
Compartilhar em outros sites

  • 0

Se voce estiver utilizando os componentes DSPack no evento oncreate do form voce pode usar:

procedure TVideoForm.FormCreate(Sender: TObject);
var
  i: integer;
  Device: TMenuItem;
begin
  SysDev:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
  if SysDev.CountFilters > 0 then
    for i := 0 to SysDev.CountFilters - 1 do
    begin
      Device := TMenuItem.Create(Devices);
      Device.Caption := SysDev.Filters[i].FriendlyName;
      Device.Tag := i;
      Device.OnClick := OnSelectDevice;
      Devices.Add(Device);
    end;

  if (FilterGraph.Active = false) and (Device.Caption = '') then
     begin
        showmessage('WEBCAM desconectada!');
        VideoForm.Close;
     end;
end;

OBS: Se a webcam estiver conectada o Device.Caption não ficara vazio e o FilterGraph estará ativo

Link para o comentário
Compartilhar em outros sites

  • 0
Tenho um programa que utiliza a webcam, mas se alguém despluga o cabo da USB o programa trava.

Então quero primeiro detectar se há webcam na usb e então acionar o programa

Mas isto não impedirá de o usuário desplugar o cabo USB da câmera. :blink:

então, não uso DSPACK

teria de ser algo SYSTEM mesmo tipo algo que verifique as usb´s

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...