Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

mediaplayer [D4, Win95/98]

Анастасия © (2002-04-13 17:43:00)
Здравствуйте! Подскажите, пожалуйста, как заставить mediaplayer проигрывать одну и ту же мелодию несколько раз, т.е. когда музыка заканчивается - начинать сначала и т.д ? Заранее благодарна.

VEG (2002-04-17 15:38:00) [1]
>HellTrooper
Это я уже сказал!!!!!!!!

HellTrooper (2002-04-17 09:52:00) [2]
Можно вместо таймера использовать OnNotify Медиаплеера

VEG (2002-04-16 18:10:00) [3]
Получилось?

VEG (2002-04-15 16:41:00) [4]
Предложенный способ кривоват. Лучше делать так:
Для события 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);

Анастасия (2002-04-14 12:58:00) [5]
Спасибо огромное :-) И правда заработало!

Neolord (2002-04-14 04:46:00) [6]
PS: не очень простой - в смыслее надо обращаться осторожно, таймер вообще странная штука...

Neolord (2002-04-14 04:45:00) [7]
Можешь так же создать счётчик, если надо крутить определённое количество раз. Целую ручку.

Neolord (2002-04-14 04:44:00) [8]
это не очень простой способ, но всё же...
кинь на форму таймер, назови Timer1
кинь mediaplayer, назови mediaplayer1

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »