| Вопрос: F1! Возпр. MP3 | Добавлено: 31.07.04 12:10 |
Автор вопроса:  Softer | Web-сайт: hware.org.ua | ICQ: 203660381 |
| F1! Возпроизведение MP3 из VB-прог |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 31.07.04 12:59 |
Можно было и поискать чуть-чуть 
Ведь все уже есть... В ЧАВо точно должно быть... Private Declare Function MSS Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long 'Public Sub PlayRes(Resourse As Long, resType As String) ' Воспроизведение файла из ресурса ' Dim bSound() As Byte, aSound As String ' ' bSound = LoadResData(Resourse, resType) ' aSound = Space$(UBound(bSound) + 1) ' Call CopyMemory(ByVal aSound, bSound(0), Len(aSound)) ' Call sndPlaySound(aSound, &H4) 'End Sub Public Function PlayFile(strFileName As String) As Long ' Воспроизведение внещнего файла Call StopPlay Call MSS("OPEN " & GetShortPath(strFileName) & " ALIAS FIRST", vbNullString, 0&, 0&
PlayFile = MSS("PLAY FIRST", vbNullString, 0&, 0&
End Function Public Sub StopPlay() ' Остановка внешнего файла Call MSS("STOP FIRST", vbNullString, 0&, 0&
Call MSS("CLOSE FIRST", vbNullString, 0&, 0&
End Sub |
||
|
Номер ответа: 2 Автор ответа: Mufasa Вопросов: 19 Ответов: 63 |
Web-сайт: Профиль | | #2 | Добавлено: 01.08.04 11:36 |
|
Попробую предложить:
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long Public Const SND_ASYNC = &H1 Public Const SND_NODEFAULT = &H2 Public Const SND_MEMORY = &H4 Public Const SND_FILENAME& = &H20000 Public Sub BeginPlaySound(ByVal sFileName As String) PlaySound sFileName, 0, SND_ASYNC Or SND_FILENAME Or SND_NODEFAULT End Sub Public Sub EndPlaySound() PlaySound ByVal vbNullString, 0, 0 End Sub 'Всё делается так: BeginPlaySound "Sound\Sound1" |
||
Страница: 1 |