Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Циклическое проигрывание MediaPlayer

Автор: Andreyzpr 11.2.2008, 19:38

Подскажите, пожайлуста, как сделать, чтобы MediaPlayer циклически проигрывал мелодию, не переставая?
Только чтобы ее жж можно было потом остановить.. а не так чтобы проигрывало пока ексешник работает. ?

Автор: anwe 11.2.2008, 19:49

Да просто сравнивай позицию проигрыша (незнаю чего там бегунка или еще чего). В общем по аналогии с кареткой в текстовом файле. Достигнут конец - иди на начало. Смысл такой.

Автор: Andreyzpr 11.2.2008, 19:55

Да я скоко не пробывал, сидел придумывал, искал , не придумал..
1.Где там коретка то
2. Чем проверять? Таймером?: Тогда тоже есть недостаток, будут промежутки

Автор: Qu1nt 11.2.2008, 23:26

Вот нашел:

Код


procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  with MediaPlayer1 do
    if NotifyValue = nvSuccessful then
    begin
      Notify := True;
      Play;
    end;
end;

Автор: Andreyzpr 11.2.2008, 23:37

Qu1nt спасибо все работаеТ!