SGSCan - Capturar imagen de camara web

[lag_0]

ya compre la tarjeta ¿que piensan que voy a piratear?. Increíble .... :mad:

En el tiempo que llevo con tarjetas capturadoras de TV solo me di cuenta que son todas mierda y que las casas que las fabrican unos cabrones.. xD No será pinnacle? xD
Luego testeare el codigo, yo tengo uno parecido por ahí

[lag_0]

Bueno...
Ahora me surgieron a mi las dudas .

En el codigo que yo tenia pasa lo mismo que en este y es que..:
Si no tienes una camara por defecto en windows seleccionada se te abre el panel para escojer una.

A ver si alguien se le ocurre la solución, por que yo en su dia lo intenté y ni patras:
-Evitar que te salga la ventana de windows para seleccionar capturadora
-Listar las capturadoras y obtener el identificador para:
-Seleccionar la capturadora a usar por CODIGO

a ver si algún experto lo consigue

[[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';

[jacanche]

Hola, puedes probar el componente TvideoCapture, esta en torry, trae un componente vcl que puedes poner en tu pantalla, no necesitas que se abran otras adicionales, yo lo uso en un programa que hice para emitir credenciales con foto, y funciona bien, te dejo la liga de torry, espero te sirva.

http://torry.net/vcl/mmedia/video/eavcap.zip

Saludos
Alfredo

[lag_0]

Gracias a los dos una vez más ,

Saludoooooooos!

[[fjcg02]]

Para hacer lo que quieres solo tienes que incluir las Jedi, poner en el formulario un TJvAVICapture de nombre Avicap y añadir la procedure
siguiente. Añade un TImage en el formulario y asignale la imagen que tiene la variable pic. Puedes asignar al Timage directamente la imagen del portapapeles. Es un metodo un poco 'guarro', pero funciona; El resto, es cosa tuya

Espero que te sea de ayuda

Un saludo

Código Delphi [-]
procedure TMainFormClient.Button1Click(Sender: TObject);
var
  pic : TBitmap;
begin
  try
    AviCap.DriverIndex := 0;
    AviCap.Previewing := true;
  except
     on E: Exception do ;
  end;
    pic := TBitmap.Create;
    avicap.copytoclipboard;
    if Clipboard.HasFormat(CF_BITMAP) then
    begin
       pic.Assign(Clipboard);
    end;
// asigna la imagen aqui !!
    pic.FreeImage;
    FreeAndNil(pic);
end;