zoukankan      html  css  js  c++  java
  • TVideoGrabber的使用(一)捕捉摄像头

    使用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.

    {以上代码在Delphi7+XP}

  • 相关阅读:
    .net导出Excel几种方式比较
    各种loading加载中gif图标
    鼠标右键Table的td弹出多级菜单,双击td编辑
    解决远程连接超过最大数
    JQuery1.72中二个Bug,formhtml()方法与clone()方法的二个Bug进行重写
    Wijmo 2017路线图
    Wijmo 2016 V3发布
    ComponentOne 2016 V3 发布
    Angular2正式版发布,Wijmo抢先支持
    最好的Angular2表格控件
  • 原文地址:https://www.cnblogs.com/xionda/p/9681830.html
Copyright © 2011-2022 走看看