TC播放语音

功能 播放语音(音频文件,别名,开始位置,结束位置)
    var 回信息的缓冲区=""
    var 缓冲区的大小=0
    var 回调方式=0
    //命令组成="open "&音频文件&" type MPEGVideo Alias mp3 parent %u Style %u notify" //指打开MPEG,AVI等类型
    var 命令组成="open \""&音频文件&"\" type MPEGVideo Alias newmp3"&别名 //打开WAV,MP3
    //调试输出(命令组成)
    var 执行结果=dllcall("winmm.dll","Long","mciSendStringA","char *",命令组成,"char *",回信息的缓冲区,"Long",缓冲区的大小,"Long",回调方式)
    回信息的缓冲区=""
    缓冲区的大小=0
    回调方式=0
    命令组成="play newmp3"&别名&" FROM "&开始位置&" to "&结束位置&" wait"
    //命令组成="play newmp3 wait"
    //调试输出(命令组成)
    执行结果=dllcall("winmm.dll","Long","mciSendStringA","char *",命令组成,"char *",回信息的缓冲区,"Long",缓冲区的大小,"Long",回调方式)
    回信息的缓冲区=""
    缓冲区的大小=0
    回调方式=0
    命令组成="close newmp3"&别名
    //调试输出(命令组成)
    执行结果=dllcall("winmm.dll","Long","mciSendStringA","char *",命令组成,"char *",回信息的缓冲区,"Long",缓冲区的大小,"Long",回调方式)
    
结束

使用的例子

功能 播报数字(语音字符串)
    var 播起始=0
    var 播结束=0
    选择(语音字符串)
        条件 "百"
        播起始=4215
        播结束=4543
        条件 "十"
        播起始=4543
        播结束=5148
        条件 "元"
        播起始=5148
        播结束=5611
        条件 "角"
        播起始=5611
        播结束=5948
        条件 "分"
        播起始=5948
        播结束=6444
        条件 "1"
        播起始=0
        播结束=429
        条件 "2"
        播起始=429
        播结束=765
        条件 "3"
        播起始=765
        播结束=1312
        条件 "4"
        播起始=1312
        播结束=1775
        条件 "5"
        播起始=1775
        播结束=2195
        条件 "6"
        播起始=2195
        播结束=2591
        条件 "7"
        播起始=2591
        播结束=3011
        条件 "8"
        播起始=3011
        播结束=3424
        条件 "9"
        播起始=3424
        播结束=3777
        条件 "0"
        播起始=3777
        播结束=4215  
    结束
    如果(播起始>0||播结束>0)
        播放语音("rc:sound.wav",语音字符串,播起始,播结束)
    结束
结束

sound.wav文件打包