Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Как сделать.

Автор: N3R0 10.5.2007, 13:18

Доброго времени суток !
У меня такие вопросы :
1) У меня есть ListBox с ссылками на mp3 например D:\==Music\4 = CS music\Crazy.mp3 как мне сделать чтобы по окончанию песни начала проигрыватся следующая.
2) Помогите мне разобратся , со свёртыванием программы в системынй трэй рядом с часами.
Зарание спасибо. smile

Автор: mr.Anderson 10.5.2007, 13:25

Вариант 1. При проигрывании загнать все песни из ListBox'а в массив, потом проигрывать оттуда по порядку.
Вариант 2 (лучше). При окончании проигрывания одной песни использовать ListBox->ItemIndex + 1 и проигрывать таким образом следующую.

Насчет того, как отловить окончание песни - у MediaPlayer есть событие OnNotify, а также свойство Position.

Автор: Alexeis 10.5.2007, 16:00

Цитата(N3R0 @ 10.5.2007, 13:18

)

2) Помогите мне разобратся , со свёртыванием программы в системынй трэй рядом с часами.

Это в FAQ, DRKB, поиск по форуму, куда угодно smile

. Более избитый вопрос трудно найти.

Автор: N3R0 11.5.2007, 08:47

Цитата

ListBox->ItemIndex + 1

Этот код не проходит , Пишет Statement expected, but expression of type 'Integer' found
как сделать чтобы от выделеной строки поднялась на 1 строчку выше smile

Автор: N3R0 11.5.2007, 14:56

Цитата

а также свойство Position.

Помогите мне с Position , пожалуста.

Автор: lukas 12.5.2007, 16:35

N3R0, ты вообще на Делфи программируешь.... smile

Цитата

ListBox->ItemIndex + 1

вот... почитай учебник для начинающих...

Делфи...

Код


ListBox.ItemIndex:=ListBox.ItemIndex+1;

Си

Код


ListBox->ItemIndex = ListBox->ItemIndex+1;

Автор: mr.Anderson 12.5.2007, 16:38

N3R0, я же не код дал, а только наводку. smile

Мысль, так сказать, подбросил.

Автор: kaka4 15.5.2007, 15:16

попробуй так

Код


if MediaPlayer1.Position=MediaPlayer1.Length then begin
ListBox.ItemIndex:=ListBox.ItemIndex+1;
MediaPlayer1.FileName:=listbox1.Items.Strings[listbox1.ItemIndex];
MediaPlayer1.Open;
MediaPlayer1.Play;
end;