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

P R O G R A M U J E M E
Vytvorené pole char idb je najfunkènejšou premennou
tejto procedúry. Postupným obmieòaním hodnôt identifikátora
a dåžky textu vznikajú kompletné identifikátory
jednotlivých informácií.
//TENC write
idb[1]:= ‘T’;
idb[2]:= ‘E’;
idb[3]:= ‘N’;
idb[4]:= ‘C’;
idb[8]:= chr(length(TENC)+1);
idb[9]:= ‘@’;
blockwrite(temp, idb, 11);
for i:= 1 to length(TENC) do begin
txt[i]:= TENC[i];
end;
blockwrite(temp, txt, length(TENC));
TENC – Encoded by. Identifikátor s dåžkou 11 znakov
na deviatej pozícii uchováva ‘@’. Uložením hodnoty TENC
do premennej txt (pole char) a následným zápisom do súboru
vzniká kompletne zapísaná informácia Encoded by.
//WXXX write
idb[1]:= ‘W’;
idb[2]:= ‘X’;
idb[3]:= ‘X’;
idb[4]:= ‘X’;
idb[8]:= chr(length(WXXX)+2);
idb[9]:= #00;
blockwrite(temp, idb, 12);
for i:= 1 to length(WXXX) do begin
txt[i]:= WXXX[i];
end;
blockwrite(temp, txt, length(WXXX));
WXXX – Url. Neviem, z akého dôvodu je identifikátor dlhší
o jeden znak ako v ostatných prípadoch. Dåžka re azca
zapísaného v ôsmom bite je vyjadrená ako skutoèná dåžka
url plus dva. To asi preto, že je zmenená aj dåžka identifikátora.
//TCOP write
idb[1]:= ‘T’;
idb[2]:= ‘C’;
idb[3]:= ‘O’;
idb[4]:= ‘P’;
idb[8]:= chr(length(TCOP)+1);
idb[9]:= #00;
blockwrite(temp, idb, 11);
for i:= 1 to length(TCOP) do begin
txt[i]:= TCOP[i];
end;
blockwrite(temp, txt, length(TCOP));
//TOPE write
idb[1]:= ‘T’;
idb[2]:= ‘O’;
idb[3]:= ‘P’;
idb[4]:= ‘E’;
idb[8]:= chr(length(TOPE)+1);
idb[9]:= #00;
blockwrite(temp, idb, 11);
for i:= 1 to length(TOPE) do begin
txt[i]:= TOPE[i];
end;
blockwrite(temp, txt, length(TOPE));
//TCON write
idb[1]:= ‘T’;
idb[2]:= ‘C’;
idb[3]:= ‘O’;
idb[4]:= ‘N’;
idb[8]:= chr(length(TCON)+1);
idb[9]:= #00;
blockwrite(temp, idb, 11);
for i:= 1 to length(TCON) do begin
txt[i]:= TCON[i];
end;
blockwrite(temp, txt, length(TCON));
//TCOM write
idb[1]:= ‘T’;
idb[2]:= ‘C’;
idb[3]:= ‘O’;
idb[4]:= ‘M’;
idb[8]:= chr(length(TCOM)+1);
idb[9]:= #00;
blockwrite(temp, idb, 11);
for i:= 1 to length(TCOM) do begin
txt[i]:= TCOM[i];
end;
blockwrite(temp, txt, length(TCOM));
//TYER write
idb[1]:= ‘T’;
idb[2]:= ‘Y’;
idb[3]:= ‘E’;
idb[4]:= ‘R’;
idb[8]:= chr(length(TYER)+1);
idb[9]:= #00;
blockwrite(temp, idb, 11);
for i:= 1 to length(TYER) do begin
txt[i]:= TYER[i];
end;
blockwrite(temp, txt, length(TYER));
//TRCK write
idb[1]:= ‘T’;
idb[2]:= ‘R’;
idb[3]:= ‘C’;
idb[4]:= ‘K’;
idb[8]:= chr(length(TRCK)+1);
idb[9]:= #00;
blockwrite(temp, idb, 11);
for i:= 1 to length(TRCK) do begin
txt[i]:= TRCK[i];
end;
blockwrite(temp, txt, length(TRCK));
//TALB write
idb[1]:= ‘T’;
idb[2]:= ‘A’;
idb[3]:= ‘L’;
idb[4]:= ‘B’;
idb[8]:= chr(length(TALB)+1);
idb[9]:= #00;
blockwrite(temp, idb, 11);
for i:= 1 to length(TALB) do begin
txt[i]:= TALB[i];
end;
blockwrite(temp, txt, length(TALB));
//TPE1 write
idb[1]:= ‘T’;
idb[2]:= ‘P’;
idb[3]:= ‘E’;
idb[4]:= ‘1’;
idb[8]:= chr(length(TPE1)+1);
idb[9]:= #00;
blockwrite(temp, idb, 11);
for i:= 1 to length(TPE1) do begin
txt[i]:= TPE1[i];
end;
blockwrite(temp, txt, length(TPE1));
//TIT2 write
idb[1]:= ‘T’;
idb[2]:= ‘I’;
idb[3]:= ‘T’;
idb[4]:= ‘2’;
idb[8]:= chr(length(TIT2)+1);
idb[9]:= #00;
blockwrite(temp, idb, 11);
for i:= 1 to length(TIT2) do begin
txt[i]:= TIT2[i];
end;
blockwrite(temp, txt, length(TIT2));
Na zápis parametrov TCOP, TOPE, TCON, TCOM, TYER,
TRCK, TALB, TPE1, TIT2 bola použitá rovnaká dåžka identifikátora.
Za povšimnutie stojí fakt, že niektoré informácie
a ich zápis majú inú štruktúru. Otázka znie: preèo? Bolo
by ove¾a jednoduchšie vytvori takú procedúru, ktorá by
nemusela každý parameter zapisova zvláš , èím by sa procedúra
stala rýchlejšou a pružnejšou, èo sa týka pridávania,
respektíve zapísania ostatných informácií, potrebných
z h¾adiska použitia. Preèo by potom vytvárali popis, ktorý
dokáže uchova 83 informácií? Veï komu by sa nepáèil
systém karaoke, ktorý je jednou z funkcií ID3 TAG v2!
//COMM write
idb[1]:= ‘C’;
idb[2]:= ‘O’;
idb[3]:= ‘M’;
idb[4]:= ‘M’;
idb[8]:= chr(length(COMM)+5);
idb[9]:= #00;
blockwrite(temp, idb, 15);
for i:= 1 to length(COMM) do begin
txt[i]:= COMM[i];
end;
blockwrite(temp, txt, length(COMM));
COMM – komentár. Priznám sa, že tento zápis komentára
nie je celkom v poriadku. Preštudoval som si viacero
príruèiek s popisom ID3 TAG v2, ktoré som našiel pri potulkách
internetom. Jedna informácia ostala doposia¾
mnou nepochopená. Ide o 4 bity, ktoré sú pravdepodobne
súèas ou identifikátora. V nich sa skrývajú neznáme
parametre, dynamicky sa meniace v závislosti od textu
komentára. Preto som tieto bity jednoducho preskoèil a
na moje prekvapenie komentár zapísalo správne, teda tak,
že je èitate¾ný aj inými prehrávaèmi a editormi.
// prazdne bity
for i:= 1 to 10 do begin
null[i]:= #00;
end;
blockwrite(temp, null, sizeof(null));
Prázdne bity sú jednoduchou ochranou celého zápisu.
Dåžka je pravdepodobne pevne daná, ale správne pracuje aj
pri desiatich vo¾ných bitoch, ktoré sú uložené na konci popisu
ID3 TAG v2. Takto nám v doèasnom súbore vznikol popis
ID3 TAG v2, za ktorý je prekopírovaná „MP-trojka“.
//kopirovanie mp3 file
assignfile(f, filename);
reset(f, 1);
repeat
blockread(f, copy, sizeof(copy), read);
blockwrite(temp, copy, read, write);
until ((read= 0) or (read write));
closefile(f);
closefile(temp);
erase(f);
rename(temp, filename);
end;
Tu som mohol použi aj všeobecne známy príkaz Copy-
File, ktorý som zavrhol hneï na zaèiatku práce s ním. Po
prekopírovaní jadra MP3 do doèasného súboru sa skutoèný
súbor MP3 vymaže a ten doèasný sa premenuje na
názov originálu. Použitie procedúry vysvet¾ujem na tom
istom príklade ako v predchádzajúcej èasti, kde sme túto
tému zaèali rozobera .
procedure TForm1.Button1Click(Sender: TObject);
begin
if checkbox1.Checked= true then begin
clearTag2(edit1.text);
setTag2(edit11.text, edit10.text, edit9.text,
edit8.text, edit7.text, combobox1.text,
edit6.text, edit2.text, memo1.Lines.Text,
edit5.text, edit4.text, edit3.text, edit1.text);
end else clearTag2(edit1.text);
end;
Procedúra je spustená po kliknutí, resp. stlaèení tlaèidla
button1. Ak kontrola oznaèenia CheckBox1 bola úspešná,
je spustená èas rutiny, kde sú použité dve nami vytvorené
procedúry ClearTag2 a SetTag2. Mazanie neaktuálneho
popisu sme si ukázali minule a po dosadení vstupných
parametrov do procedúry zápisu vznikne takýto
(zobrazený) „chaos“. Ak CheckBox1 nie je oznaèený, to
znamená, že MP3 nebude nosite¾om nijakej informácie
ID3 TAG v2. Verím, že táto téma vás dostatoène zaujala a
nadobudnuté vedomosti pri èítaní tohto, ako aj predchádzajúcich
èlánkov využijete vo vašej programátorskej praxi
pri tvorení zaujímavého programu alebo komponentu pre
programovací jazyk Borland Delphi.
NABUDÚCE. Neviem, èi som si náhodou nezamenil
témy. Hneï pochopíte preèo. V nasledujúcej èasti sa dozviete
nieèo o práci so súbormi, ako ich kopírova , ako
èíta , ako zapisova , a ostatné operácie súvisiace s nimi.
Teraz si uvedomujem, že viac by sa hodila táto téma o
nieèo skôr ako zápis a èítanie ID3 TAG. Ale èo už teraz?
Prajem vám teda krásny zvyšok mesiaca.
Jozef KOZÁK ml.
12/2001 PC REVUE 143