Webcam con Delphi ( II )

A continuación os muestro nuevas utilidades para usar una webcam con Delphi.

ALMACENAR UNA SECUENCIA DE VIDEO

Nuevos componentes del form:

tSaveDialog,
Definición de propiedades:
- Name = Guardar

tButton
Definición de propiedades:
- Name = BtnAlmacenarVideo
- Caption = AlmacenarVideo

En el Evento Onclic del tButton poner



PROCEDURE TForm1.BtnAlmacenarVideoClick(Sender: TObject);
BEGIN
IF Ventana <> 0 THEN
BEGIN
Guardar.Filter := 'Fichero AVI (*.avi)*.avi';
Guardar.DefaultExt := 'avi';
Guardar.FileName := 'FicheroAvi';
IF Guardar.Execute THEN
BEGIN
SendMessage(Ventana, WM_CAP_FILE_SET_CAPTURE_FILEA, 0,
Longint(pchar(Guardar.Filename)));
SendMessage(Ventana, WM_CAP_SEQUENCE, 0, 0);
END;
END;
END;



GUARDAR UNA FOTO DE LA VENTANA DE CAPTURA

Añadir un tButton

tButton
Definición de propiedades:
- Name = BtnGuardarImagen
- Caption = Guardar Imagen

Código del Botón



PROCEDURE TForm1.BtnGuardarImagenClick(Sender: TObject);
BEGIN
IF Ventana <> 0 THEN
BEGIN
Guardar.FileName := 'Captura de la imagen';
Guardar.DefaultExt := 'bmp';
Guardar.Filter := 'Fichero Bitmap (*.bmp)*.bmp';
IF Guardar.Execute THEN
SendMessage(Ventana, WM_CAP_SAVEDIB, 0,
longint(pchar(Guardar.FileName)));
END;
END;



Artículos relacionados

Webcam con Delphi ( I )

Webcam con Delphi ( III )

3 comentarios:

  1. hola mira he estado probando lo de hacer una captura con una webcam y no ahy manera estoy desesperadisimo porque la webcam la detecta y tal y se ve la imagen pero no hace la captura necesito ayuda urgente gracias

    ResponderEliminar
  2. Hola el codigo funciona pero al hacer la captura no coloca la extension del archivo si sabes como se corrige xfa ayuda urgente...

    ResponderEliminar
  3. Hola al guardar la imagen ningun visor la muestra apesar de que le de una extencion

    ResponderEliminar