|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Создание видеоплеера. [FAQ]
Вариант 1: Окно проигрывателя.
Кидаем на форму компонент TMediaPlayer на вкладе System. Настройки оставляем прежними, не меняем. Кинем еще пару компонентов TListBox, TButton, TOpenDialog. У Button1 в поле Caption впишем Open.. - смотрим Object Inspector. Кликаем дважды по кнопке, переходим к кодингу. Между двумя строками Begin End; впишем Код:
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin ListBox1.Items.Add(OpenDialog1.FileName); Mediaplayer1.FileName := OpenDialog1.FileName; Mediaplayer1.Open; end; end; Идем дальше, переходим к TListBox Выделим его и перейдем на Object Inspector \ Events Создадим событие на OnDblClick; Впишем этот код: Код:
procedure TForm1.ListBox1DblClick(Sender: TObject); begin if ListBox1.Items.Count > 0 then begin Mediaplayer1.FileName := ListBox1.Items.Strings[ListBox1.itemindex]; Mediaplayer1.Play; end; end; |
#2
|
||||
|
||||
Второй вариант, свое окно.
Компоненты теже, только добавим еще TPanel.
Перейдем к TMediaplayer'y у него надо изменить строку Display на Panel1. Так все. дальше идем. перейдем к Panel1. идем на Events создаем onResize; Впишем код Код:
procedure TForm1.Panel1Resize(Sender: TObject); begin Mediaplayer1.Stop; Mediaplayer1.DisplayRect := Panel1.ClientRect; Mediaplayer1.Play; end; Вот и все. Последний раз редактировалось Mealgay, 18.07.2009 в 12:00. |
#3
|
||||
|
||||
Пример
небольшой видео плеер
|
#4
|
|||
|
|||
а как сделать проигрыватель flv файлов??
|
#5
|
|||
|
|||
А мне нужно чтобы размер Display изменялся динамически. т.е. получить размер видео и подогнать размер окна под него. Как реализовать?
Последний раз редактировалось UltraBloxX, 29.11.2009 в 10:23. |
#6
|
|||
|
|||
Получить размер видео и подогнать
Так для это го нужно:
Код:
procedure TForm1.Panel1Resize(Sender: TObject); var sWidth,sHeight: Integer; begin Mediaplayer1.Stop; sWidth := DisplayRect.Right; sHeight := DisplayRect.Bottom; Mediaplayer1.DisplayRect := Panel1.ClientRect; Mediaplayer1.Play; end; Вроде бы все. Извените что не отвечал долго, пароль забыл. !!! |
#7
|
|||
|
|||
сделать проигрыватель 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; |
#8
|
|||
|
|||
Подскажите пожалуйста, как можно сделать фото кадра, и установить его
фоном рабочего стола!!! |
#9
|
|||
|
|||
Цитата:
|
#10
|
|||
|
|||
Оч волнует вышенаписанный вопрос, отпишитесь плиз кто-нить знающий!!!!
|