怎么用delphi7做一个视频播放器

怎么用delphi7做一个视频播放器

使用system控件组下面的MediaPlayer控件来做
filename属性是要播放的音乐所在的完整路径及名称。
MediaPlayer1.Open ;打开控件
MediaPlayer1.Play ;播放音乐
MediaPlayer1.Stop ;停止播放
MediaPlayer1.Pause ;暂停播放
MediaPlayer1.close关闭组件

上面这些可以使用一些按钮来存放代码，例如建个打开按钮，里面写上打开文件的语句（用dialogs组件面板里面的OPEN..那个组件），打开后动态给播放器的filename属性赋值：MediaPlayer1.FileName := '...'; 并且打开MediaPlayer1控件。 再建其他按钮，例如播放，暂停，关闭等。要做播放列表就放一个listbox之类的控件，打开时动态将那些歌曲名称添加到listbox中，注意保存完整路径，不然控件找不到就要罢工了，播放后用循环控制一下就行了

在窗体中放入label、button、timer、memo 四种类型的控件各一个： label1－－用于显示手机号码的滚动 timer1（时钟）－－用于产生随机的手机号码 button1－－点击即抽奖，并将获奖号码保存到memo1中 memo1－－用于保存获奖手机号码 unit unit1; interface uses   windows, messages, sysutils, variants, classes, graphics, controls, forms,   dialogs, stdctrls, extctrls; type   tform1 = class(tform)     label1: tlabel;     button1: tbutton;     timer1: ttimer;     memo1: tmemo;     procedure timer1timer(sender: tobject);     procedure formcreate(sender: tobject);     procedure button1click(sender: tobject);   private     { private declarations }   public     { public declarations }   end; const n=20; a:array[1..n] of string[11]=('13607193000','13607193001', '13607193002','13607193003','13607193004', '13607193005','13607193006','13607193007', '13607193008','13607193009', '13607193010','13607193011','13607193012', '13607193013','13607193014', '13607193015','13607193016','13607193017', '13607193018','13607193019');   var   form1: tform1; implementation {$r *.dfm} procedure tform1.timer1timer(sender: tobject); var k:integer; begin k:=trunc(n*random+1);   label1.caption:=a[k]; end; procedure tform1.formcreate(sender: tobject); begin       randomize; end; procedure tform1.button1click(sender: tobject); begin   memo1.lines.add(label1.caption); end; end.