[分享]我总结的API播放WAV,AVI,MP3,MID

zhoujibin1

1.avi

' In standard module:
Public Play As Boolean
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength _
As Long, ByVal hwndCallback As Long) As Long
Private Returnstring As String

Sub AVI_Play()
 Const FileName As String = "c:\mybestfile.avi"
 If Dir(FileName) = "" Then Exit Sub
 If Play Then AVI_Stop
 Returnstring = Space(127)
 mciSendString "open " & Chr(34) & FileName & Chr(34) _
 & " type avivideo alias video", Returnstring, 127, 0
 mciSendString "set video time format ms", Returnstring, 127, 0
 mciSendString "play video from 0", Returnstring, 127, 0
 Play = True
End Sub

Sub AVI_Stop()
 mciSendString "close video", Returnstring, 127, 0
 Play = False
End Sub

'In ThisWorkbook module:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 If Play Then AVI_Stop
End Sub

2.mp3

Option Explicit
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Function ConvShortFilename(ByVal strLongPath$) As String
    Dim strShortPath$
    If InStr(1, strLongPath, " ") Then
        strShortPath = String(LenB(strLongPath), Chr(0))
        GetShortPathName strLongPath, strShortPath, Len(strShortPath)
        ConvShortFilename = Left(strShortPath, InStr(1, strShortPath, Chr(0)) - 1)
    Else
        ConvShortFilename = strLongPath
    End If
End Function

Public Sub MMPlay(ByRef FileName As String)                           '²¥·Åmp3Îļþ
    FileName = ConvShortFilename(FileName)                            'ת»»ÎªÎÞ¿Õ¸ñ·¾¶×Ö·û´®
    mciSendString "close " & FileName, vbNullString, 0, 0
    mciSendString "open " & FileName, vbNullString, 0, 0
    mciSendString "play " & FileName, vbNullString, 0, 0
End Sub

Public Sub MMStop(ByRef FileName As String)
    FileName = ConvShortFilename(FileName)                            'ת»»ÎªÎÞ¿Õ¸ñ·¾¶×Ö·û´®
    mciSendString "stop " & FileName, vbNullString, 0, 0
    mciSendString "close " & FileName, vbNullString, 0, 0
End Sub

3.wav

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwflags As Long) As Long

Sub Warning()
  PlaySound ThisWorkbook.Path + "\Warning.wav", 0&, &H1
End Sub

4.mid
Public Declare Function mciExecute Lib "winmm.dll" Alias " mciExecute" (ByVal lpstrCommand As String) As Long

Private Sub play()
 Dim ReturnValue As Long
 ReturnSoundValue = mciExecute("play C:\WIN95\MEDIA\CANYON.MID")
End Sub

zhoujibin1

是不是媒体播放也很简单啊? 当初我找这些却花了不少时间精力啊.便宜你们小子啦.

liujy

谢谢楼主分享!前人栽树,后人乘凉嘛.

flow840

不错啊! 先收藏了! 哈哈!

lw2000330

哪位大侠给解释下播放mp3那段，怎样使用，播放的时候会出现播放器界面吗？其中还有些乱码是做什么滴？。。。。

谢谢！

wangsp

分段播放MP3，比如我输入几段英文，点击某一段就播放它的录音，如何编程设置？

zhoujibin1

自己研究吧, 我为大家奉献太多啦,已经太累了!

MP3是我程序里拷贝出来的公共函数,播放mp3,调用就可以啦. 这些音乐播放都不出来窗口的,只有AVI视频有窗口,难道不出来能看电影吗?

lipton

谢谢分享代码

fanning001x

谢谢分享！鼓励！

gonghao

看来要好好学习API