Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Play List [D7, Win2k, WinXP]

ScoPal © (2006-09-07 13:16:00)
Каким образом проще всего проиграть загруженный play list... все песни подряд?

ScoPal (2006-09-11 10:00:00) [1]
Спасибо

Graphics (2006-09-10 02:25:00) [2]
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
If MediaPlayer1.Length = MediaPlayer1.Position then
PlayNext; //след. дорожка, я сам так и сделал!
end;

DVM (2006-09-07 16:31:00) [3]
Наверное, что-то в этом духе

if mediaplayer1.Mode = mpStopped then ...

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

ScoPal (2006-09-07 16:26:00) [4]
Это уже пройденный этап, может правда что не правильно написано было...
Как проверить достиг ли конца файла... может в этом и была ошибка??

DVM (2006-09-07 16:23:00) [5]

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

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

ScoPal (2006-09-07 16:17:00) [6]
Нет... он их проигрывает все ... только быстренько перебирая... т.е. не до конца. Вот и думаю как бы чтобы песенка полность отыграла. И затем следующая началась. С одной в цикле без проблем, а вот когда их много :(

DVM (2006-09-07 16:02:00) [7]

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

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

ScoPal (2006-09-07 15:57:00) [8]
Это я понимаю... но не получается... список песен в ListBox находится... И если делать MediaPlayer1.FileName из данного списка, то ничего не работает :(

DVM (2006-09-07 15:32:00) [9]
Циклом и TMediaPlayer-ом.

Наверх

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