Ver Mensaje Individual
  #1  
Antiguo 13-02-2009
ronald_tro ronald_tro is offline
Miembro
 
Registrado: feb 2009
Posts: 53
Reputación: 16
ronald_tro Va por buen camino
Webcam capturar imagen y adaptada

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;

Boton detener:
IF Ventana <> 0 THEN
BEGIN
SendMessage(Ventana, WM_CAP_DRIVER_DISCONNECT, 0, 0);
Ventana := 0;
END;

Y el problema que tengo es que tengo que agrandar la herramienta Image1 para poder ver todo lo de la webcam, mi pregunta es, habra alguna forma de poder ver toda la webcam del tamaño que tenga la herramienta image1?

Y otra duda amigos, tengo el boton de capturar una imagen en la misma aplicacion :
  1. BEGIN
  2. IF Ventana <> 0 THEN </SPAN>
  3. BEGIN
  4. Guardar.FileName := 'Captura de la imagen'; </SPAN>
  5. Guardar.DefaultExt := 'bmp'; </SPAN>
  6. Guardar.Filter := 'Fichero Bitmap (*.bmp)*.bmp'; </SPAN>
  7. IF Guardar.Execute THEN </SPAN>
  8. SendMessage(Ventana, WM_CAP_SAVEDIB, 0, </SPAN>
  9. longint(pchar(Guardar.FileName))); </SPAN>
  10. END;
Y cuando lo ejecuto me marca error en guardar, no se a que se refiere, ese codigo me lo pasaron, y si en vez de que salga el mensaje de guardar la imagen la guarde automaticamente en el folder donde tengo la aplicacoin, mil gracias por su ayuda y espero no molestarlos, un abrazo amigos.
Responder Con Cita