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

P R O G R A M U J E M EVytvorme teda nový formulár, ktorého obyvate¾mi budú komponent TBatchMove,komponent TTable, nazvaný Zdroj, a komponent Ttable, nazvaný Ciel. VlastnosTableName tabu¾ky Zdroj nastavíme na ANIMALS.DBF. Vlastnos Source komponentuTBatchMove nastavíme na Zdroj (ako vidíme, do vlastnosti Source nestaèí jednoduchovpísa cestu k databáze, ako by možno niektorí z vás oèakávali, vždy musíme zada komponenttypu TTable). Podobne budeme postupova aj s cie¾ovou tabu¾kou: vlastnosTableName nastavíme na Zver; vlastnos Destination komponentuTBatchMove nastavíme na Ciel. Vlastnos Modenastavíme na batAppend. Do vlastnosti ProblemTableNamevpíšeme cestu tabu¾ky, do ktorej sa majú uložiproblémové záznamy, a vlastnos AbortOnProblem nastavímena false. Vlastnos ProblemTable nastavíme naC:\PROBLEM.DBF. Mapovanie polí nateraz vynecháme, abysme si ukázali, èo toto vynechanie spôsobí. Na komponentTBatchMove klikneme pravým tlaèidlom a z kontextovéhoObr. 3menu vyberieme Execute, èím sa spustí presun dát.Výsledný súbor, samozrejme, nie je správne usporiadaný(pozri obr. 3). S prvým po¾om nie je nijaký problém, pretože meno živoèícha je naprvom mieste aj v databáze ANIMALS.DBF, aj v našej databáze. Druhé pole je však vzdrojovej a cie¾ovej databáze iné, v zdrojovej databáze druhé pole udáva ve¾kos živoèícha,zatia¾ èo v cie¾ovej to má by oblas , v ktorej zviera žije. Problém vyriešime kliknutímna vlastnos Mappings a nadefinovaním mapovania polí (obr. 4). Mapovanie polí jemožné nadefinova ve¾mi jednoducho, a to na základe vzorca PoleCie¾ovejTabu¾ky=PoleZdrojovejTabu¾ky. Ak po nastavení mapovania z kontextového menu vyberiemepoložku Execute, prenos dát bude uskutoènený korektne, s výnimkou jedného záznamu,ktorý bol presunutý do tabu¾ky PROBLEM.DBF. Príèina tohto javu je ve¾mi jednoduchá:našu databázu sme zámerne vytvorili tak,aby sa do nej tento záznam jednoduchonezmestil; re azec v poli Area je totiždlhší ako nami stanovená dåžka po¾aOblast. Urobili sme tak preto, aby sme simohli demonštrova prácu s problémovýmizáznamami.Pokia¾ budete s programom experimentova, nezabudnite pred každýmObr. 4presunom dát vymaza cie¾ovú tabu¾ku– použili sme totiž parameter bat-Append a staré údaje sa tak samy nevymažú. Parameter batCopy sme nemohli použiz toho dôvodu, aby nedošlo k ovplyvneniu štruktúry tabu¾ky. Síce by neboli pridanénové polia, ale ve¾kos po¾a Oblast by sa zmenila z pôvodných 15 znakov na 20 znakov(èo je dåžka po¾a v tabu¾ke ANIMALS.DBF), v dôsledku èoho by nevznikli žiadne problémovézáznamy a my by sme si nemohli demonštrova použitie vlastnosti Problem-TableName.Ako vidíme, dokázali sme relatívne bezbolestne presunú dáta z dBase tabu¾ky dotabu¾ky typu Paradox, dokonca sme ani nemuseli skompilova program. Pre úplnos všakpripájam kód, ktorý vykoná to isté, èo sme pred chví¾kou urobili ruène. Nie je vôbeczložitý:procedure TForm1.BatchBtnClick(Sender: TObject);begintrytryscreen.Cursor:=crHourGlass;with BatchMove dobeginMappings.Clear;Mappings.Add(‘meno=name’);Mappings.Add(‘oblast=area’);Execute;if ProblemCount>0 then ShowMessage(IntToStr(ProblemCount)+’ problémovýchzáznamov’);end;//withexceptraiseend;//exceptfinallyscreen.Cursor:=crDefault;end;//finallyend;Oproti predchádzajúcemu ruènému postupu je tu jedna výhoda: v prípade, že primanipulácii s dátami nastali problémy, procedúra nás o tom okamžite informuje (vzniknevýnimka).NABUDÚCE. Nabudúce si ukážeme, ako vytvára tabu¾ky poèas behu programu, apovieme si aj nieèo o poèítaných položkách (calculated fields). Dovidenia o mesiac.Ivan Zernovác ml.Delphi v praxi / 7. èas : ID3 TAG v1Každý z vás, kto aspoò letmo pozná formát hudby MP3, sa iste stretol s pojmom ID3TAG. Nosite¾om tejto informácie o skladbe je ten istý súbor, teda súbor MP3. V dnešnejdobe, keï pracujeme s väèším množstvom „MP trojok“, urèite nie je na škodu struènýzoznam samotných súborov, respektíve informácií o skladbe. Tak sa ID3 TAG stáva jedinýmmožným riešením. Pomocou prehrávaèa, prípadne playlistu zistíme všetky potrebnéinformácie: interpreta, pomenovanie albumu, názov skladby. Takéto informácie je dobrévedie zapísa a aj preèíta . Je mnoho editorov ID3 TAG, dokonca aj samy prehrávaèe disponujútakouto možnos ou, ktorá nie je až taká komfortná. Ak vám takéto programy aprehrávaèe nevyhovujú, máte teraz možnos nauèi sa, ako si takýto program urobi .ID3 TAG. Rozlišujeme dva druhy, ktoré sa od základu líšia zápisom a umiestnením v súbore.Rovnako ako väèšina programov aj popisy súborov MP3 sú oddelené verziami. Nemôžemtu vymenúva všetky doteraz existujúce verzie, lebo ani sám nemám preh¾ad, èosa toho týka. My si len spomenieme dve základné, ktoré sú navzájom úplne odlišné.V tejto èasti si opíšeme iba ID3 TAG v1 a druhú verziu si podrobne rozoberieme v nasledujúcomvydaní.ID3 TAG V1. Zápis tejto informácie je umiestnený na konci súboru v posledných 128bitoch. Jednotlivé informácie sú obmedzené dåžkou, a to takto (tabu¾ka a obr. 1):Zaèiatok znaèený TAG3 bitNázov skladby30 bitInterpret30 bitNázov albumu30 bitRok4 bitKomentár29 bitÈíslo skladby1 bitŽáner1 bitObr. 1Urèite sa väèšine z vás nebude páèi jeden bit urèený pre èíslo skladby. Tým bol o jedenznak skrátený komentár. V opisoch sa tento bit neuvádza, ale väèšina prehrávaèov hopoužíva na zaznamenanie poradového èísla, napríklad èísla skladby na CD. V koneènomdôsledku si musíme všetci uvedomi , že takýto opis si môžeme prispôsobi , tak ako chceme,ale si treba uvedomi potrebu používania štandardu. Keby sme chceli zapísa nejakýparameter, ktorý štandard nepodporuje, zásadne by sme ho nemali dáva na koniec súboru,ale mali by sme rozmýš¾a o uložení na iné miesto v súbore alebo o skrátení niektorejhodnoty tak ako s predposledným bitom na uchovanie poradového èísla. Na obrázku 1je zobrazený opis pesnièky Blood Brothers od Iron Maiden z albumu Brawe New World zroku 2000. Komentár v tomto prípade nie je nijaký. Sú jasne vidite¾né všetky string informácie.Informácia o žánri a o poradovom èísle je zapísaná takisto na konci súboru vposledných dvoch bitoch. Nastal èas položi si otázku, ako to èo najjednoduchšie preèíta, zobrazi a, samozrejme, aj editova .ÈÍTANIE ID3 TAG V1. Hneï na zaèiatok si musíme uvedomi , èo a v akej formebudeme èíta . Všetky hodnoty okrem èísla skladby a žánru by sme mohli považova zastring. Na zistenie èísla skladby sa nám najviac hodí premenná typu byte, ako aj na zisteniežánru. Žáner je potrebné previes na zrozumite¾nejšiu hodnotu, a to pod¾a tabu¾kyžánrov na hodnotu string. Na to nám najlepšie poslúži pole string, ktoré bude vyzeratakto.constMaxID3zaner=147;ID3zaner: array[0..MaxID3zaner] of string = (‘Blues’, ‘Classic Rock’, ‘Country’, ‘Dance’, ‘Disco’, ‘Funk’, ‘Grunge’,‘Hip-Hop’, ‘Jazz’, ‘Metal’, ‘New Age’, ‘Oldies’, ‘Other’, ‘Pop’, ‘R&B’,‘Rap’, ‘Reggae’, ‘Rock’, ‘Techno’, ‘Industrial’, ‘Alternative’, ‘Ska’,‘Death Metal’, ‘Pranks’, ‘Soundtrack’, ‘Euro-Techno’, ‘Ambient’,‘Trip-Hop’, ‘Vocal’, ‘Jazz+Funk’, ‘Fusion’, ‘Trance’, ‘Classical’,‘Instrumental’, ‘Acid’, ‘House’, ‘Game’, ‘Sound Clip’, ‘Gospel’,‘Noise’, ‘AlternRock’, ‘Bass’, ‘Soul’, ‘Punk’, ‘Space’, ‘Meditative’,‘Instrumental Pop’, ‘Instrumental Rock’, ‘Ethnic’, ‘Gothic’,‘Darkwave’, ‘Techno-Industrial’, ‘Electronic’, ‘Pop-Folk’,‘Eurodance’, ‘Dream’, ‘Southern Rock’, ‘Comedy’, ‘Cult’, ‘Gangsta’,‘Top 40’, ‘Christian Rap’, ‘Pop/Funk’, ‘Jungle’, ‘Native American’,‘Cabaret’, ‘New Wave’, ‘Psychadelic’, ‘Rave’, ‘Showtunes’, ‘Trailer’,‘Lo-Fi’, ‘Tribal’, ‘Acid Punk’, ‘Acid Jazz’, ‘Polka’, ‘Retro’,‘Musical’, ‘Rock & Roll’, ‘Hard Rock’, ‘Folk’, ‘Folk-Rock’,‘National Folk’, ‘Swing’, ‘Fast Fusion’, ‘Bebob’, ‘Latin’, ‘Revival’,‘Celtic’, ‘Bluegrass’, ‘Avantgarde’, ‘Gothic Rock’, ‘Progressive Rock’,10/2001 PC REVUE 129