Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.24;
Скачать: CL | DM;

Вниз

Как проиграть несколько wav файлов один за одним?   Найти похожие ветки 

 
Mixan ©   (2002-06-29 21:42) [0]

Долго извращался со всякими флажками и таймерами - ничего хорошего не вышло. Дело в том, что задержки между ними быть не должно. Может как-нибудь слить все в один?


 
Ricks ©   (2002-06-30 00:59) [1]

Через DirectSound. Определяешь длительность всех файлов, создаешь Buffer с таким размером, и потом один за другим копируешь туда файлы.


 
VEG ©   (2002-06-30 12:45) [2]

Procedure WaitForMusic;//Ждет освобождения звуковой карты
var
EWaveH :THandle; //TEMP для загрузки пустого звука
EWaveP :Pointer; //TEMP для загрузки пустого звука
begin
If OnMusic then
begin
EWaveH := FindResource(hInstance,"EMPTY",RT_RCDATA);
EWaveH:= LoadResource(hInstance,EWaveH);
EWaveP:=LockResource(EWaveH);
repeat Application.ProcessMessages
until sndPlaySound(EWaveP,snd_Memory or SND_ASYNC or SND_NOSTOP);
UnlockResource(EWaveH);
FreeResource(EWaveH);
end;
end;
Empty-это ресурс несжатого wav звука. Дальше можешь играть что хочешь!!!
Эту фунгкцию я писал для моей игрухи...



Страницы: 1 вся ветка

Текущий архив: 2002.10.24;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
14-78606
Sergey13
2002-10-01 11:20
2002.10.24
Как думаете - попрутся наши вояки в Грузию или нет?


1-78386
dix mod
2002-10-15 09:28
2002.10.24
Двоичные деревья


7-78683
mcs
2002-06-16 15:53
2002.10.24
FAT/NTFS, удаление


14-78620
Феликс
2002-10-03 15:32
2002.10.24
Глупые загадки


4-78706
Rasa
2002-09-10 03:18
2002.10.24
Помогите доками по интерфейсам!