MP3 + файл ресурсов = "отсутствует файл"

[Олег Козлов]

В общем, столкнулся с такой проблемой...

Делаю очередную версию игры "Кто хочет стать миллионером?" (желающие могут скачать ее по адресу http://oleg-nt.narod.ru ), решил туда вставить звуки. Естественно, в формате MP3 (чтобы инсталлятор не разбух - распространение через Интернет). Так вот, такой пример проигрывает файлы любого формата:

----------------------------------------------
Private Declare Function mciExecute _
Lib "winmm.dll" _
(ByVal lpstrCommand As String) As Long

'чтобы воспроизвести файлPrivate Sub Command1_Click()
Call mciExecute("play d:\SilentCikle\05.mp3")
End Sub

'чтобы закрыть файлPrivate Sub Command2_Click()
Call mciExecute("close d:\SilentCikle\05.mp3")
End Sub
----------------------------------------------

Когда mp3 - отдельный файл, проигрывается все нормально. Заталкиваю в файл ресурсов - появляется сообщение, что файл не найден. Как можно это исправить (чтобы эта функция находила mp3-шник в ресурсах?).

PS. Что я делал: Я заталкивал звук (start1.mp3) в ресурсы как "Custom Resource". Затем вызывал вышеприведенную функцию так: Call mciExecute("play start1.mp3"). Может, существует какое-то специальное обозначение того, что обращаемся к ресурсам exe-шника? Ну например,
Call mciExecute("play <бла-бла-бла>\start1.mp3").

!!!!!! И ЕЩЕ: Надо бы как-то реализовать, чтобы файл мог проигрываться циклично (это нужно для фонового звука) и чтобы не было слышно стыка.

Заранее благодарю всех, кто поможет.

Козлов Олег.
26 мая 2005 года

[BV]

Ух ты! И откуда же из ресурсов файл? Ты в начале его извлеки в массив, потом пиши в файл и воспроизводи.

[Sebas]

ПРоскакивало, толи на форуме, толи на сайте...

[BV]

Держи вот, набросал за минуту...

Код: Выделить всё

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 Sub Form_Load()
    Dim bAudioArr() As Byte
    Dim f As Long
    ReDim bAudioArr(UBound(LoadResData(101, "CUSTOM")))
    bAudioArr() = LoadResData(101, "CUSTOM")
    f = FreeFile
    Open "C:\Music.mp3" For Binary Access Write As #f
        Put #f, , bAudioArr
    Close #f
    Call mciSendString("open C:\Music.mp3 alias music wait", "", 0, 0)
    Call mciSendString("play music", "", 0, 0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call mciSendString("close all", "", 0, 0)
End Sub

[Sebas]

Держи вот, набросал за минуту...

Код: Выделить всё

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 Sub Form_Load()
    Dim bAudioArr() As Byte
    Dim f As Long
    ReDim bAudioArr(UBound(LoadResData(101, "CUSTOM")))
    bAudioArr() = LoadResData(101, "CUSTOM")
    f = FreeFile
    Open "C:\Music.mp3" For Binary Access Write As #f
        Put #f, , bAudioArr
    Close #f
    Call mciSendString("open C:\Music.mp3 alias music wait", "", 0, 0)
    Call mciSendString("play music", "", 0, 0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call mciSendString("close all", "", 0, 0)
End Sub

Ты не понял? Или не веришь что так можно?))
Ему из ресурсов нужно!

[BV]

Хех... Тогда ему mciExecute не поможет. Пусть в память массив загоняет, и sndPlaySound'ом читает. Но тут mp3 не подойдёт.

[hCORe]

А распаковать в temp-директорию не пойдет? LoadResData и вперед!

[BV]

Я же это в коде и предложил. Иначе понадобятся WAV файлы...

[AjaxVS]

Не сочтите за рекламу... а если реклама - то удалите пост нафик +_+ Не обижусь +_+

Делал что-то типа "О щаслифчика", тока для Медицинского Универа +_+ И без звука... Но все равно - кому не впадлу - зацените:

http://afov.narod.ru/ajtests.zip