mciSendString 播放 AVI 木有声音

[dbcontrols]

mciSendString "play " & App.Path & "\dawan.AVI fullscreen ", 0&, 0, 0&
搜索了好多地方了

[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)
R% = mciSendString("CLOSE ANIMATION", 0&, 0, 0)

[赵4老师]

用转码软件转换一下AVI中的音频格式试试。可能是MCI不支持里面原来的音频格式。

[dbcontrols]

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]

[现在还是人类]

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
找到支持文件格式的解码器设备

[现在还是人类]

关闭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

[andy95800]

我记得用mciSendString 播放硬盘上的音频需要先获得其短文件名的
你这app.path 变数太多了

[现在还是人类]

[Quote=引用 6 楼 andy95800 的回复:]
我记得用mciSendString 播放硬盘上的音频需要先获得其短文件名的
你这app.path 变数太多了
[/Quote]
他的问题是没有声音，代码里又是AVI文件，可以理解成有画面没声音，这就可以和路径无关了

[dbcontrols]

有画面没声音

[现在还是人类]

[Quote=引用 8 楼 dbcontrols 的回复:]
有画面没声音
[/Quote]
换了解码器还是没声音吗？
MPEGVideo 不行换 AVIVideo 呢？
如果还不行估计你要看看是不是你的文件有问题了。
要不弄个以前的暴风来看看，以前的有很多解码器的。

[dbcontrols]

正相反。AVIVideo不好用，换成MPEGVideo好了，但是下面这个代码如何改？

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

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

换了解码器还是没声音吗？
MPEGVideo 不行换 AVIVideo 呢？
如果还不行估计你要看看是不是你的文件有问题了。
要不弄个以前的暴风来看看，以前的有很多解码器的。
[/Quote]

[啊的发哦]

mciSendString 虽说对文件名长度和格式比较挑，不过你的更多感觉是解码器问题

[dbcontrols]

问题解决，准备给分，supermanking帮助最大