媒体播放器.txt

学习Delphi最好的教材。通过一个个简单而实用的实例

1.建一个文件夹，用于放程序。
2.新建一个程序。
3.保存(用Save All)
4.向窗体Form1添加控件MediaPlayer1，设置它的属性
MediaPlayer1.FileName='...';
MediaPlayer1.AutoOpen=True;
5.提供选择文件功能。添加OpenDialog1，添加Button1(文字改为'打开')，添加事件和代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    MediaPlayer1.FileName:=OpenDialog1.FileName;
end;
6.显示当前文件长度和播放进度。添加ScrollBar1，Timer1
并给Timer1添加代码：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ScrollBar1.Max:=MediaPlayer1.Length;
  ScrollBar1.Position:=MediaPlayer1.Position; 
end;
7.用数字显示当前文件长度和播放进度。添加Label1,Label2,并在Timer1的事件中添加代码：
  Label1.Caption:='文件长度：'+IntToStr(MediaPlayer1.Length);
  Label2.Caption:='播放进度：'+IntToStr(MediaPlayer1.Position);
8.显示播放的文件名。在打开按纽Button1的事件中添加代码：
  Form1.Caption:='我的播放器 当前播放：'+MediaPlayer1.FileName;
9.类似于6，添加TrackBar1显示文件长度和播放进度的控件
给Timer1添加代码：
  TrackBar1.Max:=MediaPlayer1.Length;
  TrackBar1.Position:=MediaPlayer1.Position;
10.类似于6，添加ProgressBar1显示文件长度和播放进度的控件
给Timer1添加代码：
  ProgressBar1.Max:=MediaPlayer1.Length;
  ProgressBar1.Position:=MediaPlayer1.Position;
11.类似于6，添加Gauge1显示文件长度和播放进度的控件
给Timer1添加代码：
  Gauge1.MaxValue:=MediaPlayer1.Length;
  Gauge1.Progress:=MediaPlayer1.Position;
12.利用ScrollBar1来反向控制MediaPlayer1的播放进度。
给ScrollBar1添加OnScroll(当它滚动时)
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode; var ScrollPos: Integer);
begin
  MediaPlayer1.Position:=ScrollBar1.Position;
  MediaPlayer1.Play;
end;