| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

перемотка [D7, XP]

медиатор ©   (2007-06-26 00:24:00) 

Доброго времени суток! Скажите как отследить что медиаплеер1 закончил воспроизведение и если так то перейти на следующий трек в листбоксе(с перескоком тоже проблема)? Спасибо?

---

медиатор   (2007-06-26 10:46:00) [1]

все! разобрался! вопрос снят.

---

медиатор   (2007-06-26 10:46:00) [2]

все! разобрался! вопрос снят.

---

медиатор   (2007-06-26 10:40:00) [3]

спасибо! но при компиляции на строке if notifyvalue = nvSuccesful then... вылетают ошибки undeclared identifier 'nvSuccsful' и incompatible types. хелп.

---

Nokia 6600   (2007-06-26 02:49:00) [4]

> Спасибо?

Пажалуйста?
:)

---

Nokia 6600   (2007-06-26 02:48:00) [5]

> [0] медиатор   (26.06.07 00:24)

Ну что нить примерно так:
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
 with MediaPlayer1 do
  if NotifyValue = nvSuccessful then begin
   if ListBox1.ItemIndex=ListBox1.Count-1 then ListBox1.ItemIndex:=0
    else ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
   FileName:=ListBox1.Items[ListBox1.ItemIndex];
   Open;
   Play;
   Notify := True;
  end;
end;

---

Наверх