JULIPO
09-12-2009, 04:57:23
Reciban un cordial saludo
Estoy elaborando una aplicacion donde necesito almancenar una imagen tomada desde una webcam a una base de datos
procedure Tcaptfoto.BitBtn2Click(Sender: TObject);
begin
Ventana := capCreateCaptureWindowA('Capturar Fotografia',
WS_CHILD OR WS_VISIBLE, image1.Left, image1.Top, image1.Width,
image1.Height,biodynad.Handle, 0);
IF Ventana <> 0 THEN
BEGIN
TRY
SendMessage(Ventana, WM_CAP_DRIVER_CONNECT, 0, 0);
SendMessage(Ventana, WM_CAP_SET_PREVIEWRATE, 40, 0);
SendMessage(Ventana, WM_CAP_SET_PREVIEW, 1, 0);
bitbtn5.Enabled:=true;
EXCEPT
RAISE;
END;
END
ELSE
BEGIN
MessageDlg('Error al conectar Webcam', mtError, [mbok], 0);
END;
end;
El problema es que lanzo el formulario de captura de fotos como modal cuando creo el handle solo lo puedo hacer en base a el programa principal (biodyn.handle) no con la ventana de mi formulario lanzado que seria (captfoto.handle) por lo que el image1 queda ligado al formulario principal y no puedo cerrarlo ni controlarlo desde mi formulario lanzado como puedo solucionar este problema.
Estoy elaborando una aplicacion donde necesito almancenar una imagen tomada desde una webcam a una base de datos
procedure Tcaptfoto.BitBtn2Click(Sender: TObject);
begin
Ventana := capCreateCaptureWindowA('Capturar Fotografia',
WS_CHILD OR WS_VISIBLE, image1.Left, image1.Top, image1.Width,
image1.Height,biodynad.Handle, 0);
IF Ventana <> 0 THEN
BEGIN
TRY
SendMessage(Ventana, WM_CAP_DRIVER_CONNECT, 0, 0);
SendMessage(Ventana, WM_CAP_SET_PREVIEWRATE, 40, 0);
SendMessage(Ventana, WM_CAP_SET_PREVIEW, 1, 0);
bitbtn5.Enabled:=true;
EXCEPT
RAISE;
END;
END
ELSE
BEGIN
MessageDlg('Error al conectar Webcam', mtError, [mbok], 0);
END;
end;
El problema es que lanzo el formulario de captura de fotos como modal cuando creo el handle solo lo puedo hacer en base a el programa principal (biodyn.handle) no con la ventana de mi formulario lanzado que seria (captfoto.handle) por lo que el image1 queda ligado al formulario principal y no puedo cerrarlo ni controlarlo desde mi formulario lanzado como puedo solucionar este problema.