Webcam capturar imagen y adaptada

[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