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

Вниз

Как организовать плейлист   Найти похожие ветки 

 
Roll ©   (2009-02-15 10:42) [0]

Вобщем у меня тут такая проблема. Никак не получается сделать простой плейлист, а точнее не магу сделать так чтобы при нажатии на кнопку ПЛЕЙ, проигравался выделенный в listbox файл. У меня воспроизводится только файл каторый был последним добавлен в плейлист. Заранее спасибо.


 
{RASkov} ©   (2009-02-15 11:00) [1]

> выделенный в listbox файл

В листбоксе файлов нет, но выделенный итем имет номер ItemIndex.... т.е. ЛистБокс.Итемс[ЛистБокс.ИтемИндекс]


 
Roll ©   (2009-02-15 11:07) [2]

Терь все понял! Спасибо за помощь, все работает )


 
Roll ©   (2009-02-15 11:25) [3]

Еще небольшой вапросик. Вот у меня играет песня 1, но при нажатии на другую песню в плейлисте, проигрывание первой останавливается. Может подскажете как сделать чтобы песня 1 всеравно продолжала проигрываться


 
{RASkov} ©   (2009-02-15 13:16) [4]

> [3] Roll ©   (15.02.09 11:25)

Ответ прост: у тебя не верный алгоритм.....
и еще.... есть же уже полно(наверное) всяких ТПлэйЛист"ов.... наверняка там "это" решено...


 
Roll ©   (2009-02-15 16:25) [5]


> и еще.... есть же уже полно(наверное) всяких ТПлэйЛист"ов.
> ... наверняка там "это" решено...

да.. но хотелось бы самому вникнуть "как эта работает"(прост мне скоро курсовую писать на схожую тему), вот и пытаюсь разобраться на практике. Ошибку в алгоритме нашел, но ... тепернь возникла другая )) : при нажатии next или prev воспроизводятся только следующая и предыдуща песни относительно выделенной в плейлисте.


 
Roll ©   (2009-02-15 16:27) [6]

вот такая процедурка висит на кнопке next

Mediaplayer1.FileName:=listbox1.items[listbox1.itemindex+1];

Mediaplayer1.open;
Mediaplayer1.Play;


 
{RASkov} ©   (2009-02-15 21:10) [7]

> [5] Roll ©   (15.02.09 16:25)

> [6] Roll ©   (15.02.09 16:27)

That?


 
{RASkov} ©   (2009-02-15 21:29) [8]

вот номера элементов твоего плей листа(листбокса):
0
1
2
3
4
5
создаешь массив целых чисел размером как в листбоксе.
var MyArr: array of Integer;
SetLength(MyArr, ListBox.Items.Count);

заполняешь и перемешиваешь его таким образом:
3
5
0
2
4
1
и еще переменную Position заводишь(можно воспользоваться ListBox.Tag)
далее на кнопках next и prev соответственно:
if ListBox.Tag<ListBox.Items.Count-1 then ListBox.Tag:=ListBox.Tag+1;
if ListBox.Tag>0 then ListBox.Tag:=ListBox.Tag-1;

Далее:
Mediaplayer1.Close;
Mediaplayer1.FileName:=listbox1.items[MyArr[ListBox.Tag]];
Mediaplayer1.open;
Mediaplayer1.Play;


Примерно так....

Только в листбоксе нужно на DrawItem рисовать "по своему" проигрывающий трек в данный момент и просто выделения итемов (те которые не играют) ...думаю, понято о чем я :)


 
Roll ©   (2009-02-15 21:51) [9]

Спасибо, шас папробую )



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

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

Наверх





Память: 0.47 MB
Время: 0.006 c
15-1233633075
VirEx
2009-02-03 06:51
2009.04.05
Ветряк


15-1233246083
AlexDan
2009-01-29 19:21
2009.04.05
ICQ 6.5


1-1209106005
Игорь
2008-04-25 10:46
2009.04.05
Как в TWebBrowser поменять кодировку документа


15-1233701918
Германн
2009-02-04 01:58
2009.04.05
RAD Studio 2007 vs BDS 2006


1-1209377852
Grinixoid
2008-04-28 14:17
2009.04.05
Помогите с поиском всех видимых окон системы





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