Capturar Imagen Con WebCam

[[José Luis Garcí]]

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.

[FideRosado]

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;

[quini]

Empezado por FideRosado

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;

Hola, si estás usando Delphi 7 el error de compilación es porque no acepta las declaraciones de constantes dentro de la class TWebCam. Lo que debes hacer es poner las constantes entre const...+41; arriba de la declaración del objeto. Saludos