如何用DELPHI 7制作一个媒体播放器?

Question

最好是有视频教程,播放器要求能播放音频和视频的,大家帮帮忙,谢谢
好啊,你帮我做,做完发给我,QQ:343124421

Answer 1

一.
第一步：进入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

我帮你做啊 可以不？