K kenneth Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-19 #1 我自己用realpaly的Axtivex在做一个小的类似realplay的播放器，要做一个播放列表， 现在问题是：把歌加到列表中了，应该怎么让他播放完一首后播放下一首呢，怎么判断 一首歌放完 了
K kenneth Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-19 #2 procedure TForm1.N5Click(Sender: TObject); //播放列表文件 var i:integer; begin i:=0; if listbox1.Items.Count <>0 then begin realAudio1.Source :=listbox1.Items.Strings; realAudio1.DoPlay; form1.Caption :=listbox1.Items.Strings; .......//这里我应该怎么判断一首是否放完了呢 end; end; 用的是realaudio
procedure TForm1.N5Click(Sender: TObject); //播放列表文件 var i:integer; begin i:=0; if listbox1.Items.Count <>0 then begin realAudio1.Source :=listbox1.Items.Strings; realAudio1.DoPlay; form1.Caption :=listbox1.Items.Strings; .......//这里我应该怎么判断一首是否放完了呢 end; end; 用的是realaudio
Y yanghai0437 Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-19 #4 RealAudio1ShowStatus(TObject *Sender, BSTR statusText) //Loading , Playing , Seeking , PAUESD , Stoped 在这里你可以判断当前的播放状态.在Stoped状态表示播放完毕
RealAudio1ShowStatus(TObject *Sender, BSTR statusText) //Loading , Playing , Seeking , PAUESD , Stoped 在这里你可以判断当前的播放状态.在Stoped状态表示播放完毕
K kenneth Unregistered / Unconfirmed GUEST, unregistred user! 2002-10-19 #6 To:yanghai0437 可以说具体点吗、我很菜的， 用哪个与它判断 //Loading , Playing , Seeking , PAUESD , Stoped
Y ywuwgij Unregistered / Unconfirmed GUEST, unregistred user! 2003-09-26 #7 Private Sub RA_OnPositionChange(ByVal lPos As Long, ByVal lLen As Long) '播放时发生 'lpos为当前剪切时间 'lLen为全部剪切时间 这是VB中的代码见谅，参考着用吧！
Private Sub RA_OnPositionChange(ByVal lPos As Long, ByVal lLen As Long) '播放时发生 'lpos为当前剪切时间 'lLen为全部剪切时间 这是VB中的代码见谅，参考着用吧！
