DirectShow实现抓图(Delphi)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,shlobj, ExtCtrls,      {TFlatButtonUnit,TFlatPanelUnit,TFlatTitlebarUnit,}
    FlatBars, FlatBtns, FlatUtils, FlatPanel;

type

 //====================定义窗体类==========================//
  TForm1 = class(TForm)
  //界面控件
    open: TOpenDialog;    //打开对话框控件
    FlatPanel1: TFlatPanel; //FlatPanel控件
    Button1: TFlatButton;    //按钮控件
    Button2: TFlatButton;      //按钮控件
    FlatTitlebar1: TFlatTitlebar; //Titlebar 控件
    FlatButton1: TFlatButton;  //按钮控件
    FlatButton2: TFlatButton;    //按钮控件
    //窗口事件
    procedure FormClose(Sender: TObject; var Action: TCloseAction);     //窗口关闭事件
    procedure FormShow(Sender: TObject);  //窗口显示事件
    procedure Button1Click(Sender: TObject); //Button1的Click事件
    procedure Button2Click(Sender: TObject); //Button2的Click事件
    procedure FlatButton1Click(Sender: TObject); //FlatButton1的Click事件
    procedure FlatButton2Click(Sender: TObject);  //FlatButton2的Click事件
  private
    { Private declarations }

    mtv:widestring;     //视频文件名

  public
    { Public declarations }
     fillcolor:TColor;   //需要填充的颜色
    catchcolor:TColor;   //需要抠出的颜色
    detal:Byte;          //颜色误差范围
    procedure CreatDirectshow;    //创建Directshow环境资源
    Procedure FreeDirectshow;     //释放Directshow环境资源
    procedure catchpicture;       //捕捉视频图象，并做处理
  end;

var
  Form1: TForm1;  //定义窗体对象

implementation

{$R *.dfm}
uses
Directshow9,comobj,DSutil, Unit2; //包含附加的单元。Directshow9为微软DirectX SDK中Directshow的DELPHI单元文件
                                  //comobj为DELPHI的COM的单元
                                  //DSUtil为DIRECTSHOW的DELPHI工具单元
                                  //Unit2为 设置窗口 的单元

  //==================变量定义部分===============//
var
FilterG