是使用DirectX 8.0中的Direct Show来写吧,具体的不太清楚,也没写过.
解决方案 »
- 请问怎么获得cxDBPivotGrid当前点击的Cell数值？
- 几道面试题目
- 打开数据库时(DB.open),鼠标指针变为crSqlWait,如何去掉？
- sleep函数的最小延时时间竟然为10ms？
- 能向Web Service提交超过１MB的数据吗？在线等候
- 如何用语句来更改grid中的显示字段(displaylabel)?
- 报表字段太多，超出边界怎么处理？
- 请问怎样设置日期字段，才能将该字段的值设置为数据库服务器时间？
- 关于一个2000/NT下面关机权限的问题
- 哪里能下载Delphi入门到精通的电子书啊
- 运行时怎样用鼠标拖动改变控件的大小和位置(可以多加很多分)
- 有没有做视频会议的朋友，能谈谈思路吗？
当我们在欣赏美妙的动画时，是不是希望能截取其中自己喜欢的一幅画面呢？虽然方法有多种，但对于我们编程爱好者来说，当然是想通过自己编写的程序来完成，我就用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);beginpaintbox1.Canvas.copyrect(rect(0,0,200,200);imgbitmap.canvas,rect(0,0,200,200));end整个程序的完整代码如下：unit capture1;interfaceusesWindows, Messages,SysUtils,Classes,Graphics,Controls,Forms, Dialogs,Menus, MPlayer, ExtCtrls, StdCtrls;typeTForm1 = 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);privateimgbitmap:tbitmap;{Private declarations}public{Private declarations} end;varForm1:TForm1;implementation{$R *.DFM}procedure TForm1.Open1Click(Sender: TObject);beginif opendialog1.execute thenbeginmediaplayer1.filename:=opendialog1.filename;mediaplayer1.open;mediaplayer1.display:=form1;mediaplayer1.displayrect;=rect(10,10,200,200);end;end;procedure TForm1.Button1Click(Sender: TObject);beginimgbitmap.canvas.copyrect(rect(0,0,200,200),form1.canvas,rect(10,10,210,210));paintbox1.invalidate;end;procedure TForm1.FormPaint(Sender: TObject);begincanvas.FrameRect(rect(8,8,212,212))end;procedure TForm1.FormCreate(Sender: TObject);beginimgbitmap:=tbitmap.create;imgbitmap.height:=200;imgbitmap.width:=200;imgbitmap.canvas.rectangle(0,0,200,200)end;procedure TForm1.FormClose(Sender:TObject;var Action:TCloseAction);beginimgbitmap.free;end;procedure TForm1.PaintBox1Paint(Sender: TObject);beginpaintbox1.Canvas.copyrect(rect(0,0,200,200),imgbitmap.canvas,rect(0,0,200,200));end;end.