VB利用API进行媒体播放

 

2. '
3. '媒体播放(SmMedia)
4. '
6. Option Explicit
8. Dim s As String, ShortPathName As String
10. Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
11. Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
12.             (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
13.              ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
15. '
16. '播放媒体
17. '函数:PlayMCI
18. '参数:SoundName 声音文件名,MCIName MCI名称.
19. '返回值:TRUE 成功播放,FALSE 不成功.
20. '例子:
21. Public Function PlayMCI(SoundName As String, Optional MCIName As String = "MYWAV") As Boolean
22.     s = String(LenB(SoundName), Chr$(0))
23.     GetShortPathName SoundName, s, Len(s)
24.     ShortPathName = Left$(s, InStr(s, Chr$(0)) - 1)
25.     
26.     mciSendString "close " & MCIName, vbNullString, 0, 0
27.     mciSendString "open " & ShortPathName & " alias " & MCIName, vbNullString, 0, 0
28.     mciSendString "play " & MCIName, vbNullString, 0, 0
29. End Function
31. '
32. '循环播放指定的MCI
33. '函数:LoopPlayMci
34. '参数:MCIName MCI名称.
35. '返回值:
36. '例子:
37. Public Function LoopPlayMci(Optional MCIName As String = "MYWAV")
38.     Dim s As String
39.     
40.     s = String$(255, Chr$(0))
41.     mciSendString "status " & MCIName & " mode", s, Len(s), 0
43.     If Left$(s, 7) = "stopped" Or Left$(s, 2) = "停止" Then
44.         mciSendString "seek " & MCIName & " to start", vbNullString, 0, 0
45.         mciSendString "play " & MCIName, vbNullString, 0, 0
46.     End If
47. End Function
49. '
50. '关闭媒体
51. '函数:ColseMedia
52. '参数:MCIName MCI名称.
53. '返回值:
54. '例子:
55. Public Sub ColseMedia(Optional MCIName As String = "MYWAV")
56.         mciSendString "close " & MCIName, vbNullString, 0, 0
57. End Sub