mediapley问题 回复内容

1 楼skynew2004(总想让别人帮我一下。skynew.ys168.com)回复于 2005-05-09 21:24:36

showmessage(filename)   ;的结果是什么?Top

2 楼5043682(投身于..??)回复于 2005-05-09 21:32:39

procedure   TForm1.BitBtn2Click(Sender:   TObject);  
  begin  
  if   openDialog1.Execute   then  
      begin  
      MediaPlayer1.FileName:=Opendialog1.FileName;  
      mediaPlayer1.Close;  
      MediaPlayer1.Open;  
      MediaPlayer1.TimeFormat:=tfhms;  
      end;  
      end;  
  上面的代码是选择歌曲的,你的另外一个button键就可以播放了Top

3 楼ejian9862105(£蓝)回复于 2005-05-10 10:42:21

谢谢大家,我改了个  
  filename:=ExtractFilePath(application.ExeName)+'sound/'+table1.fieldbyname('路径').asstring;  
   
  好像就可以了。Top

最新教程