|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
10.02.2017, 05:22 | #1 |
Пользователь
Регистрация: 13.10.2015
Сообщений: 21
|
Проигрыватель. не работает автоматический переход на следующий трек в плей-листе.
Никто не может подсказать: в чём ошибка кода?
Компилирована программа на "Делфи 7.0". Компонент media player взят из группы system, но процедура для него не создана. Работает плохо, кнопки работают не все. Главная проблема: не работает автоматический переход на следующий трек в плей-листе. Код:
|
18.03.2017, 15:32 | #2 |
Форумчанин
Регистрация: 13.02.2012
Сообщений: 867
|
|
30.03.2017, 13:57 | #3 |
Пользователь
Регистрация: 13.10.2015
Сообщений: 21
|
Переход с трека на трек у меня сделан вот в этой процедуре:
Код:
|
01.04.2017, 12:04 | #4 |
Форумчанин
Регистрация: 13.02.2012
Сообщений: 867
|
|
02.04.2017, 15:09 | #5 |
Пользователь
Регистрация: 13.10.2015
Сообщений: 21
|
Программу эту я делаю сейчас в компиляторе "Борланд девелопер студия 2006" (Делфи). Программа эта - проигрыватель для всех медиафайлов - в фильтре открываемых файлов стоит *.* (все файлы, поддерживаемые компонентом TMediaPlayer из вкладки System).
Сейчас эта программа выглядит так (всё в ней работает нормально): Код:
Код:
|
08.04.2017, 20:10 | #6 |
Пользователь
Регистрация: 02.01.2016
Сообщений: 42
|
Можно сделать так
Код:
Код:
Последний раз редактировалось Alex11223; 08.04.2017 в 20:16. |
10.04.2017, 11:45 | #7 |
Пользователь
Регистрация: 13.10.2015
Сообщений: 21
|
Спасибо за вашу подсказку! Обязательно попробую то, как вы мне говорите.
Но я нашёл самостоятельно: как всё исправить. Сейчас в программе работает всё: и продвиг кадра (вперёд\назад), и переход следующий трек (и на предыдущий) по нажатию кнопки, и автопереход на следующий трек при воспроизведении. Для осуществления последнего обязательно надо использовать событие компонента media player "OnNotify". В процедуре OnNotify обратите внимание на написание кода между IF и THEN - именно в этом была загвоздка! А также правильно должен быть написан код для Timer (таймера). Вот код теперешней (полностью рабочей) программы. Программа создана в компиляторе "Борланд девелопер студия 2006". Код:
Последний раз редактировалось Ednikbod; 10.04.2017 в 11:48. |
10.04.2017, 12:43 | #8 | |
Форумчанин
Регистрация: 13.02.2012
Сообщений: 867
|
Цитата:
Код:
|
|
10.04.2017, 22:05 | #9 |
Пользователь
Регистрация: 13.10.2015
Сообщений: 21
|
Большое спасибо за подсказку!
Я вариантов испробовал много, но ошибку делал в том, что пытался mediaplayer1.stop писать в конце этой процедуры, а не в начале, как у вас. То есть: писал после Код:
Последний раз редактировалось Ednikbod; 10.04.2017 в 22:10. |
11.04.2017, 12:08 | #10 | |
Форумчанин
Регистрация: 13.02.2012
Сообщений: 867
|
Цитата:
по-идее, ваш код должен выдавать ошибку List index out of bounds после: Код:
Странно, если этого не происходило. Последний раз редактировалось BLACK_RAIN; 11.04.2017 в 12:49. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Переключение треков в плей-листе по нажатию кнопки "Вперёд" | Ednikbod | Мультимедиа в Delphi | 1 | 21.06.2016 22:11 |
Проигрыватель медиа с плей-листом. | Ednikbod | Мультимедиа в Delphi | 3 | 21.06.2016 10:08 |
Перенести всю строку на следующий лист 2 при определенному значению ячейки на листе 1 | sasha555 | Microsoft Office Excel | 10 | 24.03.2016 21:43 |
автоматический пересчет данных на листе - код | peq | Microsoft Office Excel | 4 | 15.10.2010 13:17 |
Про автоматический переход на след. трек | KatCH | Мультимедиа в Delphi | 7 | 14.03.2010 17:55 |