Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Capturar Imagen y guardarla (https://www.clubdelphi.com/foros/showthread.php?t=63529)

ronald_tro 18-02-2009 06:06:06

Capturar Imagen y guardarla
 
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')));


La franja horaria es GMT +2. Ahora son las 07:33:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi