Capturar Imagen Con WebCam

[luigysiete]

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!

[Wbarrantes]

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

[dekorone16]

Al momento de darle click al botos me marca un error "External excepcion C0000008" y me manda a esta linea de codigo ..

procedure TWebcam.Connect;
begin
  if CaptureWnd <> 0 then
    SendMessage(CaptureWnd, WM_Connect, 0, 0);
end;

Utilizo delphi 7 en Windows 7 y una camara web de usb, espero que me puedan ayudar a encontrar el error.

[lbidi]

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

[Casimiro Notevi]

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.

[ecfisa]

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.