Hola amigos, aqui ando lata de nuevo resulta que tengo un programa que me permite tomar fotos con una camaraweb, todo esta bien pero al momento de guardar la imagen me la guarda muy grande en el cual esa foto la ocupo para hacer credenciales, quisiera ver si puedo definir el tamaño de la imagen al momento de guardarla o que me recomiendan.Les anexo el codigo que utilizo tanto para iniciar mi camaraweb y el de tomar fotos.
Código:
procedure TForm1.Button1Click(Sender: TObject);
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;
Código:
procedure TForm1.BtnGuardarImagenClick(Sender: TObject);
begin
IF Ventana <> 0 THEN
BEGIN
Guardar.FileName := 'Captura de la imagen';
Guardar.DefaultExt := 'bmp';
Guardar.Filter := 'Fichero Bitmap (*.bmp)*.bmp';
IF Guardar.Execute THEN
SendMessage(Ventana, WM_CAP_SAVEDIB, 0,
longint(pchar(Guardar.FileName)));
END;
end;
Por ultimo estoy usando delphi 2007 y gracias de antemano.