É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...