Az írás egy egyszerű médialejátszó (1. rész) - cikk

A legegyszerűbb médialejátszó, akkor létrehozhat szabványos Windows eszközöket. Vannak olyan modulok, amelyek hozzáférhetők bármilyen programozási nyelv - az ActiveX. Delphi ebben a tekintetben sem kivétel. Beépített Windows Media Player egy rendszer saját ActiveX-modul, amit könnyen használható a programban. Ahhoz azonban, hogy gyökeresen megváltozik valami nem fog működni. Ebben a cikkben megmutatom neked egy példát, hogyan kell használni ezt az összetevőt.

Kezdeni ActiveX-alkatrészek (rövidítve AX) beilleszkedni obolochkuDelphi. Ez könnyen elvégezhető: a nyílt komponens párbeszédablak - Import ActiveX Control. A különböző változatai Delphi, ez a menüpont is különböző neveket, de a legfontosabb szó marad ActiveX. A megnyíló ablakban a listán az összetevők kap a Windows Media Player vonalon. Kattintson az Install gombra. megadhatja az ablak jelenik meg, ahol a csomag telepíti a komponenst. Akkor hagyja az alapértelmezett beállításokat, majd kattintson az OK gombra. Ezt követően, az ActiveX komponens paletta fül jelenik WindowsMediaPlayer gombra. Most már kezdeni a játékos.

Kezdeni helye az összetevő formájában - Kattints az ikonra, majd alakú. Látni fogja, egy ismerős kép - a kép a játékos. Megjelenése verziójától függ a telepített összetevők. Egy tipikus formája, amit lát, az 1. ábrán látható.

Kezdeni, vessünk a lehetőséget a fájl megnyitása akar. A fájl elérési útja, hogy szeretne játszani, felelős WideString URL ingatlan típusa (string). Csináljunk egy menü a program, és hol fogunk hozzá a kívánt elemet. Helyezzük a forma TMainMenu (oldal szabvány). Kattintson duplán az ikonra TMainMenu. feküdt a formában. Nyissa meg a menüt tervezők. Jelölje ki egy pontot a menüben cím és Caption tulajdonság a típus „Fájl”. Ezután kattintson a létrehozott elem alatt van egy másik üres sort. Ott, és adja meg a nevét a tétel - „Open”. A következő sor, hozzunk létre egy elválasztó a menü - a Caption tulajdonság, hogy egy karakter - mínusz ( „-”). Tegye a következő sort: „Exit”. Nos, a program már van egy menü, bár kicsi. Most meg kell társítani egy menüpontot a Fájl megnyitása párbeszédpanel. Keresse TOpenDialog komponens a párbeszédablakok oldalon, és helyezze az űrlapot. Aktiválja a szűrő tulajdon és kattintson a gombra három ponttal ( „”). A megjelenő ablakban adja meg a kívánt fájltípusokat. A Szűrő neve mezőben adjon meg egy leírást fájltípusok, és a szűrő - maga a szűrő. A például a 2. ábra.

Ahhoz, hogy az alkatrész volt kényelmes dolgozni, módosítsa a Név tulajdonságot a MediaPlayer.

Válasszon egy komponenst és az ablakhoz Object Inspector. Tulajdonságok (Properties) az összetevő nem túl sok, de az események (Events) sokkal több. De csak néhány közülük.

Az egyszerűség kedvéért MainMenu1 alkatrész átnevezni MainMenu. és OpenDialog1 - a OpenDialog.

Execute eljárás egy párbeszédablak jelenik meg, és ha a felhasználó nem a „Mégsem”, a függvény értéke igaz. és fájlnév path írva, hogy a kiválasztott fájl. Aztán hozzá a tulajdonság az URL a játékos által kiválasztott fájlt. Elindítja a programot és próbálja megnyitni a fájlt. Mindent el kell dolgozni, a fájl kell lejátszani.

Most már, hogy a játékos ablak normál nézetet. A játékos maga is szükséges, hogy nyúlik a teljes szélessége az ablak - változtassa meg a Align tulajdonság alClient. A forma maga kell, hogy egy kicsit kevésbé, mert a játékos eddig csak játszik audio fájlokat. Véleményem szerint a forma, akkor beállíthatja a szélesség (Width) egyenlő 300 és a magasság (magasság) - 200. Végül meg lehet változtatni a kinézetét az ablakon, és állítsa BorderStyle beállítása bsSizeToolWin. és a cím (Caption) - "Egyszerű Media Player".

Most zaprogrammiruem „kilépés” - meg kell írni annak felvezető csak egy sort:

Ez a módszer lezárja a jelenlegi formájában (Self - tárgy, az alapértelmezett alakja), és megszakítja az alkalmazás.

Most meg kell, hogy a menü lejátszás alapvető parancsokat - Start gombra. Állj. Szünet. Természetesen a játékos már meglévő kulcsokat, de tükröződnie kell a menüben.

Először is, adjunk címet a menüsorban (ahol a „Fájl”), válassza a „Manage”. Ezután adjunk hozzá két elem - a "Start / Stop" és a "Pause". Programozni ezeket a parancsokat könnyen. Lejátszás vezérlésére Controls egy sor módszerek. és találja meg a jelenlegi helyzetét a játékos lehet az ingatlan PlayState. Itt látható a felvezető az elem „Start / Stop” gombot:

De a felvezető „Szünet”:

Elindítja a programot és ellenőrizze annak teljesítményét.

Mint látható, hoztunk létre egy viszonylag egyszerű, de a játékos. Legközelebb mi továbbra is fejleszteni azt. Egy kép az ablakon, miután az összes leírt intézkedések a cikkben bemutatott.

Az első alkalommal csak meg kell csinálni valami ilyesmi, és én nepoluchilos is néz ki a kép, de a páratlan kódot netak mondani, hogy az egység egység1;

felhasználások
Ablakok, üzenetek, SysUtils, Változatok, osztályok, grafika, vezérlők, Forms,
Ablakokat, menüket, ExtDlgs, OleCtrls, WMPLib_TLB;

típus
TForm1 = osztály (TForm)
WindowsMediaPlayer: TWindowsMediaPlayer;
MainMenu: TMainMenu;
OpenPictureDialog: TOpenPictureDialog;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Eghfdktybt1: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
eljárás N2Click (Sender: TObject);
eljárás N4Click (Sender: TObject);
eljárás N5Click (Sender: TObject);
eljárás N6Click (Sender: TObject);
eljárás N7Click (Sender: TObject);
magán

nyilvános

végén;

var
Form1: TForm1;

eljárás TForm1.N2Click (Sender: TObject);
kezdődik
ha OpenDialog.Execute majd
MediaPlayer.URL: = OpenDialog.FileName;
végén;

eljárás TForm1.N4Click (Sender: TObject);
kezdődik
self.Close;
végén;

eljárás TForm1.N5Click (Sender: TObject);
kezdődik
IF
MediaPlayer.PlayState = wmppsPlaying Aztán
MediaPlayer.Controls.Stop
más
MediaPlayer.Controls.Play;
végén;

eljárás TForm1.N6Click (Sender: TObject);
kezdődik
IF
MediaPlayer.PlayState = wmppsPlaying Aztán
MediaPlayer.Controls.Stop
más
MediaPlayer.Controls.Play;
végén;

eljárás TForm1.N7Click (Sender: TObject);
kezdődik
IF
MediaPlayer.Playstate = wmppsPlaying Aztán
MediaPlayer.Controls.Pause;
végén;