Главная страница
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
1-78433
User0
2002-10-15 18:38
2002.10.24
Word.Application


4-78722
Molochai
2002-09-11 09:17
2002.10.24
Задания принтера(как отследить)


3-78213
BlackTiger
2002-10-04 13:30
2002.10.24
КАК: Структура результата Query без ожидания его окончания


4-78709
DNSokol
2002-09-11 11:18
2002.10.24
Трабл с ADO.


3-78267
sdram
2002-10-02 16:22
2002.10.24
Помогите выполнить Refresh