Най-лесният медиен плейър, можете да създадете стандартни инструменти на Windows. Има модули, които са достъпни от всеки език за програмиране - е ActiveX. Delphi в това отношение не е изключение. Вграден Windows Media Player има собствена система, ActiveX-модул, който може лесно да използвате във вашата програма. Въпреки това, за да се промени радикално в това нещо няма да работи. В тази статия ще ви покажа един пример за това как да използвате този компонент.
Да започнем с ActiveX-компоненти (съкращение AX), за да се интегрират в obolochkuDelphi. Това се прави лесно: диалогов прозорец отворен Компонент - внос ActiveX Control. В различни версии на Delphi, този елемент от менюто може да има различни имена, но ключовата дума остава ActiveX. В прозореца, който се отваря, в списъка на компонентите получите линия Windows Media Player. Щракнете върху бутона Install. можете да посочите в прозореца, който се появява, в който трябва да инсталирате пакета компонента. Можете да оставите всички настройки по подразбиране и щракнете върху OK. След това, в раздела ActiveX компонент палитра се появява бутон WindowsMediaPlayer. Сега можете да започнете да създавате свой играч.
За да започнете място компонента на формата - Щракнете върху иконата и след това оформени. Вие ще видите нещо познато - образа на играча. Външният му вид зависи от версията на инсталираните компоненти. Типичната форма на това, което ще видите, е показан на фигура 1.
За да започнете, нека да се възползват от възможността за отваряне на файла, който искате. За пътя до файла, който искате да възпроизведете, отговорен WideString URL тип имот (низ). Да направим меню на програмата и къде ще добави желаната опция. Поставете форма TMainMenu (страница Standard). Кликнете два пъти върху иконата TMainMenu. лежи на формата. Отворете дизайнер на менюто. Маркирайте една точка в заглавието на менюто и неговата Надпис собственост на тип "Файл". След това кликнете върху Създаденият елемент и по-долу има още един празен ред. Има и въведете името на нашата позиция - "Open". Следващият ред, нека създадем разделител към менюто - в Надпис имота, сложи един знак - знак минус ( "-"). Направете следния договорената покупка "Изход". Е, програмата вече има меню, макар и малък. Сега трябва да се сдружават елемент от менюто с отворен файл диалог. Намери TOpenDialog компонент на страницата на диалогови прозорци и го поставете върху формата. Активирайте Филтър имота и кликнете върху бутона с три точки ( "."). В прозореца, който се показва, въведете желаните типове файлове. В полето Име на филтъра, въведете описание на типове файлове, както и във филтъра - самия филтър. Примерът на фигура 2.
За компонента е удобно да се работи, да промените името на собствеността на MediaPlayer.
Изберете компонент и отидете на инспектор на прозореца на обекта. Имоти (свойства) на компонента не е много, но събитията (Събития) много повече. Но ние използваме само някои от тях.
За удобство MainMenu1 компонент за преименуване MainMenu. и OpenDialog1 - в OpenDialog.
Изпълнение метод отваря диалогов прозорец и ако потребителят не кликнете върху "Отказ", функцията връща True. и FileName път написани на избрания файл. Тогава ние възлага имота на URL адреса на играч избрания файл. Стартирайте програмата и се опитайте да отворите файла. Всичко трябва да се работи, файлът трябва да се играе.
Сега нека ние даваме прозореца на играч към нормален изглед. Самият играч е необходимо да се простират по цялата ширина на прозореца - промени Align имот да alClient. Самата форма трябва да направи малко по-малко, тъй като нашият играч играе досега само аудио файлове. По мое мнение, за формата, можете да настроите ширината (широчина), равна на 300 и височина (височина) - 200. На последно място, можете да промените външния вид на прозореца и да BorderStyle е настроен да bsSizeToolWin. и заглавието (Надпис) - "Simple Media Player".
Сега zaprogrammiruem "Изход" - тя трябва да бъде написана на водача си само един ред:
Този метод се затваря сегашната форма (собствена - обект, формата по подразбиране), и се прекратява прилагането.
Сега трябва да се направи в менюто основни команди за контрол на възпроизвеждането - Старт. Стоп. Пауза. Разбира се, играчът вече има съществуващи ключове, но те трябва да бъдат отразени в менюто.
Първо добавете титлата в лентата с менюта (където "Файл"), изберете "Управление". След това добавете две позиции - "Start / Stop" и "Пауза". За да програмирате тези команди лесно. За да контролирате контроли за възпроизвеждане е набор от методи. и да разберете текущото състояние на играча може да бъде от PlayState собственост. Тук е манипулатор за елемента бутона "Start / Stop":
Но водачът на "пауза":
Стартирайте програмата и да се провери нейната ефективност.
Както можете да видите, ние сме създали една сравнително проста, но на играча. Следващия път, ние ще продължим да го развиват. Е изображение на прозореца, след като всички действия, описани в статията е показано.
Първият път, когато току-що се опита да направи нещо такова и аз nepoluchilos дори да изглежда като на снимката, но с нечетен кода netak кажа, че устройството Unit1;
употреби
Windows, съобщения, SysUtils, варианти, Курсове, графики, Контроли, формуляри,
Диалогови прозорци, менюта, ExtDlgs, OleCtrls, WMPLib_TLB;
тип
TForm1 = клас (TForm)
WindowsMediaPlayer: TWindowsMediaPlayer;
MainMenu: TMainMenu;
OpenPictureDialog: TOpenPictureDialog;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Eghfdktybt1: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
процедура N2Click (Sender: TObject);
процедура N4Click (Sender: TObject);
процедура N5Click (Sender: TObject);
процедура N6Click (Sender: TObject);
процедура N7Click (Sender: TObject);
частен
обществен
приключи;
Var
Form1: TForm1;
процедура TForm1.N2Click (Sender: TObject);
започвам
ако OpenDialog.Execute след това
MediaPlayer.URL: = OpenDialog.FileName;
приключи;
процедура TForm1.N4Click (Sender: TObject);
започвам
self.Close;
приключи;
процедура TForm1.N5Click (Sender: TObject);
започвам
АКО
MediaPlayer.PlayState = wmppsPlaying Тогава
MediaPlayer.Controls.Stop
още
MediaPlayer.Controls.Play;
приключи;
процедура TForm1.N6Click (Sender: TObject);
започвам
АКО
MediaPlayer.PlayState = wmppsPlaying Тогава
MediaPlayer.Controls.Stop
още
MediaPlayer.Controls.Play;
приключи;
процедура TForm1.N7Click (Sender: TObject);
започвам
АКО
MediaPlayer.Playstate = wmppsPlaying Тогава
MediaPlayer.Controls.Pause;
приключи;