| Вопрос: Воспроизведение звука подобно fmod.dll | Добавлено: 27.08.07 10:23 |
Автор вопроса:  Mr.Smile | ICQ: 427682013 |
|
Всем привет!
Вопрос: как на VB6 (SP5) воспроизводить звук "на своём канале"? То есть, создать (открыть) звуковой канал, воспроизводить в нём музыку в формате WAVE, MP3, и, задавать ему громкость отдельно от Windows? Желательно без использования ocx и нестандартных dll. Например, как в библиотеке fmod.dll или в программе Winamp. P.S.: Заранее благодарен за ответы. |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #1 | Добавлено: 29.08.07 14:29 |
| Раз никто не знает, тогда подскажите где взять API-функции acm. Что-то типа acmOpen и т.п. | ||
|
Номер ответа: 2 Автор ответа:  ZagZag ICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #2 | Добавлено: 29.08.07 15:18 |
|
Private Declare Function acmDriverAdd Lib "msacm32.dll" Alias "acmDriverAddA" (ByRef phadid As Long, ByVal hinstModule As Long, ByVal lParam As Long, ByVal dwPriority As Long, ByVal fdwAdd As Long) As Long
Private Declare Function acmDriverClose Lib "msacm32.dll" (ByVal had As Long, ByVal fdwClose As Long) As Long Private Declare Function acmDriverDetails Lib "msacm32.dll" Alias "acmDriverDetailsA" (ByVal hadid As Long, ByRef padd As ACMDRIVERDETAILSA, ByVal fdwDetails As Long) As Long Private Declare Function acmDriverEnum Lib "msacm32.dll" (ByVal fnCallback As Long, ByRef dwInstance As Long, ByVal fdwEnum As Long) As Long Private Declare Function acmDriverID Lib "msacm32.dll" (ByVal hao As Long, ByRef phadid As Long, ByVal fdwDriverID As Long) As Long Private Declare Function acmDriverMessage Lib "msacm32.dll" (ByVal had As Long, ByVal uMsg As Long, ByVal lParam1 As Long, ByVal lParam2 As Long) As Long Private Declare Function acmDriverOpen Lib "msacm32.dll" (ByRef phad As Long, ByVal hadid As Long, ByVal fdwOpen As Long) As Long Private Declare Function acmDriverPriority Lib "msacm32.dll" (ByVal hadid As Long, ByVal dwPriority As Long, ByVal fdwPriority As Long) As Long Private Declare Function acmDriverRemove Lib "msacm32.dll" (ByVal hadid As Long, ByVal fdwRemove As Long) As Long Private Declare Function acmFilterChoose Lib "msacm32.dll" Alias "acmFilterChooseA" (ByRef pafltrc As ACMFILTERCHOOSEA) As Long Private Declare Function acmFilterDetails Lib "msacm32.dll" Alias "acmFilterDetailsA" (ByVal had As Long, ByRef pafd As ACMFILTERDETAILSA, ByVal fdwDetails As Long) As Long Private Declare Function acmFilterEnum Lib "msacm32.dll" Alias "acmFilterEnumA" (ByVal had As Long, ByRef pafd As ACMFILTERDETAILSA, ByVal fnCallback As Long, ByRef dwInstance As Long, ByVal fdwEnum As Long) As Long Private Declare Function acmFilterTagDetails Lib "msacm32.dll" Alias "acmFilterTagDetailsA" (ByVal had As Long, ByRef paftd As ACMFILTERTAGDETAILSA, ByVal fdwDetails As Long) As Long Private Declare Function acmFilterTagEnum Lib "msacm32.dll" Alias "acmFilterTagEnumA" (ByVal had As Long, ByRef paftd As ACMFILTERTAGDETAILSA, ByVal fnCallback As Long, ByRef dwInstance As Long, ByVal fdwEnum As Long) As Long Private Declare Function acmFormatChoose Lib "msacm32.dll" Alias "acmFormatChooseA" (ByRef pafmtc As ACMFORMATCHOOSEA) As Long Private Declare Function acmFormatDetails Lib "msacm32.dll" Alias "acmFormatDetailsA" (ByVal had As Long, ByRef pafd As ACMFORMATDETAILSA, ByVal fdwDetails As Long) As Long Private Declare Function acmFormatEnum Lib "msacm32.dll" Alias "acmFormatEnumA" (ByVal had As Long, ByRef pafd As ACMFORMATDETAILSA, ByVal fnCallback As Long, ByRef dwInstance As Long, ByVal fdwEnum As Long) As Long Private Declare Function acmFormatSuggest Lib "msacm32.dll" (ByVal had As Long, ByRef pwfxSrc As WAVEFORMATEX, ByRef pwfxDst As WAVEFORMATEX, ByVal cbwfxDst As Long, ByVal fdwSuggest As Long) As Long Private Declare Function acmFormatTagDetails Lib "msacm32.dll" Alias "acmFormatTagDetailsA" (ByVal had As Long, ByRef paftd As ACMFORMATTAGDETAILSA, ByVal fdwDetails As Long) As Long Private Declare Function acmFormatTagEnum Lib "msacm32.dll" Alias "acmFormatTagEnumA" (ByVal had As Long, ByRef paftd As ACMFORMATTAGDETAILSA, ByVal fnCallback As Long, ByRef dwInstance As Long, ByVal fdwEnum As Long) As Long Private Declare Function acmGetVersion Lib "msacm32.dll" () As Long Private Declare Function acmMetrics Lib "msacm32.dll" (ByVal hao As Long, ByVal uMetric As Long, ByRef pMetric As Any) As Long Private Declare Function acmStreamClose Lib "msacm32.dll" (ByVal has As Long, ByVal fdwClose As Long) As Long Private Declare Function acmStreamConvert Lib "msacm32.dll" (ByVal has As Long, ByRef pash As ACMSTREAMHEADER, ByVal fdwConvert As Long) As Long Private Declare Function acmStreamMessage Lib "msacm32.dll" (ByVal has As Long, ByVal uMsg As Long, ByVal lParam1 As Long, ByVal lParam2 As Long) As Long Private Declare Function acmStreamOpen Lib "msacm32.dll" (ByRef phas As Long, ByVal had As Long, ByRef pwfxSrc As WAVEFORMATEX, ByRef pwfxDst As WAVEFORMATEX, ByRef pwfltr As WAVEFILTER, ByRef dwCallback As Long, ByRef dwInstance As Long, ByVal fdwOpen As Long) As Long Private Declare Function acmStreamPrepareHeader Lib "msacm32.dll" (ByVal has As Long, ByRef pash As ACMSTREAMHEADER, ByVal fdwPrepare As Long) As Long Private Declare Function acmStreamReset Lib "msacm32.dll" (ByVal has As Long, ByVal fdwReset As Long) As Long Private Declare Function acmStreamSize Lib "msacm32.dll" (ByVal has As Long, ByVal cbInput As Long, ByRef pdwOutputBytes As Long, ByVal fdwSize As Long) As Long Private Declare Function acmStreamUnprepareHeader Lib "msacm32.dll" (ByVal has As Long, ByRef pash As ACMSTREAMHEADER, ByVal fdwUnprepare As Long) As Long |
||
|
Номер ответа: 3 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #3 | Добавлено: 29.08.07 15:39 |
| Большое СПАСИБОЧКИ! А типов для них у тебя случайно нет? (и константы, если присутствуют) Заранее спасибо! | ||
|
Номер ответа: 4 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #4 | Добавлено: 29.08.07 15:47 |
ApiViewer + Google Code тебе в помощь 
|
||
|
Номер ответа: 5 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #5 | Добавлено: 29.08.07 16:00 |
| Чё-то в ApiViewer'е не находил... Поищу получше. Спасибо ещё раз. | ||
|
Номер ответа: 6 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #6 | Добавлено: 30.08.07 08:40 |
В API-Viever'е есть только тип WAVEFORMAT (надо WAVEFORMATEX), а в "Google Code" Я не умею искать. 
|
||
|
Номер ответа: 7 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #7 | Добавлено: 30.08.07 09:36 |
|
Идешь на http://www.google.com/codesearch
Вводишь в начале запроса: lang:basic потом АПИ указывай или еще чего-нибудь |
||
|
Номер ответа: 8 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #8 | Добавлено: 30.08.07 09:52 |
| Спасибки! | ||
Страница: 1 |