Главная страница
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.02 c
3-78249
Zmiy
2002-10-02 11:48
2002.10.24
DBLookupCombobox???


1-78400
BJValentine
2002-10-15 13:06
2002.10.24
Дата+время


4-78739
Alex Che
2002-09-10 11:45
2002.10.24
Время и GetTickCount


1-78428
Chinas
2002-10-14 11:35
2002.10.24
Форма из DLL, как правильно закрыть?


14-78645
vvetrov
2002-10-04 12:34
2002.10.24
Готов заказать компонент серьёзному специалисту. ;-))