回 帖 发 新 帖 刷新版面

主题:求教循环播放MP3文件的代码

请教先生,用以下五行代码
Declare INTEGER mciSendString IN winmm.DLL STRING ,STRING @,INTEGER ,INTEGER 
cmusicname='D:\2.mp3'
Buffer=SPACE(100)
mcisendstring("open "+cmusicname+" alias sound",@BUFFER,80,0)
mcisendstring("play sound from 0",@BUFFER,80,0)
已经可以播放mp3声音文件了,但它是一曲播放完后自动结束,现在求教能否有一曲循环播放的代码,谢谢

回复列表 (共1个回复)

沙发

Declare INTEGER mciSendString IN winmm.DLL STRING ,STRING @ ,INTEGER ,INTEGER 
cmusicname='D:\2.mp3'
Buffer=SPACE(100)
mcisendstring("open "+cmusicname+" alias sound",@BUFFER,80,0)

_screen.AddObject('mytime','mytimer')


DEFINE CLASS mytimer as Timer 
    interval = (2.mp3文件的秒数*1000)
    PROCEDURE timer 
           buffer = SPACE(100)
           mcisendstring("play sound from 0",@BUFFER,80,0)
    ENDPROC
ENDDEFINE

我来回复

您尚未登录,请登录后再回复。点此登录或注册