Ver Mensaje Individual
  #45  
Antiguo 08-08-2015
Avatar de TiammatMX
TiammatMX TiammatMX is offline
Miembro
 
Registrado: Jun 2006
Ubicación: Universo Curvo\Vía Láctea\Sistema Solar\Planeta Tierra\América\México\Puebla\Heróica Puebla de Zaragoza\Jardines de San Manuel\Home
Posts: 659
Reputación: 13
TiammatMX Va camino a la fama
Talking ¡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...
Imágenes Adjuntas
Tipo de Archivo: jpg Error.jpg (15,4 KB, 11 visitas)
__________________
Felipe Eduardo Ortiz López. Delphi programmers does it recursively...

"Un programador, es un creador de universos en donde sólo él es responsable. Universos de complejidad prácticamente ilimitada que se puede crear en forma de programas de ordenador." - Joseph Weizenbaum.

Témele a los profetas... y a aquellos que están listos para morir por "la verdad", ya que como regla general hacen morir a muchos otros con ellos, frecuentemente antes que ellos, y a veces en lugar de ellos. — Umberto Eco
Responder Con Cita