Как проиграть MP3 из ресурса, не сохраняя файл на диск. Например, с помощью BASS, FMOD, DSPack или любой другой библиотеки, компонента (чего угодно лишь бы проиграло MP3 из ресурса)
Помогите конкретным куском кода пожалуйста -

Это сообщение отредактировал(а) Kostya-xp - 12.1.2005, 21:15

Ну, хоть кто-нибудь знает, как это сделать?




Это сообщение отредактировал(а) Kostya-xp - 12.1.2005, 20:35

Знаю И даже без посторонних библиотек Правда, это всё идёт только на винь2000\ХР... на ранних версиях вроде как не катит - увы. ПО если мы не пишем под старьё, то так:
Во-первых надо вспомнить, что не все файлы с расширением wav такие огромные... почему? Да потому что они закомпрессированы с помощью mp3. итого: берём в руки какой-нибудь конвертор и кодируем нашь mp3 файл в wav, но при этом wav-файл сжимается mp3 кодеком. (надеюсь меня поняли , т.к. я не уверен, что чистый mp3 так пойдёт). Создаём файл ресурсов, туда в секцию RCData заносим "MY_WAVE" - имя ресурса, в который записываем нашь wav (но он внутри как mp3). Сохраняем на диске и теперь в проекте:

Код

uses  MMSystem, ....; {$R sound.res} //я файл обозвал как "sound.res" procedure TForm1.Button1Click(Sender: TObject); var  WaveHandle: THandle;  WavePointer: pointer; begin WaveHandle := FindResource(hInstance, 'MY_WAVE', RT_RCDATA); if WaveHandle <> 0 then begin   WaveHandle := LoadResource(hInstance, WaveHandle);    if WaveHandle <> 0 then   begin;       WavePointer := LockResource(WaveHandle);       sndPlaySound(WavePointer, snd_Memory or SND_ASYNC);       UnlockResource(WaveHandle);    FreeResource(WaveHandle); end; end; end;

Вот и всё... теперь в приложении играется по сути мр3 файл.

Illusion Dolphin
Не играет.
Вроде sndPlaySound играет только разжатые WAV файлы - с ними проблем нет, а вот с сжатыми…


Это сообщение отредактировал(а) Kostya-xp - 12.1.2005, 21:12

Как это не играет?
У меня всё прекрасно играет! И именно сжатый! Вопросы таковы: какая у тебя винда (я говорил об ограничениях), как ты получаешься wav файл и как ты его сохраняешь в ресурсы (туда ли куда надо)?. Или я могу примерчик кинуть маленький.. может...

Вот, я прогу прицепил - там и исходник и скомпилиный экзешник (всего 100 кило всё весит).

Присоединённый файл ( Кол-во скачиваний: 46 )
 sound_res.zip

Получаю так

REZ:
MyWave RCDATA LOADONCALL 1.wav

Запихиваю его в прогу:
Uses
MMSYSTEM и т.д.
...

{$R sound.res}

...

procedure TForm1.Button1Click(Sender: TObject);
var
WaveHandle: THandle;
WavePointer: pointer;
begin
WaveHandle := FindResource(hInstance, 'MyWave', RT_RCDATA);
if WaveHandle <> 0 then
begin
WaveHandle := LoadResource(hInstance, WaveHandle);
if WaveHandle <> 0 then
begin;
WavePointer := LockResource(WaveHandle);
sndPlaySound(WavePointer, snd_Memory or SND_ASYNC);
UnlockResource(WaveHandle);
FreeResource(WaveHandle);
end;
end;

Скачал пример. Но звука не слышно. Подскажи что за звук должен быть?
Добавлено @ 21:33
О системе:
У меня стоит 2003 Server Enterprice Edition.Это конечно не 2000 и не XP, но по старости подходить должна

Это сообщение отредактировал(а) Kostya-xp - 12.1.2005, 21:36

Illusion Dolphin
Как бы там не было спасибо за пример.

Теперь разобрался (как видишь, пример я уже прицепил - успел опередить ;))? Работает на твоей машине? Если неполучается собрать или файл ресурсов создать нормальный, то я могу помочь парочкой советов....

Нет, в смысле все еще не сдвинулось с мертвой точки тишины...
Сейчас попробую на XP.

Illusion Dolphin
А на XP все пашет!!!
И у меня все запустилось...

Это сообщение отредактировал(а) Kostya-xp - 12.1.2005, 22:00

Цитата

Правда, это всё идёт только на винь2000\ХР... на ранних версиях вроде как не катит - увы. ПО если мы не пишем под старьё, то так:

Буду ломать голову из-за чего на 2003 винде не пашет...


(Вроде 2003 еще не устарела )

Это сообщение отредактировал(а) Kostya-xp - 12.1.2005, 22:02

Установи кодеки, которыми вав зажат. Скорее всего дело именно в этом.
Поставь KLite. Еще можно Lame установить как кодек.
И зачем использовать sndPlaySound? PlaySound имеет более расширеные возможности.
А в XP кодек MP3 прошит уже при инсталяции, поэтому работает.
В 2003 этого делать не стали - система серверная, а не музыкальная.

У меня стоит K-Lite 2.27. И все равно молчит.
Файл сжат LAME 3.92. А в состав K-Lite 2.27 входит 3.96. Так что кодек есть.

Это сообщение отредактировал(а) Kostya-xp - 13.1.2005, 21:04