Zna li neko kako mogu proveriti da li neka mp3 datoteka ima ID3 tag (verziju 1 ili 2), kako da citam podatke iz tagova i da pisem informacije u tagove. Samo Pascal kod.
MP3 tagovi
Zaključano
Zakačeno
Imas komponente za pustanje МP3 muzike (xmp3....) pa oni imaju mogucnost citanja tagova....
www.dv.co.yu/mpgsrcipt/mpgtools.htm
Tu imas Delphi sors ca citanje svega u vezi MP3...
Besplatno je..
Tu imas Delphi sors ca citanje svega u vezi MP3...
Besplatno je..
Potrudi se i skini veci broj kada to budes radio ima onih koji nisu bas jednostavni za upotrebu ali ima onih sa kojima je to proto ko pasilj!
Error Broken Link!!!
Zbilja bi mi te komponente koristile. Nasao sam neke ali su skupe (s srpske strane gledano...)
Zbilja bi mi te komponente koristile. Nasao sam neke ali su skupe (s srpske strane gledano...)
Potpis
http://www.activecollab.com - Alat za upravljanje projektima
covjek je malo permutovao slova
link je
http://www.dv.co.yu/mpgscript/mpgtools.htm
link je
http://www.dv.co.yu/mpgscript/mpgtools.htm
Potpis
:: Nemoj se svadjati sa budalom, ljudi cesto nece primjetiti razliku ::
To bi bilo to:
uses crt;
type id3_record = record
title, artist, album, year, comment, track, genre : string;
end;
procedure get_tag(f_name : string; var id3 : id3_record);
var i : file of byte;
x : byte;
tag : string;
begin tag := '';
assign(i,f_name);
reset(i);
seek(i,filesize(i) - 128);
repeat
read(i, x);
tag := tag + chr(x);
until eof(i);
close(i);
if copy(tag,1,3) = 'TAG' Then begin with id3 do begin
title := copy(tag,4,30);
artist := copy(tag,34,30);
album := copy(tag,64,30);
year := copy(tag,94,4);
comment := copy(tag,98,30);
if copy(comment,28,2) = '\0' then comment := copy(comment,1,28);
writeln(comment);
track := copy(tag,128,1);
genre := copy(tag,129,1);
end;
end else begin
writeln('Invalid Tag');
end;
end;
var tag : id3_Record;
begin clrscr;
get_tag('c:\3.dat',tag);
writeln(tag.title);
readln;
end.
uses crt;
type id3_record = record
title, artist, album, year, comment, track, genre : string;
end;
procedure get_tag(f_name : string; var id3 : id3_record);
var i : file of byte;
x : byte;
tag : string;
begin tag := '';
assign(i,f_name);
reset(i);
seek(i,filesize(i) - 128);
repeat
read(i, x);
tag := tag + chr(x);
until eof(i);
close(i);
if copy(tag,1,3) = 'TAG' Then begin with id3 do begin
title := copy(tag,4,30);
artist := copy(tag,34,30);
album := copy(tag,64,30);
year := copy(tag,94,4);
comment := copy(tag,98,30);
if copy(comment,28,2) = '\0' then comment := copy(comment,1,28);
writeln(comment);
track := copy(tag,128,1);
genre := copy(tag,129,1);
end;
end else begin
writeln('Invalid Tag');
end;
end;
var tag : id3_Record;
begin clrscr;
get_tag('c:\3.dat',tag);
writeln(tag.title);
readln;
end.
Potpis
kome nevalja zna đe su vrata
ID3 v1 sa nalazi na kraju fajla i fiksne duzine je od 128 karaktera od kojih je prva tri uvek rec 'TAG'. Polja su bila ranije fiksne duzine, ali je bilo i predloga da se zavrsavaju sa #0 pa da se raspodeli po potrebi.
ID3 v1.1 je uveo i track koji je (koliko se secam) uvek zadnja dva bajta.
ID3 v2.x se nalazi na pocetku i za svako polje uvodi poseban tag. Sa detaljima nisam upoznat.
Idi na neki delphi sajt npr www.torry.ru pa potraziodgovarajuce komponente/klase ili idi na google pa potrazi nesto na tu temu.
ID3 v1.1 je uveo i track koji je (koliko se secam) uvek zadnja dva bajta.
ID3 v2.x se nalazi na pocetku i za svako polje uvodi poseban tag. Sa detaljima nisam upoznat.
Idi na neki delphi sajt npr www.torry.ru pa potraziodgovarajuce komponente/klase ili idi na google pa potrazi nesto na tu temu.
Faul je napisao klase koje citaju ID3v1, ID3v2, MPEGAudio, WMA, OGG i APE tagove pa pogledajte te klase. Njegov sajt je www.jfaul.de, mada nisam siguran da se sa njega mogu downloadovati. Sigurno ih mozete skinuti sa torryja --> www.torry.net
Potpis
http://www.activecollab.com - Alat za upravljanje projektima