mciSendString 播放 AVI 木有声音

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

解决方案 »

  1.   

    有个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)
      

  2.   

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

  3.   

    AVI文件里本身有声音的
    不需要另配MIDI
    谢谢您的回复
      

  4.   

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

  5.   

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

  6.   

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

  7.   

    他的问题是没有声音，代码里又是AVI文件，可以理解成有画面没声音，这就可以和路径无关了
      

  8.   

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

  9.   

    正相反。AVIVideo不好用，换成MPEGVideo好了，但是下面这个代码如何改？    mciSendString "play " & App.Path & "\dawan.AVI fullscreen ", 0&, 0, 0&
      

  10.   

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

  11.   

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