用PlaySound播放音频文件的问题。

KnitsEDI 2012-01-29 08:26:38
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
begin
s := 'd:\ee.wma';
PlaySound(PChar('d:\ee.wma'), 0, SND_ASYNC);
end;

前面引用了uses MMSystem;但是运行此段代码不能播放，请各位了解的帮忙指点。谢谢！
...全文
345 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
KnitsEDI 2012-01-29
  • 打赏
  • 举报
 回复
谢谢！已OK!
「已注销」 2012-01-29
  • 打赏
  • 举报
 回复
S:=ExtractFilePath(paramstr(0))+‘EE.WAV’；


ExtractFilePath(paramstr(0))表示是EXE的根目录
KnitsEDI 2012-01-29
  • 打赏
  • 举报
 回复
搜索了下发现 PlaySound只能播入WAV格式的文件，把文件转成WAV格式的就可以播放了。
但是这样必须设置文件的路径，有什么方法可以把文件件是EXE进行绑定？
playsound播放音频文件未关闭文件-修改版.py
playsound播放音频文件未关闭文件-修改版。增加关闭语句winCommand('close', alias)
利用PlaySound函数播放音频文件.pdf
在Visual Studio中结合C++应用中的Window桌面程序应用，利用PlaySound函数播放音频文件。
playsound更改后自动stop释放音频文件.py
学习csdn上的相关python播放声音的模块，playsound非常小，如果你只是用于播放声音，那他就够了。 发现的问题：播放音频文件后，没有释放该文件。当你其他进程修改音频文件时会出错， def playmp3(): playsound("tem.mp3") def changmp3():#修改时： open("tem.mp3", "wb") as f: f.write(audio.get_wav_data()) 解决办法：有高手提到修改playsound模块。但需要下载修改后的模块。汗颜无下载币，本着试一试的态度自己修改了一下，成功。 特此上传，望给予支持。相互共享资源还是有些下载币的好。 修改方法：替换lib下的playsound.py即可。里面只是在播放命令后增加了一条“关闭播放”的命令
使用PlaySound函数播放小尺寸WAVE音频的过程
播放： PlaySound((LPCTSTR)IDR_WAVE_DIAL_TEL, AfxGetInstanceHandle(), SND_RESOURCE | SND_ASYNC |SND_LOOP); 停止就顺理成章的写为： PlaySound(NULL, AfxGetInstanceHandle(), SND_RESOURCE | SND_ASYNC |SND_LOOP); 可实际当中，怎么也不能停止播放。真正可以停止播放的是以下调用方式。 PlaySound(NULL, AfxGetInstanceHandle(), SND_MEMORY | SND_ASYNC |SND_LOOP); 个中原因我也没有深入下去，我想可能有这么一个解释。播放小尺寸WAVE文件，PlaySound会将音频资源存入一个放音缓冲中去。如果想停止的话，就先要清空放音缓冲才行。
修改playsound自动解除占用
playsound模块如果播放完后想重新播放或者进行修改就会提示拒绝访问。 因为文件被占用了。 此文件为playsound改进版。 解决了playsound模块无法解除文件占用的问题。 使用方法： 在python安装目录下的 ~\Python37\Lib\site-packages 找到playsound.py 替换即可。 参考文章：https://blog.csdn.net/weixin_44823747/article/details/97121037
Delphi

5,388

社区成员

262,730

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章