用Delphi编写视频捕捉程序

Bold · 2001年第7期

当我们在欣赏美妙的动画时，是不是希望能截取其中自己喜欢的一幅画面呢？虽然方法有多种，但对于我们编程爱好者来说，当然是想通过自己编写的程序来完成，我就用Delphi编写了这样一个程序，希望与大家分享。
　　 首先，要在窗体中放入TMediaPlayer组件、TMainMenu组件，TOpenDialog组件和TButton组件各一个，并调整好各组件位置。
　　 为了加载媒体文件，需要在主菜单上建立一个Open选项，当用户打开并加载一个新的文件时，调用事件处理器，它决定将在什么位置播放该视频文件，并启动媒体播放器组件。为了确定打开哪个文件，需要用到OpenDialog组件。当在OpenDialog组件中执行execute方法时，它显示标准的打开对话框，并返回一个布尔值，表示用户已经选择了“OK”还是“Cancel”。如用户选取了一个有效文件，那么设置MediaPlayer上的FileName属性，使其等于OpenDialog的FileName属性，代码如下：
　　 Mediaplayer.filename:=opendialog1.filename;

接下来，通过调用Open方法来打开并启动媒体播放器：
　　 MediaPlayer1.open;

准备运行视频剪辑的最后一步是指定在Form1上要运行的图形及画面应该显示的区域。这是必要的，因为这样才会知道在什么位置捕捉图像。代码如下：
　　 Mediaplayer1.display:=form1;

Mediaplayer1.displayrect:=rect（10，10，200，200）

然后将TButton组件的caption属性改为“Capture”，这个按钮用来获取当前画面，并将其拷贝到内存中的一个位图中。但是把位图存储到什么位置呢？我们可以在TForm类说明的Private添加位图。虽然主窗体中引用了这个位图，但加载窗体时，仍需要调用create方法和定位图的尺寸。类似地，在关闭窗体时，通过删除这个位图来完成清理工作。捕捉的图像的显示是这样来完成的：将PaintBox组件放置于窗体上，每当调用OnPaint事件时，使用这个窗体的OnPaint事件将位图拷贝到PaintBox中，代码如下：
　　 procedure TForm1.PaintBox1Paint（Sender: TObject）;

begin
　　 paintbox1.Canvas.copyrect（rect（0，0，200，200）;imgbitmap.canvas，rect（0，0，200，200））; end

整个程序的完整代码如下：
　　 unit capture1;

interface
　　 uses
　　 Windows， Messages，SysUtils，Classes，Graphics，Controls，Forms， Dialogs，
　　 Menus， MPlayer， ExtCtrls， StdCtrls;

type
　　 TForm1 = class（TForm）
　　 Button1:TButton;

PaintBox1:TPaintBox;

MediaPlayer1: TMediaPlayer;

OpenDialog1: TOpenDialog;

MainMenu1:TMainMenu;

File1:TMenuItem;

Open1:TMenuItem;

N1:TMenuItem;

procedure Open1Click（Sender: TObject）;

procedure Button1Click（Sender: TObject）;

procedure FormPain（Sender: TObject）;

procedure FormCreate（Sender: TObject）;
　　 procedure FormClose（Sender:TObject;var Action:TCloseAction）;

procedure PaintBox1Paint（Sender: TObject）;
　　 procedure Exit1Click（Sender: TObject）;

private
　　 imgbitmap:tbitmap;

{Private declarations}

public
　　 {Private declarations}

end;

var
　　 Form1:TForm1;

implementation
　　 {$R *.DFM}

procedure TForm1.Open1Click（Sender: TObject）;

begin
　　 if opendialog1.execute then
　　 begin
　　 mediaplayer1.filename:=opendialog1.filename;

mediaplayer1.open;

mediaplayer1.display:=form1;

mediaplayer1.displayrect;=rect（10，10，200，200）;

end;

end;

procedure TForm1.Button1Click（Sender: TObject）;
　　 begin
　　 imgbitmap.canvas.copyrect（rect（0，0，200，200），form1.canvas，rect（10，10，210，210））; paintbox1.invalidate;

end;

procedure TForm1.FormPaint（Sender: TObject）;

begin
　　 canvas.FrameRect（rect（8，8，212，212））
　　 end;

procedure TForm1.FormCreate（Sender: TObject）;

begin
　　 imgbitmap:=tbitmap.create;

imgbitmap.height:=200;

imgbitmap.width:=200;

imgbitmap.canvas.rectangle（0，0，200，200）

end;

procedure TForm1.FormClose（Sender:TObject;var Action:TCloseAction）;

begin
　　 imgbitmap.free;

end;

procedure TForm1.PaintBox1Paint（Sender: TObject）;

begin
　　 paintbox1.Canvas.copyrect（rect（0，0，200，200），imgbitmap.canvas，rect（0，0，200，200））; end;

end.