Проиграть мелодию 10 раз

← →
Grinder © (2004-02-16 18:56) [0]

как проиграть 10 раз мелодию чтобы программа не висла?
for k := 0 to 10 do
begin
MediaPlayer.Wait:=true;
MediaPlayer.Play;
Application.ProcessMessages;
end;

Но при проигрывании прога виснит нагло. Как сделать чтобы не было зависона?

← →
jel © (2004-02-16 19:31) [1]

> MediaPlayer.Wait:=false

← →
Grinder © (2004-02-17 17:29) [2]

тогда он залпом пройдется по циклу и проиграет только 1 раз!

← →
Digitman © (2004-02-18 15:23) [3]

делай это в доп.код.потоке

← →
Mihey © (2004-02-18 19:34) [4]

Не, ну есть же OnNotify.

← →
Александр1 (2004-02-19 19:03) [5]

Заводишь процедуру Timer1. Измеряешь величину мелодии и ставишь задержку на Timer равную длинне мелодии. Поставь счётчик k:=k+1
if k=10 then MediaPlayer.Wait:=falsе Вот и все!!!!

← →
Александр1 (2004-02-19 19:04) [6]

Кстати измерить длинну мелодии можно с помощь обыкновенного любого проигрывателя.

>Измеряешь величину мелодии и ставишь задержку на Timer равную длинне мелодии.

Я вас вообще не понимаю. Вы справку читали? Книги читали? Зачем пользоваться таймером, который неточный, который может сработать раньше, может позже, когда есть замечательное событие OnNotify, которое срабатывает, когда мелодия заканчивает играть?

Проиграть мелодию 10 раз Найти похожие ветки