2× DVD - Vitajte na stránkach www.einsty.hostujem.sk

P R O G R A M U J E M Epotom zvýši o jednotku a vzápätí je volaná funkcia GetMem, ktorá alokuje potrebnúpamä. Nasleduje volanie metódy GetInfo1, ktorá tentoraz u urobí to, èo robi má – zistíúdaje o súbore MP3 a vráti hodnotu, ktorá na ne ukazuje (adresa údajov je uloená vpremennej TechInfo). Tieto informácie sú však iba takpovediac v surovom formáte, pretoich treba dekódova. Na to nám slúi funkcia DecodeMPEGInfo1, deklarovaná v jednot−ke MPEGDefs. Mono vás prekvapil zápisMPEGDefs.DecodeMPEGInfo1(TechInfo,Layer,Bitrate,Frequency,StereoMode);Tento výraz sa odvoláva na jednotku MPEGDefs (v hre teda nie je nijaký objekt, akoby sa na prvý poh¾ad mohlo zda). Takýto postup síce nie je èastý, je však dobré vedie,o èo ide. S funkciami èi procedúrami jednotky je moné pracova tak, ako keby to bolimetódy nejakého objektu. Môeme preto poui zápis typu NázovJednoky.NázovFunk−cie. V tomto prípade však takýto zápis vôbec nie je potrebný, úplne staèí, keï jedno−ducho napíšemeInitStream;Play;Timer.Enabled:=true;Pauza.Enabled:=true;Okrem toho je potrebné upravi kód, ktorý sa vykoná po stlaèení tlaèidla Stop, vtedyje toti potrebné èasovaè zastavi:procedure TPlayerWnd.StopClick(Sender: TObject);beginif Player.PlayerMode=pmPlaying then Player.Stop;Pauza.Enabled:=false;Timer.Enabled:=false;end;DecodeMPEGInfo1(TechInfo,Layer,Bitrate,Frequency,StereoMode);Po dekódovaní informácií sa tie zobrazia v komponente TLabel nazvanom Tech.Nepochybujem, e vás pri skúmaní procedúry PlayMP3 zarazil tento zvláštny výraz:StereoModes[StereoMode]Dátový typ StereoMode je v jednotke ElSounds deklarovaný takto:TElSStereoMode = (MPG_MD_STEREO, MPG_MD_JOINT_STEREO, MPG_MD_DUAL_CHANNEL,MPG_MD_MONO);Konštanta StereoModes je definovaná tak, e kadý reazec vlastne zodpovedá jednejz týchto hodnôt, vïaka èomu sme nemuseli poui príkaz Case.Po získaní technických informácií o súbore MP3 nasleduje volanie funkcie GetInfo2,ktorá vráti ukazovate¾ (pointer) na dátovú štruktúru, ktorá opisuje skladbu. Podobneako v predchádzajúcom prípade aj teraz je potrebné dáta dekódova, tentoraz pomo−cou funkcie DecodeMPEGInfo2. Po tomto úkone u máme k dispozícii údaje ako názovskladby, meno interpreta, rok atï., ktoré môeme zobrazi pomocou komponentuNazov.Kadý slušný prehrávaè by mal zobrazova dåku skladby a aj aktuálnu pozíciu v nej.Na hlavný formulár preto pridáme dva komponenty TLabel, prièom prvý nazvemeCelkovyCas a druhý Pozicia. Prvý údaj bude k dispozícii hneï po štarte skladby, ten druhýbude potrebné pravidelne obnovova. Informácie o dåke skladby a aktuálnej pozícii jemoné zisti prostredníctvom vlastností Size a Position, prièom obe hodnoty sú uvedenév milisekundách. Aby sme po spustení skladby mohli vidie jej celkovú dåku, musímeupravi metódu PlayMP3. Keïe budeme potrebova nejaké drobné prepoèty, musímenajskôr deklarova dve nové premenné:Minuty,Sekundy:byte;Potom upravíme koniec metódy, ktorý bude vyzera takto:Nazov.Caption:=Artist + - + Title;minuty:=(Player.Size div 1000) div 60;sekundy:=(Player.Size div 1000) mod 60;CelkovyCas.Caption:=Format( %.2d: %.2d ,[minuty,sekundy]);Zobrazenie celkového èasu u funguje, ostáva u len dorobi priebený indikátor pozí−cie v skladbe. Ten bude pracova tak, e sa v jednosekundovom intervale bude vola ruti−na, ktorá pomocou vlastnosti Position zistí, ko¾ko minút a sekúnd sa zo skladby prehralo.Iste ste vytušili, e na to budeme potrebova komponent TTimer. Keïe rutina bude vola−ná kadú sekundu, ponecháme vlastnos Interval nastavenú na hodnote 1000. VlastnosEnabled nastavíme na false, pretoe èasovaè bude spustený a po zaèatí prehrávania.V podstate bude táto procedúra totoná s procedúrou na zistenie celkovej ve¾kosti sklad−by. Jediný rozdiel tkvie v tom, e kým v predchádzajúcom prípade sme pouili vlastnosSize, teraz pouijeme vlastnos Position:procedure TPlayerWnd.TimerTimer(Sender: TObject);varminuty,sekundy:byte;beginminuty:=(Player.Position div 1000) div 60;sekundy:=(Player.Position div 1000) mod 60;Pozicia.Caption:=Format( %.2d: %.2d ,[minuty,sekundy]);end;Samozrejme, nesmieme zabudnú modifikova metódu PlayMP3, pretoe práve v nejbude èasovaè spustený:Obr. 1Väèšina kvalitných MP3 prehrávaèov obsahuje aj Seeking bar, preto ho pridáme ajdo nášho programu. Ako som u spomenul, nie je vhodné na tento úèel poui kom−ponent TTrackBar, preto pouijeme komponent TSlider, ktorý sa dodáva s MP3 kom−ponentom. Ten bude pracova podobne ako Seeking bar vo WinAmpe: bude priebeneukazova pozíciu v skladbe a zároveò sa pomocou neho budeme môc v skladbe pre−súva. Pri nastavovaní polohy jazdca opä vyuijeme komponent TTimer, pretoe tátooperácia sa bude dia súbene so zobrazovaním pozície v skladbe:procedure TPlayerWnd.TimerTimer(Sender: TObject);varminuty,sekundy:byte;beginminuty:=(Player.Position div 1000) div 60;sekundy:=(Player.Position div 1000) mod 60;Pozicia.Caption:=Format( %.2d: %.2d ,[minuty,sekundy]);Slider.Value:=Round(Player.Position / Player.Size *100);end;Na rade je napísanie rutiny, ktorá nám umoní presúva sa v skladbe. Keï vyznaèíme kom−ponent TSlider a vyberieme kartu Events, bude nás láka tento kód umiestni do obslunej ruti−ny udalosti OnChange. To však nie je správne riešenie, pretoe potom by sa táto procedúravyvolala pri akomko¾vek pohybe jazdcom. Ak by sme ho teda uchopili, premiestnili na jedenkoniec komponentu, vzápätí na druhý koniec a potom pustili myš, zistili by sme, e dekodéru pravdepodobne „zošalel“, keïe udalos OnChange bola vyvolaná pri kadom pohybejazdcom. Našastie však existuje udalos, ktorá vyvolá obslunú rutinu iba vtedy, keï smetlaèidlo myši pustili a poloha jazdca sa ustálila. Táto udalos sa volá OnStopTracking (v kom−ponente TTrackBar neexistuje) a jej obsluha bude spúša nasledujúci kód:procedure TPlayerWnd.SliderStopTracking(Sender: TObject);beginif Player.PlayerModepmPlaying then exit;Player.Position:=Round(Slider.Value / 100 * Player.Size);end;Ak teraz jazdca uchopíme a premiestnime, bude to ma rovnaký efekt ako pouitieSeeking baru vo WinAmpe. Samozrejme, premiestnenie je moné iba vtedy, ak sa práveprehráva nejaká skladba, v opaènom prípade sa nestane niè.1/2002 PC REVUE 109