Cita:
Empezado por ronald_tro
Hola amigos de nuevo, estoy haciendo una aplicacion de poder ver mi webcam por medio de una image1, el codigo que tengo es este:
Boton de inicio:
begin
Ventana := capCreateCaptureWindowA('Ventana de captura',
WS_CHILD OR WS_VISIBLE, image1.Left, image1.Top, image1.Width,
image1.Height, form1.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);
EXCEPT
RAISE;
END;
END
ELSE
BEGIN
MessageDlg('Error al conectar Webcam', mtError, [mbok], 0);
END;
end;
|
Despues de conectar el driver pones este mensaje
Código Delphi
[-]SendMessage (Ventana, WM_CAP_SET_SCALE, 1, 0);
y agregas esta constante
Código Delphi
[-]Const WM_CAP_SET_SCALE = WM_CAP_START + 53;
esto va a hacer que se ajuste al tamaño que le definiste a Ventana