Webcam capturar imagen y adaptada

[KingOfDragons]

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