|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.10.2009, 10:19 | #1 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 36
|
MediaPlayer O.o
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin mediaplayer1.FileName := 'G:\Aram_zam_zam_original.mp3'; If MediaPlayer1.Mode=mpPlaying then MediaPlayer1.Pause else begin MediaPlayer1.Open; MediaPlayer1.Play; end; При нажатии первый раз воспроизводит, при нажатии второй раз останавливает, при нажатии третий раз воспроизводит трек сначала О.о Почему Pause работает как Stop? |
18.10.2009, 11:01 | #2 |
Экспериментатор
Форумчанин
Регистрация: 16.04.2008
Сообщений: 218
|
Не-ет! Pause срабатывает как надо. Трассировать не пробовали? Хотя тут и так видно: при втором нажатии условие НЕ выполняется, так как проигрыватель на паузе. И файл загружается сначала.
Для создания сложных вещей не нужны сложные интерфейсы. (с) Линус Торвальдс
|
18.10.2009, 11:39 | #3 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 36
|
я так думаю он сначало открывается потому что я Open прописываю, но если его не писать будет ошбка EMCIDeviceError!
|
18.10.2009, 11:56 | #4 |
Экспериментатор
Форумчанин
Регистрация: 16.04.2008
Сообщений: 218
|
Ага, все именно так.
Для создания сложных вещей не нужны сложные интерфейсы. (с) Линус Торвальдс
|
18.10.2009, 12:08 | #5 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 36
|
Try
MediaPlayer1.Play; Except on EMCIDeviceError do ShowMessage(' ошибка с сообщением : '); end; почемуто не ловит ошибку! |
18.10.2009, 12:09 | #6 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 36
|
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin Try MediaPlayer1.Play; Except on EMCIDeviceError do ShowMessage(' ошибка с сообщением : '); end; end; В процедуре кнопки прописываю. |
18.10.2009, 12:14 | #7 |
Экспериментатор
Форумчанин
Регистрация: 16.04.2008
Сообщений: 218
|
А вот не знаю. А надо ли оно? Можно просто перед каждым play открытие прописывать. А чтобы возобновить с паузы, нужно еще раз pause вызвать. Вроде бы.
Для создания сложных вещей не нужны сложные интерфейсы. (с) Линус Торвальдс
|
18.10.2009, 12:16 | #8 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 36
|
давай проверим....
|
18.10.2009, 12:22 | #9 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 36
|
If MediaPlayer1.Mode=mpPlaying then
MediaPlayer1.Pause else begin MediaPlayer1.Open; MediaPlayer1.Play; end; ОН ДАЖЕ ПРИ ЭТОМ ОШИБКУ ВЫДАЕТ! |
18.10.2009, 12:25 | #10 |
Пользователь
Регистрация: 28.08.2009
Сообщений: 36
|
оно меня уже начинает раздрожать!
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
MediaPlayer | Константин_1701 | Мультимедиа в Delphi | 1 | 06.07.2009 21:35 |
Mediaplayer | anton14 | Мультимедиа в Delphi | 12 | 20.10.2008 11:07 |
MediaPlayer | DANNY | Мультимедиа в Delphi | 5 | 05.05.2008 21:14 |
Mediaplayer.... | ZhekON | Компоненты Delphi | 13 | 19.02.2007 19:32 |
MediaPlayer | PAVEL315 | Общие вопросы Delphi | 1 | 10.02.2007 16:05 |