PDA

Ver la Versión Completa : Capturar Imagen y guardarla


ronald_tro
18-02-2009, 06:06:06
Hola amigos de nuevo, tengo una duda, he buscado en la red y no encuentro respuesta a ver si ustedes me hechan una manita, capturo una imagen de la webcam pero al guardarla me sale el dialogo que uso, el codigo es este:
begin
IF Ventana <> 0 THEN
BEGIN
Guardar.FileName := 'Captura de la imagen';
Guardar.DefaultExt := 'jpg';
Guardar.Filter := 'Fichero kpg (*.jpg)*.jpg';
IF Guardar.Execute THEN
SendMessage(Ventana, WM_CAP_SAVEDIB, 0,
longint(pchar(Guardar.FileName)));
END;

mi pregunta es, como puedo hacer para que capture la imagen y guardarla en algun directorio por ejemplo en el c, o yo darla la ruta ,que cada vez que le de click en capturar, no me de la opcion de donde guardarla si no que la guarde automaticamente en un directorio o ruta, gracias por sus respuestas, bye.

ronald_tro
18-02-2009, 07:29:27
Ya pude amigos, mil gracias espero no molestarlos, saludos

Neftali [Germán.Estévez]
18-02-2009, 09:48:07
Estaría muy bien que postearas la solución que has encontrado para futuros compañeros que puedan tener la misma duda. ;)

Un saludo.

ronald_tro
23-02-2009, 05:35:38
Ok amigo, no habia entrado mil disculpas, el codigo es el siguiente:

IF Ventana <> 0 THEN
BEGIN
Guardar.FileName := 'Captura de la imagen';
Guardar.DefaultExt := 'jpg';
Guardar.Filter := 'Fichero kpg (*.jpg)*.jpg';
SendMessage(Ventana, WM_CAP_SAVEDIB, 0,
longint(pchar('c:\foto.jpg')));