怎么用Delphi制作媒体播放器

Question

求高手教我制作Delphi制作媒体播放器,要求.pas和.dfm文件

Answer 1

非常简单：以Delphi7为例
第一步：进入Delphi，窗体Form1
第二步：选择控件：Standard--->Panel（第15个）,放到Form1上
第三步：选择控件：System-->MediaPlayer1(第3个）,放到Form1上
第四步：选择控件：Dialogs-->OpenDialog(第1个）,放到Form1上
第伍步：选择控件：Standard--->Button（第7个）,放到Form1上
第六步：双击第五步的按钮，写代码：
==================================================================
var
rect:TRect;//播放区域
begin
//选择视频文件
if self.OpenDialog1.Execute then
begin
//播放区域
rect.Top:=self.Panel1.Top;
rect.Left:=self.Panel1.Left;
rect.Right:=self.Panel1.Left+self.Panel1.Width;
rect.Bottom:=self.Panel1.Top+self.Panel1.Height;

//设定在什么控件上播放
self.MediaPlayer1.Display:=self.Panel1;
self.MediaPlayer1.DisplayRect:=rect;
self.MediaPlayer1.FileName:=self.OpenDialog1.FileName;
self.MediaPlayer1.Open;
self.MediaPlayer1.Play;
end;
end;
==============================================================

按下F9，点击按钮，选择一个avi或者mpg等视频文件，看，是不是已经能播放了？

Answer 2

自己用控件做就可以了，一个控件都搞定
就是那个好多按钮的长条型控件，有播放、暂停什么的
可以在加上“打开文件”的控件选择歌曲
网吧上网不好做，给你思路自己做不是更有意思吗

Answer 3

H .H