Показать сообщение отдельно
  #7  
Старый 03.12.2009, 11:10
MiTrack MiTrack вне форума
Прохожий
 
Регистрация: 03.12.2009
Сообщения: 2
Репутация: 10
По умолчанию сделать проигрыватель flv файлов

Для это го понадобится компонент Windows Media Player.
Установите этот компонент, делается это так:

Зайдите в меню Project\Import Type Library...
В появищемся окне отыщите компонент Windows Media Player (Version 1.0)
Там их два, нам нужен верхний, тоесть первый.
Выделяем его, жмем кнопку Create Unit. Перед нами появиться окно открытой библиотеки WMPLib_TLB. А в строке Caption путь к pas файлу.

Теперь мы можем его установить.
Зайдите в меню Component\Instal Component...

В появищемся окне идем на вкладку Intro New Package
В поле Unit Name: Указываем путь к ранее подготовлинной библиотеки WMPLib_TLB. Храниться она в Delphi7\Imports\

Package File Name: введите WMP.

И жмите кнопку Ok. У нас все готово.
Закройте не нужные окна.
Компонент найдете во вкладке System.

-------------------------------------------
Для загрузки видео используйте код:
WindowsMediaPlayer1.Url := FileName;
Ответить с цитированием