Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-02-2009
ronald_tro ronald_tro is offline
Miembro
 
Registrado: feb 2009
Posts: 53
Poder: 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
  #2  
Antiguo 15-02-2009
ronald_tro ronald_tro is offline
Miembro
 
Registrado: feb 2009
Posts: 53
Poder: 16
ronald_tro Va por buen camino
o amigos sera que asi dá por default el tamañ de la webcam,
Ventana := capCreateCaptureWindowA('Ventana de captura',

o quizas sera que tengo webcam integrada a mi notebook? bueno espero alguna respuesta de ustedes amigos y que me recomiendan hacer, bye.
Responder Con Cita
  #3  
Antiguo 17-01-2010
CCCP CCCP is offline
Miembro
 
Registrado: dic 2004
Ubicación: Barcelona
Posts: 38
Poder: 0
CCCP Va por buen camino
Existe un autosize
Responder Con Cita
  #4  
Antiguo 11-12-2010
MaxiDucoli MaxiDucoli is offline
Miembro
 
Registrado: feb 2006
Posts: 134
Poder: 19
MaxiDucoli Va por buen camino
asi guardas la imagen

procedure TFrmVidCp.FrmVidCpBtn3Click(Sender: TObject);
var
b : TBitmap;
begin
IF Ventana <> 0 THEN
BEGIN
b := TBitmap.Create;
Guardar.FileName := 'Captura de la imagen';
Guardar.DefaultExt := 'bmp';
Guardar.Filter := 'Fichero Bitmap (*.bmp)*.bmp';
IF Guardar.Execute THEN
SendMessage(Ventana, WM_CAP_EDIT_COPY, 0,0);
b.LoadFromClipboardFormat (cf_BitMap, ClipBoard.GetAsHandle(cf_Bitmap), 0);
b.SaveToFile(Guardar.FileName );
b.Free;
END;
end;
Responder Con Cita
  #5  
Antiguo 14-02-2011
Avatar de KingOfDragons
KingOfDragons KingOfDragons is offline
Miembro
 
Registrado: abr 2008
Ubicación: culiacan, sinaloa
Posts: 72
Poder: 16
KingOfDragons Va por buen camino
Cita:
Empezado por ronald_tro Ver Mensaje
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
Responder Con Cita
  #6  
Antiguo 14-02-2011
Avatar de KingOfDragons
KingOfDragons KingOfDragons is offline
Miembro
 
Registrado: abr 2008
Ubicación: culiacan, sinaloa
Posts: 72
Poder: 16
KingOfDragons Va por buen camino
y Bueno ya que estamos con este tema me podrian ayudar ya que la solucion que dan no funciona me marca error quiero guardarlo en un archivo ya sea bmp o el formato que sea pero tambien quiero cambiar o definir su tamaño con el comando que dice el compañero al principio si funciona pero solo me deja el archivo con la primera letra de toda la cadena y sin formato que puedo hacer??
Responder Con Cita
  #7  
Antiguo 21-06-2012
Avatar de arrakshe
arrakshe arrakshe is offline
Registrado
NULL
 
Registrado: may 2012
Posts: 7
Poder: 0
arrakshe Va por buen camino
Tengo el mismo codigo con un problema diferente...

Tengo el mismo codigo pero el detalle esque el image1 me sale en negro cuando se prende la camara y la camara si sirve porque la he probado con otros programas y funciona perfectamente, no se si alguno tendra una minima idea del porque todo sale en negro, porque yo estoy perdido... Ademas como dato curioso un compañero implemento un codigo similar que si le esta funcionando sin embargo cuando lo coloque en mi programa no funciono y tenemos el mismo estilo de camara....
Responder Con Cita
  #8  
Antiguo 21-06-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por arrakshe Ver Mensaje
un compañero implemento un codigo similar que si le esta funcionando sin embargo cuando lo coloque en mi programa no funciono y tenemos el mismo estilo de camara....
Si la cámara es igual y el programa es distinto, y funciona en un programa sí y en el otro no, entonces es que hay un programa mal.
Responder Con Cita
  #9  
Antiguo 21-06-2012
Avatar de arrakshe
arrakshe arrakshe is offline
Registrado
NULL
 
Registrado: may 2012
Posts: 7
Poder: 0
arrakshe Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Si la cámara es igual y el programa es distinto, y funciona en un programa sí y en el otro no, entonces es que hay un programa mal.
De hecho es el mismo codigo, pero ya arregle el problema, es algo con los drivers de la camara porque si la apago y vuelvo a encender con el programa a la segunda encendida si funciona como debe ser, muchas gracias por tomarte el tiempo en responder.
Responder Con Cita
  #10  
Antiguo 13-07-2012
Avatar de Alexander
Alexander Alexander is offline
Miembro
 
Registrado: may 2004
Posts: 235
Poder: 20
Alexander Va por buen camino
Smile Sobre Webcam

Muy buen día.

Alguien sabe donde consigo el Driver para que me funcionen los programas de la webcam.
He revisado en los foros y ya tengo lo programas, pero con todos me sale la imagen en negro.

Muchas Gracias por su información.
__________________
Cielos azules
Responder Con Cita
  #11  
Antiguo 13-07-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Seguramente viene en el cd de la cámara.
También podrás descargarlo de la web del fabricante de la cámara.
También puede ser que el propio sistema operativo tenga alguno estandar y no necesites otro.

Si todo te sale siempre negro... ¿has quitado la tapa negra que trae el objetivo de la cámara?

Amigo, es casi imposible que te podamos ayudar sin ningún dato ni información, no has dado ni una triste pista de nada... y no somos adivinos
¿La has probado en otro ordenador?, ¿la has conectado a otro puerto?, ¿has comprobado el cable?, ¿sabes si está bien instalada?, ¿la reconoce el sistema operativo en hardware encontrado?, ¿no estarás con la luz apagada y es de noche?

Venga, a ver si nos das más pistas, amigo, que así es imposible.

Por cierto, sigue nuestra guía de estilo, esto que has escrito no tiene nada que ver con la pregunta que inició este tema. Deberías haber creado un hilo nuevo.
Responder Con Cita
  #12  
Antiguo 13-07-2012
Avatar de Alexander
Alexander Alexander is offline
Miembro
 
Registrado: may 2004
Posts: 235
Poder: 20
Alexander Va por buen camino
Smile Webcam

Lo siento no me exprese bien.

He revisado en los foros y hay muy buena ayuda (Código). Con esta ayuda he fabricado varios test para ver si la cámara funciona en un programa construido.

Las camaras por USB y por Firewire funcionan a la perfección tanto en el equipo de desarrollo como en otros con las aplicaciones propias, pero no con los test que he realizado. Lo que quiero es que funcione en una aplicación mía.

El Driver a que me refiero es que en los foros dice que es necesario tener "Microsoft Video for Windows SDK" o en su defecto AviCap32.dll (que lo tengo en la máquina).

Sin embargo con los desarrollos que he realizado con la ayuda del foro, la imagen sale negra e incluso con algunos de los ejecutables de los demo que han subido. Por eso me inclino en que me falta el "Microsoft Video for Windows SDK" pero este si no lo encuentro por ningún lado.

Por favor si alguien sabe donde lo puedo conseguir. Muchas Gracias.

p.d. Por ciero fuise demasiado sarcastico. . Thanks.
__________________
Cielos azules
Responder Con Cita
  #13  
Antiguo 13-07-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
No creo que necesites el Microsoft Video for Windows SDK, yo no recuerdo haberlo usado nunca con ninguna webcam.
¿No funciona con ningún programa, ni siquiera con el que trae la propia cámara?


Cita:
Empezado por Alexander Ver Mensaje
p.d. Por ciero fuise demasiado sarcastico. . Thanks.
Pero no lo hago con mala intención, sino en plan broma
Responder Con Cita
  #14  
Antiguo 13-07-2012
Avatar de Alexander
Alexander Alexander is offline
Miembro
 
Registrado: may 2004
Posts: 235
Poder: 20
Alexander Va por buen camino
Smile WebCam

Las caramas funcionan bien con sus controladores en diversos sistemas operativos (XP y 7).

No funcionan en los desarrollos sin componentes. Si bajas el ejemplo WebCamCapture - API de aquí mismo. Sucede lo mismo que con mis desarrollos. Y en todo lugar indica que necesito ese software para hacerla funcionar.

Muchas Gracias por tu tiempo.

Este es el hilo de donde se trabaja ese ejemplo. Ejemplo Web Cam sin Componentes
__________________
Cielos azules

Última edición por Alexander fecha: 13-07-2012 a las 21:55:57.
Responder Con Cita
  #15  
Antiguo 13-07-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Y por curiosidad, ¿qué webcam estás usando?
Responder Con Cita
  #16  
Antiguo 14-07-2012
Avatar de Alexander
Alexander Alexander is offline
Miembro
 
Registrado: may 2004
Posts: 235
Poder: 20
Alexander Va por buen camino
Smile web cam

Tengo varias:

Una compaq revieja USB
Una nuevecita HP USB
Una Sony Handy Cam firewire
Una Logitec normalita USB.

Y con todas es igual.
__________________
Cielos azules
Responder Con Cita
  #17  
Antiguo 14-07-2012
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por Alexander Ver Mensaje
Y con todas es igual.
Vaya
Responder Con Cita
  #18  
Antiguo 14-12-2017
CCCP CCCP is offline
Miembro
 
Registrado: dic 2004
Ubicación: Barcelona
Posts: 38
Poder: 0
CCCP Va por buen camino
Asi logre que capturara

Código Delphi [-]
procedure TObjWebCam.Capturar;
va BMP:TBitmap;
    DC:HDC;
Begin
IF FCapHandle <> 0 THEN
 BEGIN
   BMP:=TBitmap.Create;
   BMP.PixelFormat:=pf32bit;
   bmp.width := imagenWebCam.Width;
   bmp.Height := imagenWebCam.Height;
   DC:=GetDc(FCapHandle);
   Bitblt(bmp.canvas.handle, 0, 0, imagenWebCam.Width, imagenWebCam.Height, Dc, 0, 0, SRCCOPY);
   Releasedc (FCapHandle,dc);
   IF Guardar.Execute THEN Begin
      BMP.SaveToFile(Guardar.FileName);
   End;
   End;
End;

Última edición por Casimiro Notevi fecha: 14-12-2017 a las 22:32:41.
Responder Con Cita
  #19  
Antiguo 14-12-2017
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Justo se cumplió ayer 13 años desde que estás en clubdelphi

Y todavía no pones las etiquetas al código fuente
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Capturar Fotografia desde Webcam ? martita Gráficos 11 13-12-2012 19:24:04
Capturar imagen webcam fmtidona Gráficos 4 25-11-2005 19:04:31
Capturar imagen de webcam en Monocromo fmtidona Gráficos 1 15-09-2005 23:18:49
Capturar imagen desde webcam wogshit Gráficos 1 03-06-2004 11:14:50
Capturar video desde webcam... kolokol Internet 3 14-02-2004 11:14:57


La franja horaria es GMT +2. Ahora son las 16:32:58.


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