江湖救急：mediaplayer无法播放

我想用mediaplayer播放一个wma文件  
  但是点击button2(play)时说无法识别设备类型，怎么办？  
  以下是代码：  
  unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Variants,   Classes,   Graphics,   Controls,   Forms,  
      Dialogs,   StdCtrls,   MPlayer;  
   
  type  
      TForm1   =   class(TForm)  
          OpenDialog1:   TOpenDialog;  
          Edit1:   TEdit;  
          Button1:   TButton;  
          Button2:   TButton;  
          MediaPlayer1:   TMediaPlayer;  
          Edit2:   TEdit;  
          procedure   Button1Click(Sender:   TObject);  
          procedure   Button2Click(Sender:   TObject);  
          procedure   FormCreate(Sender:   TObject);  
          procedure   FormDestroy(Sender:   TObject);  
      private  
          {   Private   declarations   }  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      Form1.OpenDialog1.Execute;  
      Form1.Edit1.Text:=Form1.OpenDialog1.FileName;  
      Form1.OpenDialog1.FileName:=Form1.OpenDialog1.FileName;  
  end;  
   
  procedure   TForm1.Button2Click(Sender:   TObject);  
  begin  
      Form1.MediaPlayer1.Open;  
      Form1.MediaPlayer1.AutoOpen:=true;  
      Form1.MediaPlayer1.Next;  
      Form1.MediaPlayer1.Rewind;  
      Form1.MediaPlayer1.Notify:=true;  
      Form1.MediaPlayer1.Play;  
  end;  
   
  procedure   TForm1.FormCreate(Sender:   TObject);  
  begin  
      Form1.MediaPlayer1.DeviceType:=dtAutoSelect;  
      Form1.MediaPlayer1.Close;  
  end;  
   
  procedure   TForm1.FormDestroy(Sender:   TObject);  
  begin  
      Form1.MediaPlayer1.Close;  
  end;  
   
  end. 问题点数：20、回复次数：2Top

1 楼liangqingzhi（老之）回复于 2006-03-28 21:14:35 得分 20

这样的代码都写出来了，晕死  
  Form1.OpenDialog1.FileName:=Form1.OpenDialog1.FileName;  
   
  改成:   MediaPlayer1.FileName:=OpenDialog1.FileName;  
  先点击按钮1选文件名，再点击按钮2播放Top

2 楼Iori_Chiang（Iori_Chiang）回复于 2006-03-29 18:30:11 得分 0

旁观者清啊Top

相关问题

• mediaplayer
• opendialog
• tobject
• tform
• sender
• procedure
• button
• edit
• form
• click

• 帖主：Iori_Chiang
• liangqingzhi

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载