Untitled - Vitajte na stránkach www.einsty.hostujem.sk

P R O G R A M U J E M E
Delfinárium / 14. èas : Prehrávanie súborov MP3 I.
Mnohí z vás už zrejme premýš¾ali nad tým, že si napíšu vlastný
prehrávaè MP3 alebo si aspoò vyskúšajú možnosti prehrávania
súborov MP3 v Delphi. Žia¾, s Delphi sa (zatia¾) nedodáva
nijaký komponent, ktorý by dokázal „empétrojky“ prehráva
, a tak bude potrebné poobzera sa na internete. Pokia¾
ste vášnivými zástancami Pascalu, zrejme budete sklamaní,
keï v závere svojho pátrania po webe zistíte, že azda jediným
jazykom, ktorý sa používa na písanie MP3 dekodérov, je
C/C++ (nestretol som sa so žiadnym dekodérom, ktorý by bol
napísaný v inom programovacom jazyku). Dokonca aj komponenty
pre Delphi sú implementované ako knižnice DLL,
napísané v C/C++, z ktorých komponent Delphi importuje
funkcie a následne ich volá. Hoci sa tieto komponenty používajú
pomerne ¾ahko, nemali by ste oèakáva , že pomocou
nich napíšete nový WinAmp èi Sonique. Nezabúdajte, že problematika
prehrávania súborov MP3 je ve¾mi komplexná, dekodéry
MP3 neraz pracujú sa úrovni strojového kódu, využívajúc
inštrukcie MMX èi 3DNow! Je však celkom pravdepodobné, že
v èase, keï budete tento materiál èíta , už budú k dispozícii
komponenty schopné využi výhody aj týchto inštrukcií.
Komponent, ktorý vám tentoraz predstavíme, patrí medzi
tie, ktoré sa dajú relatívne ¾ahko zvládnu . K dispozícii je na
serveri www.eldos.org. Okrem zdrojových súborov komponentu
Delphi nájdete v archíve aj zdrojové súbory dekodérov,
napísané v jazyku C++ (tie ve¾mi nevyužijete). Po rozbalení
budete možno prekvapení, že nevidíte nijaké knižnice DLL.
Autori totiž použili malý trik a príponu knižnice DLL (ktorá je
vlastne dekodérom) zmenili na ESP (funkcii LoadLibrary totiž
neprekáža, ak je prípona súboru iná ako DLL). Súèas ou distribúcie
sú tri knižnice DLL: prvou je MPEG dekodér ElAMP, s
ktorým budeme pracova (súbor ELAMP.ESP). Druhou je rozhranie
pre Windows Media Audio Decoder Interface (súbor
WMAMP.ESP) a tre ou knižnica na prehrávanie súborov WAV
(súbor WAVMP.ESP). Celý systém je podobne ako WinAmp
postavený na modulárnom princípe. V praxi to znamená, že
dokonca aj poèas behu programu je možné zavies a spusti
¾ubovo¾ný dekodér (samozrejme, ten musí spåòa urèité kritériá
a musí by napísaný tak, aby dokázal s Delphi komponentom
komunikova ). Žia¾, poèas dnešnej MP3 púte túto možnos
nevyužijeme, pretože momentálne je pre nás zaujímavý
iba jeden jediný dekodér: ElAMP.
Po skonèení inštalácie vám na palete komponentov pribudne
komponent TElPlayerMan. Okrem toho sa v archíve
nachádza aj komponent TSlider, nainštalujte si aj ten.
Budeme ho totiž používa namiesto komponentu TTrack-
Bar, ktorý sa na multimediálne úèely ve¾mi nehodí (neskôr
si povieme, preèo je to tak). Komponent TElPlayerMan plní
úlohu akéhosi manažéra dekodérov. Jeho najdôležitejšou
vlastnos ou je vlastnos Players, ktorá obsahuje zoznam
všetkých prehrávaèov (èiže dekodérov). Ako som už spomenul,
s komponentom sa dodávajú tri dekodéry, my
však budeme hovori iba o dekodéri MP3.
Chcel by som ešte upozorni na to, že v èase písania
tohto èlánku mal ElAMP problémy s prehrávaním súborov
s premenlivým bitrate. Dekódoval ich síce správne, ale
vlastnosti Size a Position nevracali korektné hodnoty.
NÁŠ PRVÝ PREHRÁVAÈ MP3. Predpokladám,
že by ste si èo najskôr chceli vyskúša , ako vyzerá prehrávanie
súborov MP3 v praxi. Napíšeme si teda jednoduchý
prehrávaè MP3, ktorý neskôr zdokonalíme.
Základom všetkého je administrátor dekodérov, nazvaný
TElPlayerMan. Pridáme ho na formulár a otvoríme vlastnos
Players. Ako som už spomínal, táto vlastnos obsahuje zoznam
všetkých dekodérov, ktoré sú v tomto komponente
zaregistrované. Stlaèíme tlaèidlo Add, èím do zoznamu pridáme
nový dekódovací modul. Vyplníme vlastnos Path-
ToDLL, prièom uvedieme nielen cestu, ale aj názov súboru:
ELAMP.ESP. Potom nastavíme vlastnos Initialized na true.
Pokia¾ komponent nezahlási chybu, máme skoro vyhrané,
pretože dekodér MPEG sa úspešne zinicializoval. Nastavme
vlastnos Initialized spä na false a poïme si trochu pocvièi
prsty napísaním krátkeho kódu.
Na hlavný formulár pridáme dva komponenty TButton,
ktoré nazveme Play a Stop. Po stlaèení prvého tlaèidla sa
vykoná nasledujúca procedúra:
procedure TForm1.PlayClick(Sender: TObject);
begin
MP3.Players[0].Init;
OpenDialog1.Filter := MP3.Players[0].ModuleName +
‘|’ + MP3.Players[0].Extensions;
if not OpenDialog1.Execute then exit;
MP3.Players[0].InputName:=OpenDialog1.FileName;
MP3.Players[0].Open;
MP3.Players[0].InitStream;
MP3.Players[0].Play;
end;
Prvý príkaz slúži na inicializáciu dekodéra (vykoná v podstate
to isté, èo sme vykonali my v Object Inspectore nastavením
vlastnosti Initialized na true). Potom sa zobrazí dialógové
okno na otvorenie súboru, ktoré využíva vlastnos Extensions
komponentu TElPlayer. Každý dekodér totiž vie poda
informáciu o tom, aké typy súborov dokáže prehráva , vïaka
èomu odpadá práca s vytváraním filtra súborov. Keï používate¾
vyberie požadovaný súbor, procedúra nastaví vlastnos
InputName, èo je vlastne názov súboru MP3, ktorý sa bude
prehráva . Tento súbor sa otvorí pomocou metódy Open a
zinicializuje prostredníctvom metódy InitStream. Predpokladám,
že funkciu metódy Play nie je potrebné objasòova .
Samozrejme, skladbu musíme vedie aj zastavi :
procedure TForm1.StopClick(Sender: TObject);
begin
MP3.Players[0].Stop;
end;
Po ukonèení práce s programom by sme mali prehrávaè
odstráni z pamäte:
procedure TForm1.FormClose(Sender: TObject; var
Action: TCloseAction);
begin
MP3.Players[0].Deinit;
end;
Žia¾, v dokumentácii sa nepíše, èi je potrebné vola
metódu Deinit pred ukonèením programu, to by mal totiž
komponent vykona sám. Každopádne v ukážkovom programe,
ktorý sa s komponentom dodáva, je táto metóda
volaná tesne pred uzavretím hlavného formulára.
Pomerne dôležitú úlohu pri prehrávaní súborov MP3 plnia
vlastnosti BufferSize a BuffersCount (myslím, že ich funkciu
nie je potrebné vysvet¾ova ). Spravidla platí, že èím viac bufferov
alokujete a èím sú tieto buffery väèšie, tým je menšia
pravdepodobnos „zadrhávania sa“ poèas prehrávania skladby.
Na druhej strane sa však zvyšuje doba, ktorá je potrebná
na spracovanie príkazov typu Stop. Optimálnu hodnotu pre
váš stroj si musíte urèi experimentálnou metódou. Ak máte
chu , môžete prehrávaè upravi tak, aby mohol poèet a ve¾kos
vyrovnávacích pamätí nastavova používate¾.
ZDOKONALENÝ PREHRÁVAÈ MP3. Náš ïalší
prehrávaè MP3 už bude o nieèo vyspelejší. Zložený bude
z dvoch hlavných okien: playlist editora a samotného prehrávaèa.
Vytvorme teda novú aplikáciu, do ktorej pridáme
dve okná: prvé nazveme PlayerWnd a druhé PlayListWnd.
Vlastnos BorderStyle prvého formulára nastavíme na bsDialog,
pretože rozmery hlavného okna budú fixné. To neplatí
pre druhý formulár, ktorého rozmery sa síce môžu meni ,
nesmieme však používate¾ovi umožni tento formulár minimalizova
èi maximalizova . Preto otvoríme vlastnos Border-
Icons a položky biMaximize a biMinimize nastavíme na false.
Mimochodom, hoci som v predchádzajúcich èlánkoch nieko¾kokrát
zdôraznil, že by sme mali v programoch z dôvodu
úspory pamäte formuláre vytvára ruène, tentoraz to neurobíme.
Dôvod je jednoduchý: obe okná sa budú používa tak
èasto, že jednoducho nemá zmysel vytvára ich poèas behu
programu. Samozrejme, pokia¾ sa neskôr rozhodneme program
rozšíri o ïalšie okná, tie by už mali by vytvárané ruène
(teda volaním konštruktora formulára).
Keïže prehrávaè je priamo závislý od playlist editora, zaèneme
najprv posledne menovaným oknom. Na hlavný formulár
(teda na okno PlayerWnd) pridáme tlaèidlo, ktoré nazveme
PlayEdit. Istotne ste sa dovtípili, že úlohou tohto tlaèidla bude
vyvola playlist editor. Ïalej je potrebné nastavi vlastnos Position
na poDesigned, pretože playlist editor sa po stlaèení
tlaèidla zobrazí tesne pod oknom prehrávaèa:
procedure TPlayerWnd.PlayEditClick(Sender: TObject);
begin
PlayListWnd.Top:=PlayerWnd.Top+PlayerWnd.Height;
PlayListWnd.Left:=PlayerWnd.Left;
PlayListWnd.Width:=PlayerWnd.Width;
PlayListWnd.Show;
end;
Tento kód pracuje na ve¾mi jednoduchom princípe: Y-ová
súradnica miesta, kde sa má playlist editor zobrazi , je definovaná
ako súèet „top“ súradnice hlavného okna a jeho výšky.
Podobne ako vo WinAmpe aj tu sú obe okná rovnako vzdialené
od ¾avého okraja obrazovky, preto majú obe vlastnosti Left
rovnakú hodnotu. Okrem toho majú okná aj rovnakú šírku, èo
sme dosiahli pomocou predposledného riadka (ako som však
spomenul, ve¾kos playlist editora je možné zmeni ).
Samozrejme, do playlist editora sa musia da umiestni aj
nejaké skladby. Ich poèet nám bude zobrazova komponent
TStatusBar, ktorého vlastnos SimplePanel nastavíme na true.
Potom pridáme komponent TPanel, ktorý bude obsahova
dve tlaèidlá: jedno som nazval Pridaj (bude slúži na pridanie
nového súboru do playlistu) a Vymaz, ktoré súbor z playlistu
vymaže. Zoznam súborov MP3 bude zobrazova komponent
TlistBox, nazvaný PlayList. Vlastnos Align tohto komponentu
nastavíme na alClient.
Na chví¾u teraz odboèíme a otvoríme si formulár Player-
Wnd. Pridáme komponent TEIPlayerMan, ktorý nazveme
PlayerMan. Vytvoríme nový prehrávaè a vyplníme vlastnos
PathToDLL (nastavíme ju na dekodér ELAMP.ESP). Aby sme ku
komponentu TEIPlayer nemuseli pristupova pomocou vlastnosti
Players komponentu TEIPlayerMan, upravíme deklaráciu
hlavného formulára a vytvoríme premennú s názvom Player:
private
{ Private declarations }
public
Player : TElPlayer;
{ Public declarations }
end;
Aby sme mohli túto premennú používa , musíme urobi
jednu jednoduchú operáciu v obsluhe udalosti On-
Show hlavného formulára:
procedure TPlayerWnd.FormShow(Sender: TObject);
begin
Player:=PlayerMan.Players[0];
Player.Init;
end;
Tento zápis prekladaèu povie, že premenná Player je zhodná
s nultým dekodérom obsiahnutým vo vlastnosti Players.
Inými slovami, to, èo robíme s touto premennou, akoby
sme robili s prehrávaèom (dekodérom). Všetky operácie teda
budeme vykonáva prostredníctvom premennej Player.
Teraz sa možno pýtate, preèo sme prerušili návrh playlist
editora, keï ten ešte nie je hotový. Musíme predsa ešte
prida komponent TOpenDialog, ktorý nám umožní prida
do playlistu súbory. Nuž, práve s komponentom TOpen-
Dialog toto prerušenie súvisí: pomocou premennej Player
totiž budeme vedie zisti typy súborov, ktoré dokáže dekodér
prehráva , a následne budeme vedie pod¾a toho nastavi
vlastnos Filter komponentu TOpenDialog.
Vrá me sa však spä k návrhu okna PlayListWnd a pridajme
komponent TOpenDialog, ktorý bude nies meno
OpenDlg. Obslužná rutina udalosti OnClick tlaèidla Pridaj
bude vyzera takto:
procedure TPlayListWnd.PridajClick(Sender: TObject);
begin
with PlayerWnd do
OpenDlg.Filter := Player.ModuleName + ‘|’ +
Player.Extensions;
if not OpenDlg.Execute then exit;
PlayList.Items.Add(OpenDlg.FileName);
StatusBar.SimpleText:='Poèet skladieb: ' +
IntToStr(PlayList.Items.Count);
end;
Samozrejme, nesmieme zabudnú na tlaèidlo Vymaz, ktoré
má za úlohu vymazanie súboru z playlistu:
12/2001 PC REVUE 141