mciSendString 播放 AVI 木有声音

dbcontrols 2011-05-09 04:14:59
mciSendString "play " & App.Path & "\dawan.AVI fullscreen ", 0&, 0, 0&
搜索了好多地方了
...全文
213 12 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
dbcontrols 2011-05-09
  • 打赏
  • 举报
回复
问题解决,准备给分,supermanking帮助最大
啊的发哦 2011-05-09
  • 打赏
  • 举报
回复
mciSendString 虽说对文件名长度和格式比较挑,不过你的更多感觉是解码器问题
dbcontrols 2011-05-09
  • 打赏
  • 举报
回复
正相反。AVIVideo不好用,换成MPEGVideo好了,但是下面这个代码如何改?

mciSendString "play " & App.Path & "\dawan.AVI fullscreen ", 0&, 0, 0&

[Quote=引用 9 楼 supermanking 的回复:]
引用 8 楼 dbcontrols 的回复:
有画面没声音

换了解码器还是没声音吗?
MPEGVideo 不行换 AVIVideo 呢?
如果还不行估计你要看看是不是你的文件有问题了。
要不弄个以前的暴风来看看,以前的有很多解码器的。
[/Quote]
现在还是人类 2011-05-09
  • 打赏
  • 举报
回复
[Quote=引用 8 楼 dbcontrols 的回复:]
有画面没声音
[/Quote]
换了解码器还是没声音吗?
MPEGVideo 不行换 AVIVideo 呢?
如果还不行估计你要看看是不是你的文件有问题了。
要不弄个以前的暴风来看看,以前的有很多解码器的。
dbcontrols 2011-05-09
  • 打赏
  • 举报
回复
有画面没声音
现在还是人类 2011-05-09
  • 打赏
  • 举报
回复
[Quote=引用 6 楼 andy95800 的回复:]
我记得用mciSendString 播放硬盘上的音频需要先获得其短文件名的
你这app.path 变数太多了
[/Quote]
他的问题是没有声音,代码里又是AVI文件,可以理解成有画面没声音,这就可以和路径无关了
andy95800 2011-05-09
  • 打赏
  • 举报
回复
我记得用mciSendString 播放硬盘上的音频需要先获得其短文件名的
你这app.path 变数太多了
现在还是人类 2011-05-09
  • 打赏
  • 举报
回复
关闭MCI设备命令:
close 设备别名

如:
close MyMciDC

同时还有如:
Pause MyMciDC
play MyMciDC notify
setaudio MyMciDC source to left
setaudio MyMciDC source to right
setaudio MyMciDC source to stereo
status MyMciDC source
setaudio MyMciDC volume to 数字
...
具体参考MSDN
现在还是人类 2011-05-09
  • 打赏
  • 举报
回复
MCI播放命令格式:
open 文件路径名 type 解码器设备 alias 设备别名[ Style child Parent 父窗口句柄]

如:
open C:\dawan.AVI type MPEGVideo alias MyMciDC

至于解码器名可在注册表的:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\MCI Extensions
找到支持文件格式的解码器设备
dbcontrols 2011-05-09
  • 打赏
  • 举报
回复
AVI文件里本身有声音的
不需要另配MIDI
谢谢您的回复
[Quote=引用 1 楼 simon__sun 的回复:]
有个PLAY MIDI 你看看有用不


'play midi
R% = mciSendString("OPEN " + CDBox.filename + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0)
R% = mciSendString("PLAY " + Alias + " FROM 0", 0&, 0, 0)
……
[/Quote]
赵4老师 2011-05-09
  • 打赏
  • 举报
回复
用转码软件转换一下AVI中的音频格式试试。可能是MCI不支持里面原来的音频格式。
simon__sun 2011-05-09
  • 打赏
  • 举报
回复
有个PLAY MIDI 你看看有用不


'play midi
R% = mciSendString("OPEN " + CDBox.filename + " TYPE SEQUENCER ALIAS " + Alias, 0&, 0, 0)
R% = mciSendString("PLAY " + Alias + " FROM 0", 0&, 0, 0)
R% = mciSendString("CLOSE ANIMATION", 0&, 0, 0)

1,488

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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