Скачать: CL | DM;

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

← →
ScoPal   (2006-09-07 13:16) [0]

Каким образом проще всего проиграть загруженный play list... все песни подряд?

---

← →
DVM ©   (2006-09-07 15:32) [1]

Циклом и TMediaPlayer-ом.

---

← →
ScoPal   (2006-09-07 15:57) [2]

Это я понимаю... но не получается... список песен в ListBox находится... И если делать MediaPlayer1.FileName из данного списка, то ничего не работает :(

---

← →
DVM ©   (2006-09-07 16:02) [3]

> И если делать MediaPlayer1.FileName из данного списка, то
> ничего не работает :(

Да ну?
У тебя в ListBox находятся пути к файлам или только имена?
У тебя ошибка в 17 строке.

---

← →
ScoPal   (2006-09-07 16:17) [4]

Нет... он их проигрывает все ... только быстренько перебирая... т.е. не до конца. Вот и думаю как бы чтобы песенка полность отыграла. И затем следующая началась. С одной в цикле без проблем, а вот когда их много :(

---

← →
DVM ©   (2006-09-07 16:23) [5]

> Нет... он их проигрывает все ... только быстренько перебирая

TMediaPlayer.OnNotify - событие тебе поможет.
Проверяй достиг ли плейер конца файла, если да то подсовывай следующий.
Цикл не нужен.

---

← →
ScoPal   (2006-09-07 16:26) [6]

Это уже пройденный этап, может правда что не правильно написано было...
Как проверить достиг ли конца файла... может в этом и была ошибка??

---

← →
DVM ©   (2006-09-07 16:31) [7]

Наверное, что-то в этом духе

if mediaplayer1.Mode = mpStopped then ...

Или по таймеру проверять позицию воспроизведения и сравнивать с длиной файла.

---

← →
Graphics ©   (2006-09-10 02:25) [8]

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
   If MediaPlayer1.Length = MediaPlayer1.Position then
      PlayNext; //след. дорожка, я сам так и сделал!
end;

---

← →
ScoPal   (2006-09-11 10:00) [9]

Спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c