MP3 player

@adidas1997-21 · Регистрация: 05.02.2015

Author24 — интернет-сервис помощи студентам

Как в mp3 player сделать, что бы когда песня закончилась, он автоматически переключал на следующую?

Добавлено через 9 часов 38 минут
Upp

@droider · 14.03.2015, 14:39

Сообщение от adidas1997-21

Добавлено через 9 часов 38 минут
Upp

за девять часов не смогли найти примера в сети?

@adidas1997-21 · 14.03.2015, 15:15 **[ТС]**

Сообщение от droider

за девять часов не смогли найти примера в сети?

Нет

@droider · 14.03.2015, 15:30

adidas1997-21, Как с помощью TRACKBAR изменять положение трека(песни)

@adidas1997-21 · 14.03.2015, 22:37 **[ТС]**

Сообщение от droider

adidas1997-21, Как с помощью TRACKBAR изменять положение трека(песни)

Было бы всё так легко.. У меня Mediaplayer даже не используется, всё на библиотеке BASS построено.

@cotseec · 14.03.2015, 22:51

Сообщение от adidas1997-21

всё на библиотеке BASS построено

BASS_ChannelSetSync с флагом BASS_SYNC_END

@adidas1997-21 · 14.03.2015, 22:52 **[ТС]**

Это куда вставлять?

@cotseec · 14.03.2015, 22:56

Сообщение от adidas1997-21

куда вставлять?

Не по теме:

гусары, молчать! (с)

в код, в случае успешного создания канала, связанного с проигрываемым файлом

@adidas1997-21 · 14.03.2015, 23:01 **[ТС]**

Сообщение от cotseec

в код, в случае успешного создания канала, связанного с проигрываемым файлом

Спасибj, но я нифига не понял, что куда и т.д.

Сообщение от cotseec

BASS_ChannelSetSync с флагом BASS_SYNC_END

это прочёл, тоже не особо что-то осталось

@cotseec · 14.03.2015, 23:09

Сообщение от adidas1997-21

тоже не особо что-то осталось

справкой и примерами, прилагаемыми к библиотеке, при написании программы пользовался? там достаточно понятно описано и функции имеют "говорящее" название

суть установки коллбека синхронизации - обработка некоторого события, определяемого флагом, указанным при установке функции синхронизации, приведенный в #6 флаг вызывает событие при окончании проигрывания текущего трека, в обработчике события достаточно запустить следующий по очереди трек, установив ему такую же синхронизацию (предварительно освободив старую)

@adidas1997-21 · 15.03.2015, 07:40 **[ТС]**

Сообщение от cotseec

справкой и примерами, прилагаемыми к библиотеке, при написании программы пользовался? там достаточно понятно описано и функции имеют "говорящее" название
суть установки коллбека синхронизации - обработка некоторого события, определяемого флагом, указанным при установке функции синхронизации, приведенный в #6 флаг вызывает событие при окончании проигрывания текущего трека, в обработчике события достаточно запустить следующий по очереди трек, установив ему такую же синхронизацию (предварительно освободив старую)

Мне бы попроще. Через скрол бар позицию.

Немогу понять почему не работает такой код

Код

 If ScrollBar1.Position=100 then  playitem(lst1.ItemIndex+1)

если убрать условие, то он песню следующую начинает повторять

@cotseec · 15.03.2015, 10:17

Сообщение от adidas1997-21

Немогу понять почему не работает такой код

потер свой хрустальный шар для гаданий - видимо беда в том, что условие ScrollBar1.Position=100 не срабатывает, м.б. когда трек оканчивается ScrollBar1.Position=101 или 99 или еще как, но не 100

@adidas1997-21 · 15.03.2015, 16:01 **[ТС]**

потер свой хрустальный шар для гаданий - видимо беда в том, что условие ScrollBar1.Position=100 не срабатывает, м.б. когда трек оканчивается ScrollBar1.Position=101 или 99 или еще как, но не 100

Пробовал я 99. 101 не может быть т.к. максимум 100 стоит. Да и как я понял. Он сам делит песню на равные промежутки да и на экране видно что доходит до 100

@cotseec · 15.03.2015, 16:17

Сообщение от adidas1997-21

Он сам делит песню на равные промежутки да и на экране видно что доходит до 100

кто "он" - библиотек?

как происходит приращение ScrollBar1.Position? (по таймеру, в каком-либо ином обработчике или еще как)
чтобы не полагаться на зрение - сразу после приращения ScrollBar1.Position выводи это значение, например в заголовок формы и сразу все будет видно

З.Ы. без кода лечение по фотографии может продолжаться долго, только весь код разгребать нет никакого желания, коли игнорируются механизмы библиотеки, то для начала стоит взглянуть на процедуры запуска проигрывания и обработчик, где происходит приращение ScrollBar1.Position

@adidas1997-21 · 15.03.2015, 22:08 **[ТС]**

Сообщение от cotseec

ак происходит приращение ScrollBar1.Position? (по таймеру, в каком-либо ином обработчике или еще как)

это в таймере

Код

if track = false then
ScrollBar1.Position:=BASS_ChannelGetPosition(stream,0);

Это на кнопке плэй

Код

  if BASS_ChannelIsActive(stream) = bass_active_paused then
BASS_ChannelPlay(stream,false) else
 playitem(lst1.ItemIndex);

@cotseec · 15.03.2015, 22:24

Сообщение от adidas1997-21

Delphi

1	ScrollBar1.Position:=BASS_ChannelGetPosition(stream,0)

теперь лезем в неиспользуемую справку по библиотеке (и для чего ее разработчики писали, графоманы, млин) и читаем про BASS_ChannelGetPosition, а именно про второй параметр, который в данном случае равен BASS_POS_BYTE (0), мало того, что просто не проверяется возвращаемое значение функции, так еще и просится позиция в байтах, которая в редком случае может быть равна 100 (размер композиции совсем маленький, звезды так сошлись и т.д.) - еще раз смотри на #12 и проверь, как написано в #14, вставив сразу после получения позиции

Delphi

1	Caption := IntToStr(ScrollBar1.Position);

а еще лучше установить синхронизацию, как написано в #6 и таймер не надо будет

а если совсем лениво, то имеется BassSimple или M3U ListBox Player

@adidas1997-21 · 16.03.2015, 05:39 **[ТС]**

Сообщение от cotseec

теперь лезем в неиспользуемую справку по библиотеке (и для чего ее разработчики писали, графоманы, млин) и читаем про BASS_ChannelGetPosition, а именно про второй параметр, который в данном случае равен BASS_POS_BYTE (0), мало того, что просто не проверяется возвращаемое значение функции, так еще и просится позиция в байтах, которая в редком случае может быть равна 100 (размер композиции совсем маленький, звезды так сошлись и т.д.) - еще раз смотри на #12 и проверь, как написано в #14, вставив сразу после получения позиции
Код Delphi
1
Caption := IntToStr(ScrollBar1.Position);
а еще лучше установить синхронизацию, как написано в #6 и таймер не надо будет
а если совсем лениво, то имеется BassSimple или M3U ListBox Player
__________________

Спасибо, это всё понял, попробую

@adidas1997-21 1 / 1 / 1 Регистрация: 05.02.2015 Сообщений: 260
	15.03.2015, 07:40 [ТС]	11
	Сообщение от cotseec справкой и примерами, прилагаемыми к библиотеке, при написании программы пользовался? там достаточно понятно описано и функции имеют "говорящее" название суть установки коллбека синхронизации - обработка некоторого события, определяемого флагом, указанным при установке функции синхронизации, приведенный в #6 флаг вызывает событие при окончании проигрывания текущего трека, в обработчике события достаточно запустить следующий по очереди трек, установив ему такую же синхронизацию (предварительно освободив старую) Мне бы попроще. Через скрол бар позицию. Немогу понять почему не работает такой код Код If ScrollBar1.Position=100 then playitem(lst1.ItemIndex+1) если убрать условие, то он песню следующую начинает повторять 0

@adidas1997-21 1 / 1 / 1 Регистрация: 05.02.2015 Сообщений: 260
	15.03.2015, 16:01 [ТС]	13
	потер свой хрустальный шар для гаданий - видимо беда в том, что условие ScrollBar1.Position=100 не срабатывает, м.б. когда трек оканчивается ScrollBar1.Position=101 или 99 или еще как, но не 100 Пробовал я 99. 101 не может быть т.к. максимум 100 стоит. Да и как я понял. Он сам делит песню на равные промежутки да и на экране видно что доходит до 100 0

@adidas1997-21 1 / 1 / 1 Регистрация: 05.02.2015 Сообщений: 260
		1
	MP3 player 14.03.2015, 10:00. Показов 2038. Ответов 16 Метки нет (Все метки) Как в mp3 player сделать, что бы когда песня закончилась, он автоматически переключал на следующую? Добавлено через 9 часов 38 минут Upp 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,120
	14.03.2015, 14:39	2
	Сообщение от adidas1997-21 Добавлено через 9 часов 38 минут Upp за девять часов не смогли найти примера в сети? 0

@adidas1997-21 1 / 1 / 1 Регистрация: 05.02.2015 Сообщений: 260
	14.03.2015, 15:15 [ТС]	3
	Сообщение от droider за девять часов не смогли найти примера в сети? Нет 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,120
	14.03.2015, 15:30	4
	adidas1997-21, Как с помощью TRACKBAR изменять положение трека(песни) 0

@adidas1997-21 1 / 1 / 1 Регистрация: 05.02.2015 Сообщений: 260
	14.03.2015, 22:37 [ТС]	5
	Сообщение от droider adidas1997-21, Как с помощью TRACKBAR изменять положение трека(песни) Было бы всё так легко.. У меня Mediaplayer даже не используется, всё на библиотеке BASS построено. 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	14.03.2015, 22:51	6
	Сообщение от adidas1997-21 всё на библиотеке BASS построено BASS_ChannelSetSync с флагом BASS_SYNC_END 1

@adidas1997-21 1 / 1 / 1 Регистрация: 05.02.2015 Сообщений: 260
	14.03.2015, 22:52 [ТС]	7
	Это куда вставлять? 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	14.03.2015, 22:56	8
	Сообщение от adidas1997-21 куда вставлять? Не по теме: гусары, молчать! (с) в код, в случае успешного создания канала, связанного с проигрываемым файлом 0

@adidas1997-21 1 / 1 / 1 Регистрация: 05.02.2015 Сообщений: 260
	14.03.2015, 23:01 [ТС]	9
	Сообщение от cotseec в код, в случае успешного создания канала, связанного с проигрываемым файлом Спасибj, но я нифига не понял, что куда и т.д. Сообщение от cotseec BASS_ChannelSetSync с флагом BASS_SYNC_END это прочёл, тоже не особо что-то осталось 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	14.03.2015, 23:09	10
	Сообщение от adidas1997-21 тоже не особо что-то осталось справкой и примерами, прилагаемыми к библиотеке, при написании программы пользовался? там достаточно понятно описано и функции имеют "говорящее" название суть установки коллбека синхронизации - обработка некоторого события, определяемого флагом, указанным при установке функции синхронизации, приведенный в #6 флаг вызывает событие при окончании проигрывания текущего трека, в обработчике события достаточно запустить следующий по очереди трек, установив ему такую же синхронизацию (предварительно освободив старую) 0

	16.03.2015, 05:39

Опции темы

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	15.03.2015, 10:17	12
	Сообщение от adidas1997-21 Немогу понять почему не работает такой код потер свой хрустальный шар для гаданий - видимо беда в том, что условие ScrollBar1.Position=100 не срабатывает, м.б. когда трек оканчивается ScrollBar1.Position=101 или 99 или еще как, но не 100 1

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	15.03.2015, 16:17	14
	Сообщение от adidas1997-21 Он сам делит песню на равные промежутки да и на экране видно что доходит до 100 кто "он" - библиотек? как происходит приращение ScrollBar1.Position? (по таймеру, в каком-либо ином обработчике или еще как) чтобы не полагаться на зрение - сразу после приращения ScrollBar1.Position выводи это значение, например в заголовок формы и сразу все будет видно З.Ы. без кода лечение по фотографии может продолжаться долго, только весь код разгребать нет никакого желания, коли игнорируются механизмы библиотеки, то для начала стоит взглянуть на процедуры запуска проигрывания и обработчик, где происходит приращение ScrollBar1.Position 0

@adidas1997-21 1 / 1 / 1 Регистрация: 05.02.2015 Сообщений: 260
	15.03.2015, 22:08 [ТС]	15
	Сообщение от cotseec ак происходит приращение ScrollBar1.Position? (по таймеру, в каком-либо ином обработчике или еще как) это в таймере Код if track = false then ScrollBar1.Position:=BASS_ChannelGetPosition(stream,0); Это на кнопке плэй Код if BASS_ChannelIsActive(stream) = bass_active_paused then BASS_ChannelPlay(stream,false) else playitem(lst1.ItemIndex); 0

@adidas1997-21 1 / 1 / 1 Регистрация: 05.02.2015 Сообщений: 260
	16.03.2015, 05:39 [ТС]	17
	Сообщение от cotseec теперь лезем в неиспользуемую справку по библиотеке (и для чего ее разработчики писали, графоманы, млин) и читаем про BASS_ChannelGetPosition, а именно про второй параметр, который в данном случае равен BASS_POS_BYTE (0), мало того, что просто не проверяется возвращаемое значение функции, так еще и просится позиция в байтах, которая в редком случае может быть равна 100 (размер композиции совсем маленький, звезды так сошлись и т.д.) - еще раз смотри на #12 и проверь, как написано в #14, вставив сразу после получения позиции Код Delphi 1 Caption := IntToStr(ScrollBar1.Position); а еще лучше установить синхронизацию, как написано в #6 и таймер не надо будет а если совсем лениво, то имеется BassSimple или M3U ListBox Player __________________ Спасибо, это всё понял, попробую 0

MP3 player

Решение