Detectar Webcam Conectada Na Usb

[Tetzner]

Ola

Como faço para detectar que no micro existe uma webcam conectada ??

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

[Micheus]

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:

[Jhonas]

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

[Tetzner]

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

[Jhonas]

Então da uma olhada neste codigo... ele verifica as USBs

http://www.sabereletronica.com.br/download...9/usb_teste.zip