VPF::Циклическое проигрывание MediaPlayer

Andreyzpr

Дата 11.2.2008, 19:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: нет
Всего: 1

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

anwe

Дата 11.2.2008, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 748
Регистрация: 2.9.2006

Репутация: нет
Всего: 23

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

Andreyzpr

Дата 11.2.2008, 19:55 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: нет
Всего: 1

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

Qu1nt

Дата 11.2.2008, 23:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 2
Всего: 50

Вот нашел:

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 190
Регистрация: 4.2.2007
Где: Украина

Репутация: нет
Всего: 1

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »