Interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,Menus,DSPack,DSUtil,DirectShow9,StdCtrls,ExtCtrls,MPlayer;

type

TForm1=class(TForm)

FilterGraph:TFilterGraph;

VideoWindow1:TVideoWindow;

Filter1:TFilter;

ComboBox1:TComboBox;

Label1:TLabel;

Image1:TImage;

Button1:TButton;

ButtonStopPlay:TButton;

Image2:TImage;

SampleGrabber1:TSampleGrabber;

Label3:TLabel;

Label4:TLabel;

CheckBox1:TCheckBox;

Timer1:TTimer;

Memo1:TMemo;

Label2:TLabel;

CheckBox2:TCheckBox;

MediaPlayer1:TMediaPlayer;

Procedure FormCreate(Sender:TObject);

Procedure ComboBox1Change(Sender:TObject);

Procedure Button1Click(Sender:TObject);

Procedure ButtonStopPlayClick(Sender:TObject);

Procedure Button3Click(Sender:TObject);

Procedure Button4Click(Sender:TObject);

Procedure Button5Click(Sender:TObject);

Procedure CheckBox1Click(Sender:TObject);

Procedure Timer1Timer(Sender:TObject);

private

public

end;

var

Form1:TForm1;

VideoDevice:TSysDevEnum;