Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Media";
Текущий архив: 2007.05.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.04 c
2-1178098759
Washington
2007-05-02 13:39
2007.05.20
Надо закрыть доступ к 2-м файлам.


2-1178202566
Серый
2007-05-03 18:29
2007.05.20
EditKeyPress


15-1177056559
infom
2007-04-20 12:09
2007.05.20
Механизм отображения "красивого" графа


2-1178012859
Познающий
2007-05-01 13:47
2007.05.20
Вставка рисунка


2-1178050107
dreamse
2007-05-02 00:08
2007.05.20
Подскажите функцию для добавления к указаной переменной string





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский