Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> mediaplayer. активация кнопок при воспроизведении 
:(
    Опции темы
CODeRUS
Дата 18.10.2009, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 25.7.2007

Репутация: нет
Всего: нет
воспроизвожу медиафайл командой в коде.
но при этом кнопки управления не меняются - остается активной кнопка Play и кнопки смены трека
как можно сделать, чтобы при воспроизведении становились активными кнопки Pause Stop так, как бы мы нажали кнопку Play мышью?
PM MAIL   Вверх
morpheyushka
Дата 19.10.2009, 14:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 2
Всего: 8
Ну наверное нужно воспользоваться событиями "Начало воспроизведения"/"Конес воспроизведения". Точно названия событий написать не могу, Делфи на Mac не получается поставить smile )


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
CODeRUS
Дата 19.10.2009, 15:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 25.7.2007

Репутация: нет
Всего: нет
так это они и есть .Play и .Stop
дело в том, что загрузил песню в плеер, открыл его.
запустил по .Play - играет но состояние кнопок не изменилось.
если нажать вручную - все ок

при ручном старте (состояния кнопок как положено) при вызове .Stop либо .Pause песня останавливается. Но кнопка play на плеере все еще нажата

как быть? :(
PM MAIL   Вверх
morpheyushka
Дата 19.10.2009, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 2
Всего: 8
Покажи код.
Попробуй пошагово посмотреть - почему не отображаются кнопки, заходит ли в методы?


--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
CODeRUS
Дата 20.10.2009, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 25.7.2007

Репутация: нет
Всего: нет
самый банальный код!
Код

Mediaplayer1.Filename:=file;
Mediaplayer1.Open;
Mediaplayer1.Play;


Это сообщение отредактировал(а) CODeRUS - 20.10.2009, 10:18
PM MAIL   Вверх
morpheyushka
Дата 20.10.2009, 17:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Зеленый человек
**


Профиль
Группа: Участник
Сообщений: 563
Регистрация: 26.2.2008
Где: Киев

Репутация: 2
Всего: 8
Используй событие OnNotify:
Код

procedure TForm14.MediaPlayer1Notify(Sender: TObject);
begin
  with Sender as TMediaPlayer do
    begin
      case MediaPlayer1.Mode of
        mpStopped: {остановились};
        mpPlaying: {играем};
        mpPaused: {приостановились};
      end;
    //must set to true to enable next-time notification
      Notify := True;
   end;
end;



--------------------
user posted image
Спасибо делается вот так!!!
PM MAIL WWW   Вверх
CODeRUS
Дата 20.10.2009, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 25.7.2007

Репутация: нет
Всего: нет
можешь пояснить чем мне это поможет?
ну узнаю я когда плеер играет, стоит, или ждет...но кнопочки то не вернешь этим(((
PM MAIL   Вверх
Hexel
Дата 22.10.2009, 11:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 30.10.2007
Где: UA

Репутация: нет
Всего: нет
Deplhi6
Думаю, это

Цитата(morpheyushka @  20.10.2009,  17:23 Найти цитируемый пост)
Используй событие OnNotify:


можно применить, не показывая на форме сам контроль медиа плеера.
То есть, кнопки старт, стоп и т. п. ставишь отдельно, плеер отдельно. кнопками выполняешь старт, стоп и т. п., а собственно их доступность меняешь как раз в обработчике события. только учти, что я не пользовался таким медиа плеером и ни разу его не видел
PM MAIL   Вверх
CODeRUS
Дата 22.10.2009, 14:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 71
Регистрация: 25.7.2007

Репутация: нет
Всего: нет
в принципе можно....
если ничего не получится придется так и сделать, но все же интересно победить mediaplayer, чтобы он заработал как надо!
PM MAIL   Вверх
Hexel
Дата 22.10.2009, 14:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 30.10.2007
Где: UA

Репутация: нет
Всего: нет
только сильно не упорствуй! неблагодарное получится занятие)
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1660 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.