Цитата:
|
Сообщение от Decoding
MediaPlayer с вкладки System не подойдет?
|
У ТMediaPlayer есть несколько минусов, и один из них - "кривая" работа с видео кодеками. У меня, к примеру, AVI видео либо не воспроизводится, либо воспроизводится без звука.
Я, обычно в таких случаях, использую Windows Media Player.
Подключить его пожно по средствам импорта ActivеX (но тут тоже есть один недостаток - программа не будет загружаться на компе без установленного WMP версии 7(или 9... не помню уже) и выше)).
Далее настраиваешь его по своему усмотрению (можно вкл/выкл автостарт, изменить громкость, показать/скрыть панель управления и т.п.).
Потом просто открываешь видео файл (WMP1.URL:= OpenDialog1.FileName;) и управляешь воспроизведением видео командами:
wmp1.controls.play;
wmp1.controls.pause;
wmp1.controls.stop;
Для определения длительности фильма:
wmp1.currentMedia.duration; //Double
wmp1.currentMedia.durationString; //WideString
Для определения позиции:
wmp1.controls.currentPosition; //Double
wmp1.controls.currentPositionString; //WideString
Для установки WMP:
В меню Delphi выбираешь Component->Import ActivX Control
Далее вибарешь Windows Media Player (файл C:\WINDOWS\System32\wmp.dll)
и устанавливаешь полученный компонент (по умолчанию он будет храниться в папке Delphi\Imports в виде PAS файла)