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;