Webcam capturar imagen y adaptada

[Casimiro Noteví]

No creo que necesites el Microsoft Video for Windows SDK, yo no recuerdo haberlo usado nunca con ninguna webcam.
¿No funciona con ningún programa, ni siquiera con el que trae la propia cámara?

Empezado por Alexander

p.d. Por ciero fuise demasiado sarcastico. . Thanks.

Pero no lo hago con mala intención, sino en plan broma

[Alexander]

Las caramas funcionan bien con sus controladores en diversos sistemas operativos (XP y 7).

No funcionan en los desarrollos sin componentes. Si bajas el ejemplo WebCamCapture - API de aquí mismo. Sucede lo mismo que con mis desarrollos. Y en todo lugar indica que necesito ese software para hacerla funcionar.

Muchas Gracias por tu tiempo.

Este es el hilo de donde se trabaja ese ejemplo. Ejemplo Web Cam sin Componentes

[Casimiro Noteví]

Y por curiosidad, ¿qué webcam estás usando?

[Alexander]

Tengo varias:

Una compaq revieja USB
Una nuevecita HP USB
Una Sony Handy Cam firewire
Una Logitec normalita USB.

Y con todas es igual.

[Casimiro Noteví]

Empezado por Alexander

Y con todas es igual.

Vaya

[CCCP]

Código Delphi [-]
procedure TObjWebCam.Capturar;
va BMP:TBitmap;
    DC:HDC;
Begin
IF FCapHandle <> 0 THEN
 BEGIN
   BMP:=TBitmap.Create;
   BMP.PixelFormat:=pf32bit;
   bmp.width := imagenWebCam.Width;
   bmp.Height := imagenWebCam.Height;
   DC:=GetDc(FCapHandle);
   Bitblt(bmp.canvas.handle, 0, 0, imagenWebCam.Width, imagenWebCam.Height, Dc, 0, 0, SRCCOPY);
   Releasedc (FCapHandle,dc);
   IF Guardar.Execute THEN Begin
      BMP.SaveToFile(Guardar.FileName);
   End;
   End;
End;

[Casimiro Noteví]

Justo se cumplió ayer 13 años desde que estás en clubdelphi

Y todavía no pones las etiquetas al código fuente