mciSendString函数无法播放含空格的音乐文件名，如何解决？

逍遥爱迪生

Private Declare Function GetShortPathName Lib "kernel32" _
Alias "GetShortPathNameA" (ByVal lpszLongPath As String, _
  ByVal lpszShortPath As String, _
  ByVal cchBuffer As Long) As Long

  
Function ShortPath(ByVal FileName As String, Optional MaxLen As Long = 255) As String
    Dim ID As Long
    ShortPath = String(MaxLen, " ")
    GetShortPathName FileName, ShortPath, MaxLen
    ID = InStr(ShortPath, Chr(0))
    If ID > 0 Then ShortPath = Left(ShortPath, ID - 1)
End Function


SUB TEST()
DIM MP3 AS STRING
MP3="C:\AB   22.MP3"
'要真实的MP3文件，缩短路径用的


MP3=ShortPath(MP3)
MSGBOX MP3
END SUB

jaxxcyh

逍遥爱迪生 发表于 2024-6-14 12:54
Private Declare Function GetShortPathName Lib "kernel32" _
Alias "GetShortPathNameA" (ByVal lpszLon ...

谢谢.......................

jaxxcyh

jaxxcyh 发表于 2024-6-14 12:41
大神帮忙看看这几段程序有什么错误之处，为何播放不了。

奇怪，在家里电脑上又可以正常运行了。百思不得其解

lss001

jaxxcyh 发表于 2024-6-14 18:01
奇怪，在家里电脑上又可以正常运行了。百思不得其解

soundPath = "d:/漫步人生路 - 一杯陈豆浆.mp3"
路径分隔符是→\还是/
还有就是播放前应先关闭这非常重要！

Call mciSendString("close all", 0, 0, 0) '首先关闭所有的MCI设备,避免播放多个音乐文件时声音会重叠

jaxxcyh

lss001 发表于 2024-6-14 18:07
soundPath = "d:/漫步人生路 - 一杯陈豆浆.mp3"
路径分隔符是→\还是/
还有就是播放前应先关闭这非常 ...

还是没找到原因，就不知道为啥有的歌能播放，有点歌不能播放。（歌曲文件没有损坏，用foorbar2000播放都是正常的）。我打个包，将歌曲一道发上来，请大师找找原因。


链接：https://pan.baidu.com/s/16uE49ebtWpJz-EEBRTsBEA?pwd=8888
提取码：8888

lss001

jaxxcyh 发表于 2024-6-14 21:15
还是没找到原因，就不知道为啥有的歌能播放，有点歌不能播放。（歌曲文件没有损坏，用foorbar2000播放都 ...

用mciGetErrorString函数检测，显示"初始化MCI时发生问题。"，此问题mp3用mciSendString函数是无法播放的。可参考以下链接↓
https://www.cnblogs.com/FWFC/p/8868478.html

mci播放声音.rar (15.69 KB, 下载次数: 2)

2024-6-15 15:06 上传

点击文件名下载附件

jaxxcyh

lss001 发表于 2024-6-15 14:11
用mciGetErrorString函数检测，显示"初始化MCI时发生问题。"，此问题mp3用mciSendString函数是无法播放的 ...

果然是封面的问题引起的