神龙卡开发ktv点歌系统,怎样捕捉一首歌结束的信号,播放下一首?

Question

神龙卡开发ktv点歌系统,怎样捕捉一首歌结束的信号,播放下一首?

Answer 1

///////////////
为五角而努力！！！
////////////////
procedure TPlayForm.MediaPlayer1Notify(Sender: TObject);
begin
  With MediaPlayer1 do
  begin
    if Notify and (Mode=mpStopped) then
    begin
      Inc(I); //  I 为全局变量
      if I > ListBox1.Items.Count then
        I := 1;
      FileName := ListBox1.Items.Strings[I];  // ListBox1 中存的是文件名
      Open;
      Play;
      Notify:=True;
    end;
  end;
end; 

Answer 2

哈哈。楼上的只要5角？给你一块钱好了。xixi～～
楼主的问题不会。
up

Answer 3

CDSoftwareWj(95927)老兄别笑，
我也需要了。

Answer 4

这帖子多少年了，hehe^^ 楼主早就人去楼空啦 这问题还不简单 .... 这个吗是这样的.....你再开个帖子吧 Ohhh~~~~