怎么停止线程里正在播放的音乐

罗笛

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程句柄	整数型

子程序名	返回值类型	公开	备 注
_按钮_播放1_被单击

停止标识 ＝ 假
线程句柄 ＝ 线程_启动 (&播报, )

子程序名	返回值类型	公开	备 注
_按钮_停止2_被单击

音乐_停止 (“开始”)  ' 不起作用
音乐_停止 (“音乐”)  ' 不起作用
音乐_停止 (“结束”)  ' 不起作用
线程_销毁 () (线程句柄)  ' 使用挂起或结束线程，它都要播放完正在播放的音频才会停止

子程序名	返回值类型	公开	备 注
播报

音乐_播放 (取运行目录 () ＋ “/测试音频/开始.mp3”, “开始”, 真, 真)  ' 播放一遍
计次循环首 (3, )
音乐_播放 (取运行目录 () ＋ “/测试音频/音乐.mp3”, “音乐”, 真, 真)  ' 播放三遍
计次循环尾 ()
音乐_播放 (取运行目录 () ＋ “/测试音频/结束.mp3”, “结束”, 真, 真)  ' 播放一遍

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程句柄, 整数型<br /> <br /> .子程序 _按钮_播放1_被单击<br /> <br /> 停止标识 ＝ 假<br /> 线程句柄 ＝ 线程_启动 (&播报, )<br /> <br /> <br /> .子程序 _按钮_停止2_被单击<br /> <br /> 音乐_停止 (“开始”)  ' 不起作用<br /> 音乐_停止 (“音乐”)  ' 不起作用<br /> 音乐_停止 (“结束”)  ' 不起作用<br /> 线程_销毁 ()(线程句柄)  ' 使用挂起或结束线程，它都要播放完正在播放的音频才会停止<br /> <br /> .子程序 播报<br /> <br /> 音乐_播放 (取运行目录 () ＋ “/测试音频/开始.mp3”, “开始”, 真, 真)  ' 播放一遍<br /> .计次循环首 (3, )<br />     音乐_播放 (取运行目录 () ＋ “/测试音频/音乐.mp3”, “音乐”, 真, 真)  ' 播放三遍<br /> .计次循环尾 ()<br /> 音乐_播放 (取运行目录 () ＋ “/测试音频/结束.mp3”, “结束”, 真, 真)  ' 播放一遍

需求：
1.程序用到了精易模块里的“音乐_播放（）”，而且“是否等待播放完毕”必须为真，因为需要等音乐完全播放完毕后才能执行有一些代码，也不能用延迟（音乐时长）这些方法，
2.如果“音乐_播放（）”不加在线程里，那么“是否等待播放完毕”为真时，播放音乐时窗口及组件都不能操作，点不了停止。
3.自带媒体库里的“播放mp3（）”也不好用，因为它音乐没完全播放完就开始执行后面的代码了。
4.“音乐_停止”这个命令在线程外对线程内不起作用

求能停止线程内正在播放音乐的方法。

算法艺术家

确实只能在同线程里起作用，你要么不用多线程，全在主线程里完成，要么就通过全局变量来控制停止

易有易用

精易模块的音乐播放命令不支持线程我记得，你可以考虑用别的，比如说bass

算法艺术家

  

音乐_播放 (路径, 标识, 假, 真)
延时 (100)
总时长 ＝ 音乐_时长 (路径)
判断循环首 (真)
如果真 (全局_停止播放 ＝ 真)
音乐_停止 (标识)
返回 ()

如果真 (音乐_进度 (标识) ≥ 总时长)
音乐_停止 (标识)
跳出循环 ()
延时 (500)
判断循环尾 ()

.版本 2<br /> <br />         音乐_播放 (路径, 标识, 假, 真)<br />         延时 (100)<br />         总时长 ＝ 音乐_时长 (路径)<br />         .判断循环首 (真)<br />             .如果真 (全局_停止播放 ＝ 真)<br />                 音乐_停止 (标识)<br />                 返回 ()<br />             .如果真结束<br /> <br />             .如果真 (音乐_进度 (标识) ≥ 总时长)<br />                 音乐_停止 (标识)<br />                 跳出循环 ()<br />             .如果真结束<br />             延时 (500)<br />         .判断循环尾 ()

asd1321as23d1

  

子程序名	返回值类型	公开	备 注
音乐_播放s	逻辑型		真=播放成功,假=播放失败。可用于同时播放多首音乐，只要标识不同
参数名	类 型	参考	可空	数组	备 注
文件名	文本型				支持格式:mp3,wav,其他格式没有测试..也可以是网络地址
标识	文本型				不可以含有空格，用于标识播放了哪个歌曲,可用来控制该音乐。比如:mysong

变量名	类 型	静态	数组	备 注
type	文本型

mciSendStringA (“open ” ＋ #引号 ＋ 文件名 ＋ #引号 ＋ “ alias ” ＋ 标识, “0”, 0, 0)
返回 (mciSendStringA (“play ” ＋ 标识 ＋ “ wait”, “0”, 0, 0) ＝ 0)

.版本 2<br /> <br /> .子程序 音乐_播放s, 逻辑型, , 真=播放成功,假=播放失败。可用于同时播放多首音乐，只要标识不同<br /> .参数 文件名, 文本型, , 支持格式:mp3,wav,其他格式没有测试..也可以是网络地址<br /> .参数 标识, 文本型, , 不可以含有空格，用于标识播放了哪个歌曲,可用来控制该音乐。比如:mysong<br /> .局部变量 type, 文本型<br /> <br /> mciSendStringA (“open ” ＋ #引号 ＋ 文件名 ＋ #引号 ＋ “ alias ” ＋ 标识, “0”, 0, 0)<br /> 返回 (mciSendStringA (“play ” ＋ 标识 ＋ “ wait”, “0”, 0, 0) ＝ 0)

这不就完事了吗，

音乐_播放s (“https://music.163.com/song/media/outer/url?id=2676672884.mp3”, “1”)

  

DLL命令名	返回值类型	公开	备 注
mciSendStringA	整数型		播放音乐文件
DLL库文件名:
winmm.dll
在DLL库中对应命令名:
mciSendStringA
参数名	类 型	传址	数组	备 注
lpstrCommand	文本型
lpstrRetumString	文本型
uReturnLength	整数型
hwndCallback	整数型

.版本 2<br /> <br /> .DLL命令 mciSendStringA, 整数型, "winmm.dll", "mciSendStringA", , 播放音乐文件<br />     .参数 lpstrCommand, 文本型<br />     .参数 lpstrRetumString, 文本型<br />     .参数 uReturnLength, 整数型<br />     .参数 hwndCallback, 整数型

无需各种逻辑

asd1321as23d1

asd1321as23d1 发表于 2025-3-6 00:21
[e=0].版本 2

.子程序 音乐_播放s, 逻辑型, , 真=播放成功,假=播放失败。可用于同时播放多首音乐，只要标 ...

抱歉看错了 嘿嘿

是可可吖

如果非要用精易模块里的  音乐_播放（）并且   是否等待歌曲播放完毕  为真

我个人觉得，这个问题可能真的无解...

线程启动可以操作界面，也可以停止甚至结束线程，但是歌曲不能停止也没用

我也测试过 把  是否等待歌曲播放完毕  这个参数改成变量调用

但是在线程中也是无效的...

我个人还是建议你这样写吧

时长 ＝ 音乐_时长 (取运行目录 () ＋ “/测试音频/音乐.mp3”)
延迟 (时长)

延迟结束后再执行其他代码，应该也可以吧

山猫啊

例子.e (959.24 KB, 下载次数: 0)

2025-3-6 01:08 上传

点击文件名下载附件

补充内容 (2025-3-6 01:15):
线程内停止无效  不用测试了

算法艺术家

是可可吖 发表于 2025-3-6 01:06
如果非要用精易模块里的  音乐_播放（）并且   是否等待歌曲播放完毕  为真

我个人觉得，这个问题可能真的 ...

是否等待歌曲播放完毕  不能为真，那样代码就不往下走了，它只是想等播放完，通过死循环 不停的判断音乐进度 一样可以等待播放完 并且循环里还可以干别的

补充内容 (2025-3-6 01:40):
当然肯定还有更好的办法，暂时没想出来

是可可吖

算法艺术家 发表于 2025-3-6 01:39
是否等待歌曲播放完毕  不能为真，那样代码就不往下走了，它只是想等播放完，通过死循环 不停的判断音乐 ...

这是楼主的需求啊，不是我的。我昨天已经给他建议了其他方式，但是他非要等待播放完毕为真，我也没办法