|
Вопрос # 5 140/ вопрос открыт / |
|
Здравствуйте! Подскажите пожалуйста почему когда я на таймер вешаю код: begin if mediaplayer1.length = mediaplayer1.position then
у меня выскакивает ошибка сразу после запуска приложения, а кампелятор не чего не находит. Я пытаюсь так сделать переход к следующему треку в проигрывателе после окончания предыдущего.
Приложение: Переключить в обычный режим-
- procedure TForm3.Timer3Timer(Sender: TObject);
- begin
- if mediaplayer1.length = mediaplayer1.position then
- ListBox1.ItemIndex:=ListBox1.ItemIndex+1;
- mediaplayer1.FileName:=ListBox1.Items[ListBox1.ItemIndex];
- mediaplayer1.Open;
- BeginPlay ;
- End;
-
 |
Вопрос задал: Loki05 (статус: Посетитель)
Вопрос отправлен: 30 марта 2011, 18:57
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 9; последнее сообщение — 30 марта 2011, 20:00; участников в обсуждении: 4.
|
AlexMPEI (статус: 1-ый класс), 30 марта 2011, 19:02 [#1]:
А что пишет в ошибке?
Скорее всего у тебя лист пуст и ты пытаешься присвоить в ListBox1.ItemIndex:=ListBox1.ItemIndex+1; несуществующее значение индекса - у тебя нет проверок на длину списка в процедуре таймера
|
|
Ерёмин А.А. (статус: *Администратор), 30 марта 2011, 19:02 [#2]:
Loki05: долго ещё однотипные вопросы будете задавать? У вас уже есть два, почему нельзя развивать тему там?
|
|
|
Loki05 (статус: Посетитель), 30 марта 2011, 19:09 [#3]:
Всем спасибо!!! Все заработало
|
|
min@y™ (статус: Доктор наук), 30 марта 2011, 19:25 [#4]:
Цитата (Loki05):
Всем спасибо!!! Все заработало
Вот это-то как раз и хреново. Тебе ж сказали, что это надо не по таймеру делать, а по событию медиаплейера. А ты пошёл путём нормального героя комсомольца, а не программиста.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Loki05 (статус: Посетитель), 30 марта 2011, 19:33 [#5]:
min@y: Просвети тогда меня, скажи по какому событию и как? я не очень долго программирую и не знаю всех тонкостей...
|
|
|
min@y™ (статус: Доктор наук), 30 марта 2011, 19:43 [#6]:
Ну почитай ты хэлп про событие TMediaPlayer.OnNotify! Или мне этот раздел сюда скопировать?!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Loki05 (статус: Посетитель), 30 марта 2011, 19:54 [#7]:
Че та бред какой то выходит. Весь плейлист перебирает и виснет
|
|
|
Loki05 (статус: Посетитель), 30 марта 2011, 19:57 [#8]:
Здесь если я прав оно должно наступать в том случае если проигрыватель Stop. или я не прав?
|
|
|
min@y™ (статус: Доктор наук), 30 марта 2011, 20:00 [#9]:
Цитата (Loki05):
Здесь если я прав оно должно наступать в том случае если проигрыватель Stop. или я не прав?
Ну почитай ты хэлп, ну сколько можно?! Проблема-то копеечная! Не шаришь в английском - гугли.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
