SGSCan - Capturar imagen de camara web

[[seoane]]

Empezado por lag_0

a ver si algún experto lo consigue

Yo no soy un experto, pero lo puedo intentar ...

Empezado por lag_0

Si no tienes una camara por defecto en windows seleccionada se te abre el panel para escojer una.

A mi no me ocurre lo mismo, me abre directamente mi tarjeta de televisión, que es la que tiene el índice cero, y ese mismo índice es le que mando en aquí (marcado en rojo):

Código Delphi [-]
SendMessage(CapWindow, WM_CAP_DRIVER_CONNECT, 0, 0);

Empezado por lag_0

Listar las capturadoras y obtener el identificador para:

Para obtener una lista de las capturadoras instaladas y su index, solo tenemos que hacer un bucle con la función capGetDriverDescription, algo así:

Código Delphi [-]
var
  i: integer;
  Name, Ver: array[0..1024] of Char;
begin
  for i:= 0 to 9 do
    if capGetDriverDescription(i,@Name,Sizeof(Name)-1,@Ver,Sizeof(Ver)-1) then
  // Aqui añadimos a un listbox el nombre y el index de la capturadora    
  Listbox1.Items.AddObject(Name,TObject(i));
end;

Se me olvidaba poner la definición de la función capGetDriverDescription

Código Delphi [-]
function capGetDriverDescription(Index: WORD; Name: PChar; cbName: Integer;
  Ver: PChar; cbVer: Integer): BOOL;  stdcall;
 external 'AVICAP32.DLL' name 'capGetDriverDescriptionA';