Главная страница
    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
6-1163500546
OlBan
2006-11-14 13:35
2007.05.20
Компонент Indy IdHTTP и https


2-1178101289
sergeyst
2007-05-02 14:21
2007.05.20
Как закрыть нужную форму?


2-1178113619
FireWind
2007-05-02 17:46
2007.05.20
Подсчет строк в гриде.


2-1178297363
Клик
2007-05-04 20:49
2007.05.20
БД


15-1176796417
oldman
2007-04-17 11:53
2007.05.20
Подскажите, где залить книгу?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский