G guaiguai Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-13 #1 我在做一个最简单的播放器的时候,用到了DirectoryListBox、FileListBox和MediaPlayer控件,我想实现的功能是在FileListBox中的文件列表中选择一个文件,然后用MediaPlayer控件播放,请问如何实现。
我在做一个最简单的播放器的时候,用到了DirectoryListBox、FileListBox和MediaPlayer控件,我想实现的功能是在FileListBox中的文件列表中选择一个文件,然后用MediaPlayer控件播放,请问如何实现。
H hongxing_dl Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-13 #2 procedure TForm1.FileListBox1DblClick(Sender: TObject); begin MediaPlayer1.Stop; MediaPlayer1.Close; MediaPlayer1.FileName:=Filelistbox1.FileName; MediaPlayer1.Open; MediaPlayer1.Play; end;
procedure TForm1.FileListBox1DblClick(Sender: TObject); begin MediaPlayer1.Stop; MediaPlayer1.Close; MediaPlayer1.FileName:=Filelistbox1.FileName; MediaPlayer1.Open; MediaPlayer1.Play; end;
G guaiguai Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-13 #3 你的这个方法是对的,不过现在又有一个问题: No MCI device open 怎么一回事呢?
H hongxing_dl Unregistered / Unconfirmed GUEST, unregistred user! 2003-11-13 #4 MediaPlayer1的autoopen设为True,然后设计时预先指定一个可播放的文件,就可以了