jjejeje
 

muy interesante.... me gustaria intentar manipular una camara por web remota, como los de las camaras de seguridad, por ejemplo... si lo logro les paso mis alcances, aunque por el tiempo (en mi trabajo) me va a llevar rato...

A kristen bell la quiero entera no de a pedazos. Mejor si es de la época de Veronica Mars. Ja ja ja.

Ahora en serio, la verdad que te pasate con éste hilo. Todavía no lo probé pero me va a hacer mucha falta esto para una aplicación.
Muchisimas gracias por el aporte.;);););)

Aunque un poco tarde en este link está la respuesta a tu pregunta

http://www.clubdelphi.com/foros/showthread.php?t=68262

Salu2

Nunca es tarde, muchas gracias :D

hola casacham!!!
 

gracias a tu codigo eh logrado capturar una imagen y guardarla en un carpeta, el problema que tengo es que esto funciona perfectamente desde el compilador, pero si lo ejecuto desde el .exe no reconoce la webcam, ojala me pudieras ayudar!! y muchas gracias por el codigo.

estoy trabajando con delphi 2010 , wind 7, y tengo una lap HP, gracias.

Pruebas
 

:rolleyes:
Efectivamente este código lo he probado con una WEBcam Genius y me ha servido para mis pruebas muy bien.

Una Gran Ayuda
 

Bueno esto es para capturar la imagen desde una camara ewb, ahora sera similar las instrucciones para capturar la imagen desde un escaner y depositarla en una carpeta.

GRACIAS ADELANTADO POR LA AYUDA

Podria Servir
 

El codigo podria ser de utilidad, no lo he probado. Pero en teoria si uno especifica la fuente de donde proviene la imagen, esta se puede capturar. Analiza mas el contenido del codigo a ver si te es de utilidad. Si lo logras, por favor publicalo en este hilo.

Gracias a todos.

Alguno de ustedes al final pudo averiguar como pasarle la fuente de la procedencia a esta API?

Muchas gracias de antemano

Acabo de terminar una pequeña aplicacion utilizando los componentes dspack, esto es porque al igual que un usuario menciono, el codigo de este post solo me mostraba un cuadro negro al darle "Play" usando una webcam microsoft nx6000, investigando un poco mas encontre estos componentes gratuitos y muy faciles de usar, el pack original esta actualizado hasta Delphi7, yo hice una version para DelphiXE que es el que estoy usando, mi aplicacion permite seleccionar la fuente del video, y despues tomar una foto y guardarla en un archivo jpg, si a alguien le intereresa con gusto comparto el codigo asi como la actualizacion del dspack, intente compartir 2 enlaces pero como esta es mi primer colaboracion en el foro no me lo permitio, contacteme a quien le interesen, saludos desde Mexico!

genial
 

Genial te felicito... me encantaria ver tu aplicacion, para ver como fue que lo lograste, el tema se las trae, y la verdad el tiempo que le e podido dedicar al tema, es practicamente nulo... te agradeceria si nos compartes tu experiencia del caso...

Gracias

Hola
 

Al momento de darle click al botos me marca un error "External excepcion C0000008" y me manda a esta linea de codigo ..Utilizo delphi 7 en Windows 7 y una camara web de usb, espero que me puedan ayudar a encontrar el error.

Buen día, excelente aporte, mi pregunta es se podrá convertir la imagen capturada a texto?, por ejemplo la imagen de una patente de auto, convertirla al texto que dice la patente.Saludos.-

La Patente
 

Eso tiene que ver con el análisis del gráfico, busca temas relacionados al reconocimiento facial y/o imágenes. Hay funciones que permiten analizar pixel por pixel la imagen capturada, que con un algoritmo correcto te devolvería el texto de la patente.

Hola estimados.

Buscando informacion sobre como tomar una foto de una web cam, he llegado a este interesantisimo post. Lo he probado con el 2007 y me anduvo perfecto este codigo a la primera.

Es posible modificarlo para que en lugar de guardar imagenes BMP, guarde JPG ?? Mi idea es almacenar luego estas imagenes en una
BD y con BMP, creo que se podria agrandar el tamaño considerablemente.

Gracias totales

Saludos

Si la webcam crea JPG entonces podrás hacerlo, en caso contrario... no ;)

La solución que te quedaría es convertir tú mismo la imagen de BMP a JPG, busca por los foros, se ha tratado en diversas ocasiones y es algo sencillo de hacer.

Hola.

Creo que la segunda opción que te menciona Casimiro es la más simple. Y si la conversión la haces desde la imágen capturada, además de simple te permitirá aprovechar algunos beneficios de un TImage, por ejemplo Streech.

Código Delphi [-]
...
uses jpeg;

procedure SaveAsJPG(aImage: TImage; ImgName: string);
begin
  with TJPEGImage.Create do
  try
    Assign(aImage.Picture.Bitmap);
  finally
    SaveToFile(ImgName);
    Free;
  end;
end;

// llamada ejemplo:

Código Delphi [-]
procedure TForm1.btnSaveClick(Sender: TObject);
begin
  SaveAsJPG(Image1, 'C:\IMAGENES\IMAGE1.JPG');
end;

Saludos.

Resolución de la imagen capturada desde WebCam
 

Hola

He probado captura la imagen desde la webcam y funcionó perfectamente. También logre recortar la imagen y hacerle zoom alejándola o acercándola. Hasta ahí todo bien.


Lo que no se como hacer es como capturar una imagen con mayor resolución ya que la cámara es HD, pero las imagenes que capturo solo tienen una resolución de 96 ppp y yo quisiera capturar imágenes de 300 ppp por ejemplo. Las imagenes son fotos (tipo carnet) de 120 x 160 px y las necesito en más calidad para poder imprimirlas.

¿Alguien sabe como hacer eso?
Muchas gracias.

Se que lleva tiempo de este hilo, pero acabo de usar su código y me ha ido estupendamente con una webcam Best buy, gracias por tu aportación.

respuesta
 

aun n se de que forma es que va ese fichero webcam.pas ya que me da error a la hoora de cmpilarl, me dice que hay cosas que no estan declaradas

el errroo esta pr aca

Código Delphi [-]
  public
      const
        WM_Connect     = WM_USER + 10;
        WM_Disconnect  = WM_USER + 11;
        WM_GrabFrame   = WM_USER + 60;
        WM_SaveDIB     = WM_USER + 25;
        WM_Preview     = WM_USER + 50;
        WM_PreviewRate = WM_USER + 52;
        WM_Configure   = WM_USER + 41;
    public
      procedure Connect;
      procedure Disconnect;
      procedure GrabFrame;
      procedure SaveDIB(const FileName: String = 'webcam.bmp');
      procedure Preview(&on: Boolean = True);
      procedure PreviewRate(Rate: Integer = 42);
      procedure Configure;
    private
      CaptureWnd: HWnd;