国产精选区1区2,91免费在线,调教sm美少女

如何使用TVideoGrabber捕捉攝像頭

原創(chuàng)|其它|編輯：郝浩|2012-09-26 10:22:30.000|閱讀 257 次

概述：本文主要介紹如何使用TVideoGrabber捕捉攝像頭。

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

為各個(gè)按鈕添加點(diǎn)擊事件，完整代碼如下：

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;

//暫停或繼續(xù)

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

//停止視屏

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

//關(guān)閉窗體

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

end.

標(biāo)簽：

本站文章除注明轉(zhuǎn)載外，均為本站原創(chuàng)或翻譯。歡迎任何形式的轉(zhuǎn)載，但請務(wù)必注明出處、不得修改原文相關(guān)鏈接，如果存在內(nèi)容上的異議請郵件反饋至chenjj@ke049m.cn

文章轉(zhuǎn)載自：博客園

上一篇：如何更改DevEXpress DXGrid網(wǎng)格控件數(shù)據(jù)單元格的外觀下一篇：FastReport.Net報(bào)表控件使用方法集錦