mciSendString 播放 AVI 木有声音

dbcontrols 2011-05-09 04:14:59
mciSendString "play " & App.Path & "\dawan.AVI fullscreen ", 0&, 0, 0&
搜索了好多地方了
...全文
103 点赞 收藏 12
写回复
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)
回复 点赞
发动态
发帖子
API
创建于2007-09-28

1196

社区成员

2.3w+

社区内容

VB API
社区公告
暂无公告