Estimados, estoy utilizando este código y me funciona perfecto con Delphi 2010 y Win7, pero tengo un problema al capturar una imagen.
Resulta que si el programa está minimizado, o escondido (hide), la imagen guardada es un cuadrado negro.

Porque pasará esto?
Como lo puedo resolver?

Gracias.

No lo he mirado, pero puede ser que al estar minimizada u oculta, el sistema decida no repintar la ventana y por eso no toma la imagen.

[broma] Además, si está oculta o escondida, ¿qué esperabas?, pues saldrá una mancha negra :D [/broma]

Entiendo que ese debe ser el problema, pero como lo soluciono???

Alguna idea??

Error al recapturar con WebCam
 

Hola buenos días amigos, muchas gracias a todos por sus aportes a la comunidad. En esta oportunidad les escribo para solicitar su ayuda, ya que he implementado el código funciona todo ok utilizo delphi 7 con windows 7 en una SONY VAIO VPCSE core I5 8 Gb de ram con su webcam integrada. El problema que tengo es que solo puedo capturar imagen una vez, luego cuando vuelvo a ejecutar la aplicación la webcam no se activa, me aparece una ventana de dialogo que dice Origen de Video y debo seleccionar un dispositivo de vídeo, al aceptar la webcam no se enciende y ya no captura imagen alguna y para que funcione debo reiniciar la computadora y todo funcina bien otra vez, cabe destacar que he probado con otras aplicaciones como webCam Monitor 6 y sin necesidad de reiniciar si enciende la webcam y funciona sin problema, también he probado con otras computadoras y presenta el mismo problema. Me parece como que se quedara en ejecución algún proceso que no deja reconectar o encender la webcam desde mi aplicación, por que al reiniciar si vuelve a funcionar, he monitoreado desde el administrador de tareas y no veo nada.
Mucho les sabría agradecer su colaboración.

¡Felicidades!
 

Éste código es ESTUPENDO..., casi logra lo que necesito, excepto que cuando intento tomar una SEGUNDA "fotografía", me arroja éste error..., y lo peor, si después del error deseo cerrar (comando Close; de ObjectPASCAL) me envía el mismo error...

Código Delphi [-]
procedure TfrmPrincV2.btnCapturarClick(Sender: TObject);
var
   PanelDC: HDC;
begin
   if not Assigned(imgVideo.Picture.Bitmap) then
      imgVideo.Picture.Bitmap := TBitmap.Create
   else begin
      imgVideo.Picture.Bitmap.Free;
      imgVideo.picture.Bitmap := TBitmap.Create;
   end;

   with imgVideo do
   begin
      Picture.Bitmap.Height := pnlVisual.Height;
      Picture.Bitmap.Width  := pnlVisual.Width;
      Stretch := True;
   end;

   PanelDC := GetDC(pnlVisual.Handle);
   try
      BitBlt(imgVideo.Picture.Bitmap.Canvas.Handle, 0,0,pnlVisual.Width, pnlVisual.Height, PanelDC, 0, 0, SRCCOPY);
   finally
      ReleaseDC(Handle, PanelDC);
   end;
   
   Camara.SaveAsJPG(imgVideo);
end;

Por cierto, felicidades a CasaCham... ;)

Hola, si estás usando Delphi 7 el error de compilación es porque no acepta las declaraciones de constantes dentro de la class TWebCam. Lo que debes hacer es poner las constantes entre const...+41; arriba de la declaración del objeto. Saludos

Yo tenía el mismo problema en Delphi 7 para Windows 7, lo solucioné dejando sólo la sentencia
Image1.picture.Bitmap := TBitmap.Create;

en el primer if del procedimiento Button2Click

Saludos