Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TMediaPlayer [D6, XP]


Volodya_ ©   (2006-04-14 21:15:00) 

Как узнать пошло ли изображение или нет, допустим если не находит кодек?


Volodya_   (2006-04-19 11:46:00) [1]

> Мефисто
Где взять описание TWindowMediaPlayer ?
На даный момент интересуют такие вопросы:
1. Как узнать длину файла в минутах
2. Как записать в playlist несколько файлов
3. Как заставить играть покругу
4. Как включить на полный экран


Мефисто   (2006-04-16 21:39:00) [2]

Попробуй использовать ActiveX TWindowMediaPlayer
Menu -> Components -> Import ActiveX Control
Сам не пробовал, но возможностей там намного больше...


kilkennyCat   (2006-04-16 18:36:00) [3]

TMediaPlayer.Error тоже проб ывал?


Volodya_   (2006-04-16 13:20:00) [4]

никто незнает?


Volodya_   (2006-04-14 22:58:00) [5]

пишет video not available, cannot find 'vids:3IV2' decompressor, но проигрывает. тоесть звук идёт а видео нету


kilkennyCat   (2006-04-14 22:43:00) [6]

Хорошо. А когда не находит кодек, что происходит?


Volodya_   (2006-04-14 22:24:00) [7]

> kilkennyCat ©
Пробывал я такое, всё время nvSuccessful  даже если не находит кодек :((


kilkennyCat   (2006-04-14 21:42:00) [8]

Ну, если кодек не найдет, а также прочие ошибки, то это можно увидить в TMediaPlayer.Error
Пошло же или нет - TMediaPlayer.NotifyValue

NotifyValue позволит проверить успешность выполнения любой команды медиаплееру данной:

nvSuccessful     команда выполнена успешно
nvSuperseded    команда перекрыта другой командой
nvAborted         команда отменена пользователем
nvFailure           команда не выполнена

begin
 with MediaPlayer1 do
 begin
   Notfiy := True;
   DeviceType := dtCDAudio;
   Open;
   Play;
   if NotifyValue <> nvSuccessful then
     MessageDlg('Error playing CD audio', mtError, [mbOk], 0)
 end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо