|
|
Регистрация | << Правила форума >> | 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; Вроде бы все. Извените что не отвечал долго, пароль забыл. !!! |