Delphi控制摄像头

Delphi对摄像头的控制很简单，在System，windows和messages三个单元内已定义了所有的底层消息函数，我们只需要合理的调用它们就行了。我把摄像头的有关操作做成一个控件，这样就可以拖动窗体上直接使用了。

{************************************
 *    Camera Control for Delphi7    *
 *          Made by Rarnu           *
 *        Credit 2006.08.27         *
 *       http://rarnu.ik8.com       *
 ************************************}

unit RaCameraEye;

interface

uses
  SysUtils, Classes, Controls, Windows, Messages;

{事件声明}
type
  {开始摄像事件}
  TOnStart = procedure(Sender: TObject) of object;
  {停止摄像事件}
  TOnStop = procedure(Sender: TObject) of object;
  {开始录像事件}
  TOnStartRecord = procedure(Sender: TObject) of object;
  {停止录像事件}
  TOnStopRecord = procedure(Sender: TObject) of object;

type
  TRaCameraEye = class(TComponent)
  private
    {图像显示容器}
    fDisplay: TWinControl;
    {事件关联变量}
    fOnStart: TOnStart;
    fOnStartRecord: TOnStartRecord;
    fOnStop: TOnStop;
    fOnStopRecord: TOnStopRecord;
  protected
  public
    {构造&析构，由TC