//这样为什么运行出现错误procedure TForm1.Button1Click(Sender: TObject);

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  m1: TMediaPlayer;
begin
  m1 := TMediaPlayer.Create(self);
  m1.FileName := 'a.wav';
  m1.Play;
//这样为什么运行出现错误

Answer 1

tmediaplayer.create(application)
m1.open；
然后在play，试试？
我曾经弄过一次这东东，没弄明白。

Answer 2

{首先要uses mplayer单元}
procedure TForm1.Button1Click(Sender: TObject);
var
  m1: TMediaPlayer;
begin
  m1 := TMediaPlayer.Create(application);
  m1.AutoEnable:=true;
  m1.AutoRewind:=true;
  m1.Enabled:=true;
  m1.visible:=true;
  m1.AutoOpen:=false;
  m1.DeviceType:=dtautoselect;
  m1.parent:=form1;
  m1.display:=panel1;
  m1.FileName :='g:\999.mpg';
  m1.open;
  m1.Play;
  {setting AutoEnable, AutoRewind, Enabled,
   and Visible to True, AutoOpen to False, and DeviceType to dtAutoSelect.}
end;祝：身体健康，分数和答案同样重要：）

Answer 3

Uses MPlayer;
procedure TForm1.Button1Click(Sender: TObject);
var
  m1: TMediaPlayer;
begin
  m1 := TMediaPlayer.Create(Self);
  m1.Parent:=self;  //重要！为新创建的窗体设置父窗体。
  m1.FileName := 'a.wav';
  m1.Open;
  m1.Play;
end;