Capturar Imagen Con WebCam

[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 Noteví]

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.