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

P R O G R A M U J E M EDelfinárium / 15. èas: Prehrávanie MP3 súborov II.V tejto èasti seriálu si dokonèíme náš MP3 prehrávaè. elám vám príjemné èítanie.PREDCHÁDZAJÚCA STOPA, ÏALŠIA STOPA. MP3 prehrávaè, ktorýsme pred mesiacom zaèali vyvíja, u dokáe skladbu spusti, zastavi aj preruši, stálenám však chýbajú tlaèidlá Previous track a Next track. Pridajme teda na hlavný formulárdve nové tlaèidlá. Aby nezaberali ve¾a miesta, rozhodol som sa, e namiesto textu budúobsahova iba šípky. Po ich stlaèení ktoréhoko¾vek z nich sa odohrá èosi podobné ako pridvojitom kliknutí na zoznam skladieb. Tieto dve rutiny však budú o trošku zloitejšie neobsluná rutina udalosti OnDblClick, pretoe pri „skoku“ na nastávajúcu èi predošlúskladbu treba dáva pozor, aby sme, obrazne povedané, nešliapli ved¾a. Èo všetko samôe pri takejto „skokovej“ operácii prihodi, objasòujú nasledujúce odseky.Zaènime tlaèidlom Previous track. Kód, ktorý sa po jeho stlaèení vykoná, má takútopodobu:procedure TPlayerWnd.PreviousTrackClick(Sender: TObject);beginwith PlayListWnd dobeginif PlayList.Items.Count=0 then exit;if PlayList.ItemIndex=-1 then exit;if PlayList.ItemIndex=0 then exit;PlayerWnd.PlayMP3(PlayList.Items[PlayList.ItemIndex-1]);PlayList.ItemIndex:=PlayList.ItemIndex-1;end;//withend;Ak chceme prejs na ïalšiu skladbu, musíme najskôr zisti, èi sa v zozname skladiebvôbec nachádzajú nejaké súbory. Ak je zoznam prázdny, niet èo prehráva a procedú−ra sa musí ukonèi. Presne to má na starosti prvý riadok (nasleduje hneï po príkazebegin): ak nie sú v zozname iadne súbory, vlastnos Items.Count vráti nulu a proce−dúra sa ukonèí.Okrem toho môe nasta situácia, e v playlist editore síce súbory budú, ale playlistnebude ma fokus, a teda nijaká poloka nebude vyznaèená. V takom prípade nie jemoné zisti èíslo predchádzajúcej èi nasledujúcej piesne, a preto sa procedúra musípredèasne ukonèi. Túto kontrolu vykonáva druhý riadok: ak nie je vybraná nijakápoloka, vlastnos ItemIndex vráti hodnotu −1 a procedúra sa ukonèí.Èo však urobíme v prípade, ak pouívate¾ vybral prvú skladbu a následne stlaèil tlaèid−lo Previous track? Pred prvou skladbou iadna pieseò nie je, a preto niet èo prehráva. Preprvú skladbu v zozname je typické, e má vdy èíslo nula, pretoe prvky komponentuTListBox sa èíslujú od nuly. Inými slovami, ak vlastnos ItemIndex vráti nulu, môeme siby absolútne istí v tom, e je vyznaèená prvá pesnièka. V tom prípade však nie je monéskoèi na predchádzajúcu pieseò (pred prvou skladbou iadna iná nie je), a preto musí byprocedúra ukonèená. Toto všetko zabezpeèí tretí riadok.Štvrtý riadok spustí prehrávanie volaním metódy PlayMP3. Samozrejme, v zoznamemusí by vdy vyznaèená tá skladba, ktorá sa práve prehráva. V našom prípade je èíslotejto skladby o jedno menšie, ako bolo èíslo aktuálnej piesne – stlaèili sme predsa tlaèid−lo Previous track. Hodnota ItemIndex sa preto zmenší o jednotku – zabezpeèí to posled−ný riadok procedúry.Podobné útrapy nás èakajú pri druhej rutine, ktorá má za úlohu zrealizova prechodna nasledujúcu pesnièku:procedure TPlayerWnd.NextTrackClick(Sender: TObject);beginwith PlayListWnd dobeginif PlayList.Items.Count=0 then exit;if PlayList.ItemIndex=-1 then exit;if PlayList.ItemIndex+1=PlayList.Items.Count then exit;PlayerWnd.PlayMP3(PlayList.Items[PlayList.ItemIndex+1]);if PlayList.ItemIndexPlayList.Items.Count thenPlayList.ItemIndex:=PlayList.ItemIndex+1;end;//withend;Podobne ako v prípade predchádzajúcej procedúry aj teraz môe nasta situácia, keïbude zoznam skladieb prázdny alebo nebude vyznaèená ani jedna pesnièka. Ak niektorýz týchto stavov nastane, prvé dva riadky procedúru ukonèia. Okrem toho sa môe sta,e pri vyvolaní tejto metódy bude vyznaèená posledná poloka zoznamu; v takom prí−pade však prechod na ïalšiu skladbu nemá zmysel (za poslednou skladbou u iadnaskladba nenasleduje). Presne o to sa stará tretí riadok. Pôsobí síce trochu mätúco, ne−musíte sa však bá, všetko si objasníme.To, èi je vyznaèená posledná skladba, zistíme tak, e budeme skúma, èi sa èíslo právevyznaèenej piesne zhoduje s èíslom, ktoré udáva celkový poèet skladieb uvedených vzozname. Ak napríklad máme v zozname dve skladby a vyznaèená je druhá, potom budeplati, e èíslo vyznaèenej skladby sa rovná celkovému poètu piesní, a teda sme si istí, evyznaèená pesnièka je posledná. Je tu však malý problém, ktorý súvisí s èíslovanímpouívaným komponentom TListBox: èíslovanie sa zaèína od nuly. Pokia¾ máme v zozna−me len jednu pesnièku, tá má èíslo nula. Celkový poèet piesní v zozname je však 1. Èo stým? Riešenie je ve¾mi jednoduché: ak k vlastnosti ItemIndex prirátame jednotku, prejde−me tým vlastne na normálny systém èíslovania: prvá skladba s èíslom 0 bude ma èíslo 1(0 + 1 = 1), druhá skladba s èíslom 1 bude ma odteraz èíslo 2 (1 + 1 = 2) atï. Situáciasa teda zmenila tak, e v zozname máme jednu pieseò s èíslom 0. 0 + 1 sa rovná jed−nej, èo je vlastne celkový poèet skladieb v zozname. Ak budú piesne dve a vyznaèímedruhú (ktorá má èíslo 1), potom bude opä plati, e prirátaním jednotky k èíslu piesne(1 + 1) dostaneme jej skutoèné èíslo, ktoré sa zároveò rovná poètu pesnièiek obsiahnu−tých v zozname. Teraz si môeme by istí, e vyznaèená pesnièka je poslednou piesòou,a teda ïalšiu u vyznaèi nemono, preto sa procedúra ukonèí.Nasleduje volanie metódy PlayMP3. Jediným rozdielom oproti predošlej procedúre jeto, e v predchádzajúcom prípade sme jednotku odèítali (keïe sme potrebovali prechodna predošlú skladbu) a teraz jednotku pripoèítame (pretoe potrebujeme prejs na nasle−dujúcu skladbu).Program je teda opä o nieèo vyspelejší, môete sa s ním chví¾ku pohra. Má však eštejednu pomerne nepríjemnú chybu: skúste spusti ¾ubovo¾nú skladbu, preruši ju (tlaèidloPauza) a následne stlaèi tlaèidlo Next track alebo Previous track. Všetko prebehne korekt−ne okrem jednej malièkosti: tlaèidlo Pauza ešte stále zobrazuje text Pokraèova, pretoenevie, e došlo k prechodu na novú pieseò. Musíme preto upravi rutinu PlayMP3 tak,aby vdy po spustení novej piesne priradila tomuto tlaèidlu správny text. Nebudem uvá−dza celý výpis procedúry, aby som neplytval miestom; na orientáciu vám postaèí nieko¾koz jej posledných riadkov:Play;Pauza.Enabled:=true;Pauza.Caption:= Pauza ;end;//withTeraz si mono poviete, e prehráva skladby je síce pekná vec, program však ešte stálenezobrazuje informácie uloené v ID3 tagu. Buïte bez obáv, aj k týmto údajom sa bezproblémov dostaneme. Aby to však bolo moné, musíme do klauzuly uses nášho prog−ramu prida jednotku MPEGDefs. Informácie, ktoré môeme zo súboru MP3 vyextraho−va, sú dvojakého druhu: do prvej skupiny patria technické údaje o frekvencii, bitrate, ste−reoreime atï. Do druhej skupiny patria údaje získané z ID3 tagu.Informácie o skladbe by sa mali zobrazi bezprostredne po zaèatí jej prehrávania,preto budeme musie upravi procedúru PlayMP3. Najskôr je však potrebné prida kom−ponenty, ktoré nám tieto údaje zobrazia. Technické údaje o skladbe bude zobrazovakomponent TLabel nazvaný Tech, zatia¾ èo názov piesne a interpreta budú uloené vkomponente TLabel nazvanom Nazov (ostatné informácie, ako napr. album èi rok vyda−nia, nám zobrazí špeciálne okno). Aby program nevyzeral prive¾mi všedne, rozhodolsom sa poui trik, ktorý som kedysi pouil pri vytváraní CD prehrávaèa a audioprehrá−vaèa (PC REVUE è. 1/2000): komponenty TLabel sú lté a umiestnené na èiernom kom−ponente TPanel.Ako som u spomenul, aby sme mohli uvedené informácie zobrazi, bude potrebnémodifikova procedúru PlayMP3. Skrátenú verziu tejto procedúry nájdete na internetovejstránke PC REVUE. Aby som neodvádzal pozornos od funkcií pracujúcich s ID3 tagom, zprocedúry sú vynechané všetky príkazy súvisiace s prehrávaním.Aby procedúra PlayMP3 fungovala, musíme do programu prida nasledujúcu deklaráciu:varPlayerWnd: TPlayerWnd;const stereomodes : array[TElSStereoMode] of string = ( Stereo , JointStereo , Dual Channel , Mono );Na èo je tento zápis dobrý, to si povieme neskôr.Keï si pozorne preštudujete procedúru PlayMP3, zrejme vás zarazia tieto riadky:Player.GetInfo1(nil, BufLength);Inc(BufLength);GetMem(TechInfo, BufLength);GetInfo1(TechInfo,BufLength);Ak ste èítali dokumentáciu, u urèite viete, e technické údaje o súbore MP3 vraciafunkcia GetInfo1. To by samo osebe neprekáalo, ale nikde sa nepíše, e túto funkciu jepotrebné vola dvakrát (ja som sa to tie dozvedel a po preskúmaní ukákového prog−ramu, dodávaného s komponentom). Môj osobný odhad je taký, e prvé volanie funkcieslúi na zistenie mnostva pamäte potrebnej na alokovanie buffera. Zistená ve¾kos sa108 PC REVUE 1/2002