mediaplayer

← →
Анастасия (2002-04-13 17:43) [0]

Здравствуйте! Подскажите, пожалуйста, как заставить mediaplayer проигрывать одну и ту же мелодию несколько раз, т.е. когда музыка заканчивается - начинать сначала и т.д ? Заранее благодарна.

← →
Neolord (2002-04-14 04:44) [1]

это не очень простой способ, но всё же...
кинь на форму таймер, назови Timer1
кинь mediaplayer, назови mediaplayer1

procedure timer1.timer(...)//стандартный эвэнт таймера
begin
if mediaplayer1.position:=100 then mediaplayer1.position:=0;
mediaplayer1.play;
end;

← →
Neolord (2002-04-14 04:45) [2]

Можешь так же создать счётчик, если надо крутить определённое количество раз. Целую ручку.

← →
Neolord (2002-04-14 04:46) [3]

PS: не очень простой - в смыслее надо обращаться осторожно, таймер вообще странная штука...

← →
Анастасия (2002-04-14 12:58) [4]

Спасибо огромное :-) И правда заработало!

← →
VEG © (2002-04-15 16:41) [5]

Предложенный способ кривоват. Лучше делать так:
Для события OnNotifly MediaPlayer-а (MPlMusic) пишешь:
If MPlMusic.Position=MPlMusic.Length Then MPlMusic.Play;
Так будет более профессионально.

А еще лучше, если проигрываемый звук формата *.wav, использовать функцию PlaySound:
PlaySound(‘Имя файла.wav’,snd_LOOP or snd_Memory OR SND_ASYNC);
Эта функция будет использовать все необходимые кодеки(может *.wav сжата в MP3).
В таком случае отключить звук можно так:
sndPlaySound(nil, snd_Memory);

Получилось?

Можно вместо таймера использовать OnNotify Медиаплеера

>HellTrooper
Это я уже сказал!!!!!!!!

mediaplayer Найти похожие ветки