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]

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

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

if mediaplayer1.Mode = mpStopped then ...

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

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

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

Спасибо

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