Главная страница
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-78449
VIB
2002-10-12 16:26
2002.10.24
TDBRichEdit


1-78448
greenrul
2002-10-11 19:50
2002.10.24
Указатели : if (Units


1-78437
acorus
2002-10-15 17:49
2002.10.24
Как изменить порядок страниц в PageControl


3-78214
lak_b
2002-10-04 14:49
2002.10.24
:)