使用TVideoGrabber捕捉攝像頭，相當容易，只需幾句代碼即可解決問題，首先我們新建一個工程,然后從控件面板上拉取一個TVideoGrabber控件到窗體中，然后再在窗體上放置四個Button,分別將Caption設為播放，暫停，停止，關閉,name分別設為BtnPlay,BtnPause,BtnStop,BtnClose將TVideoGrabber1的VideoSource的屬性設置為vs_VideoCaptureDevice

為各個按鈕添加點擊事件，完整代碼如下：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, VidGrab;

type
  TForm1 = class(TForm)
    VideoGrabber1: TVideoGrabber;
    BtnPlay: TButton;
    BtnPause: TButton;
    BtnStop: TButton;
    BtnClose: TButton;
    procedure BtnPlayClick(Sender: TObject);
    procedure BtnPauseClick(Sender: TObject);
    procedure BtnStopClick(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//開啟視屏

procedure TForm1.BtnPlayClick(Sender: TObject);
begin
  videoGrabber1.StartPreview;
end;

//暫?；蚶^續

procedure TForm1.BtnPauseClick(Sender: TObject);
begin
  if BtnPause.Caption = '暫停' then
    begin
      btnPause.Caption := '繼續';
      VideoGrabber1.PausePreview;
    end
  else
    begin
      btnPause.Caption := '暫停';
      VideoGrabber1.ResumePreview;
    end;
end;

//停止視屏

procedure TForm1.BtnStopClick(Sender: TObject);
begin
  videoGrabber1.StopPreview;
end;

//關閉窗體

procedure TForm1.BtnCloseClick(Sender: TObject);
begin
  close;
end;

end.