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

b0y

音乐_播放  音乐_停止   必须在同一个线程内才行, 所以等待播放完毕就不能为真
你应该 音乐_播放 后 开始获取播放状态判断播放完毕则播放下面的  同时判断需不需要停止播放  

Suky

是可可吖 发表于 2025-3-6 02:01
这是楼主的需求啊，不是我的。我昨天已经给他建议了其他方式，但是他非要等待播放完毕为真，我也没办法 ...

模块开源的，把命令源码抠出来改一下就好了


补充内容 (2025-3-6 04:13):
把中断命令放到模块命令里面去

罗笛

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

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

[Erlang] 纯文本查看 复制代码

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 停止标识, 逻辑型

.子程序 _按钮_播放2_被单击

停止标识 ＝ 假
.如果 (停止标识 ＝ 假)
    音乐_播放 (取运行目录 () ＋ “/测试音频/开始.mp3”, “开始”, 假, 真)
    延迟 (音乐_时长 (取运行目录 () ＋ “/测试音频/开始.mp3”))
.否则
    返回 ()
.如果结束

.计次循环首 (3, )
    .如果 (停止标识 ＝ 假)
        音乐_播放 (取运行目录 () ＋ “/测试音频/音乐.mp3”, “音乐”, 假, 真)
        延迟 (音乐_时长 (取运行目录 () ＋ “/测试音频/音乐.mp3”))
    .否则
        返回 ()
    .如果结束

.计次循环尾 ()

.如果 (停止标识 ＝ 假)
    音乐_播放 (取运行目录 () ＋ “\结束.mp3”, “结束”, 假, 真)
    延迟 (音乐_时长 (取运行目录 () ＋ “/测试音频/结束.mp3”))
.否则
    返回 ()
.如果结束



.子程序 _按钮_停止2_被单击

停止标识 ＝ 真
音乐_停止 (“开始”)
音乐_停止 (“音乐”)
音乐_停止 (“结束”)

我之前就是这样写的，但会出现Bug，例如，连续单击播放-停止-播放-停止-播放，里面的延迟就会干扰，循环3次的音乐就会循环很多次，结束音乐也会出现很多次。

b0y

写个简单的例子  音乐播放完 要执行的代码在哪里

罗笛

b0y 发表于 2025-3-6 08:12
写个简单的例子  音乐播放完 要执行的代码在哪里

详情请看附件

b0y

罗笛 发表于 2025-3-6 11:01
详情请看附件

音频播放停止测试.e (960.2 KB, 下载次数: 2)

2025-3-6 13:35 上传

点击文件名下载附件

线程里 可以等待播放完毕  
同一个线程 可以 音乐_停止()

罗笛

b0y 发表于 2025-3-6 13:36
线程里 可以等待播放完毕  
同一个线程 可以 音乐_停止()

感谢大佬，这样写的话bug解决了，但停止的时候不能再音乐播放过程中停止，还是得等音乐放完一遍才能停止

b0y

罗笛 发表于 2025-3-6 14:51
感谢大佬，这样写的话bug解决了，但停止的时候不能再音乐播放过程中停止，还是得等音乐放完一遍才能停止 ...

因为等待播放完毕的原因  你试试把播放那里 改回延时等待   线程里可以用延时  不卡界面

罗笛

b0y 发表于 2025-3-6 15:01
因为等待播放完毕的原因  你试试把播放那里 改回延时等待   线程里可以用延时  不卡界面 ...

好的，我试试