|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Воспроизведение mp3 из памяти (bass.dll)
Здравствуйте уважаемые форумчане!
Снова нужна ваша помощь. И большое спасибо за помощь в прошлый раз. У меня есть файл ресурсов который, я создал с помощью Restorator 2006. В него я поместил 3 mp3 файла, для простоты назвал 1.mp3, 2.mp3 и 3.mp3. Файл с ресурсами называется DataSound и имеет формат .res. Подключаю его так: Код:
{$R DataSound.res} Код:
procedure TForm1.FormCreate(Sender: TObject); begin BASS_Init(-1, 44100, 0, handle, nil); BASS_Start; end; procedure TForm1.Button1Click(Sender: TObject); begin channel:=BASS_StreamCreateFile(false, pchar('11.mp3'), 0, 0, 0 ); bass_channelplay(channel,true); end; Когда делал другую (первую) программку, файлы были маленькие и их формат wav меня устраивал. Скомпилированный проект с ними весил 6 МБ, что я считаю приемлемым. А сейчас только один звуковой файл весит около 18 МБ в wav. А всего звуков будет около 25. Воспроизводил их так: Код:
PlaySound('old_metalbeep',0,SND_ReSOURCE or SND_ASYNC); P.S. Надеюсь, что ничего не реального не хочу и эта задача вполне выполнима, т.к. захламлять проект папкой с mp3 файлами не хотелось бы. |