ReadyGo!技术成就梦想 网络搜索 efish 2008-1-17 2:01:01

怎样用delphi5做一个mediaplayer播放器?

楼主polly_110（）2004-03-25 13:07:32 在 Delphi / VCL组件开发及应用 提问

已经在system中把那个mediaplayer控件拉到form1中去了,接下来代码应怎样编写? 问题点数：0、回复次数：2Top

1 楼boytomato（深爱一人叫颖的女孩！）回复于 2004-03-25 13:13:21 得分 0

unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,  
      ExtCtrls,   StdCtrls,   MPlayer,   jpeg;  
   
  type  
      TForm1   =   class(TForm)  
          MediaPlayer1:   TMediaPlayer;  
          Button1:   TButton;  
          Button2:   TButton;  
          Button3:   TButton;  
          Button4:   TButton;  
          Button5:   TButton;  
          OpenDialog1:   TOpenDialog;  
          Timer1:   TTimer;  
          Label1:   TLabel;  
          Image1:   TImage;  
          procedure   Button1Click(Sender:   TObject);  
          procedure   Button2Click(Sender:   TObject);  
          procedure   Button3Click(Sender:   TObject);  
          procedure   Button5Click(Sender:   TObject);  
          procedure   Button4Click(Sender:   TObject);  
          procedure   Timer1Timer(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
   
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;      
      endposition:integer;  
   
  implementation  
   
  {$R   *.DFM}  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
   
  begin  
      opendialog1.FileName:="*.avi";  
      if   opendialog1.Execute   then  
          begin  
          mediaplayer1.Close;  
          mediaplayer1.filename:=opendialog1.filename;  
          label1.caption:="当前播放文件:"+Extractfilename(opendialog1.filename);  
          mediaplayer1.open;  
          mediaplayer1.next;  
          endposition:=mediaplayer1.position;  
          mediaplayer1.rewind;  
          button2.enabled:=true;  
          button3.enabled:=false;  
          button4.enabled:=false;  
          end;  
  end;  
   
  procedure   TForm1.Button2Click(Sender:   TObject);  
  begin  
      if   mediaplayer1.mode=mppaused   then  
      begin  
      mediaplayer1.Resume;  
      end  
      else  
      begin  
      mediaplayer1.play;  
      end;  
      button4.Enabled:=true;  
      button3.enabled:=true;  
      timer1.Enabled:=true;  
  end;  
   
  procedure   TForm1.Button3Click(Sender:   TObject);  
  begin  
  mediaplayer1.Pause;  
  button3.Enabled:=false;  
  button4.enabled:=false;  
  end;  
   
  procedure   TForm1.Button5Click(Sender:   TObject);  
  begin  
  mediaplayer1.Rewind;  
  mediaplayer1.Play;  
  end;  
   
  procedure   TForm1.Button4Click(Sender:   TObject);  
  begin  
  mediaplayer1.close;  
  close;  
  end;  
   
  procedure   TForm1.Timer1Timer(Sender:   TObject);  
  begin  
      if   mediaplayer1.position=endposition   then  
      begin  
          mediaplayer1.rewind;  
          mediaplayer1.play;  
      end;  
  end;  
   
  end.  
  Top

2 楼polly_110（）回复于 2004-03-26 11:22:30 得分 0

谢谢楼上的，还有一个小问题是，每次打开都只能打开一首歌，我想可能是应该在  
  opendialog里面改某些参数，就能使它一次打开多首歌。请问要改哪些参数，怎样改？Top