Проблема с Id3 тегами

  • Автор темы srvr4vr
  • Дата начала
S

srvr4vr

#1
читаю файл, смотрю теги таким вот образом:

Код:
type
TID3Tag = record
Title: string[90];
Name: string[30];
Artist: string[30];
Album: string[30];
Genre: string[40];
end;
function readID3Tag(FileName: string): TID3Tag;
const
Genres : array[0..146] 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',
'Alternative Rock','Bass','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 US','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',
'Psychedelic Rock','Symphonic Rock','Slow Rock','Big Band','Chorus',
'Easy Listening','Acoustic','Humour','Speech','Chanson','Opera',
'Chamber Music','Sonata','Symphony','Booty Bass','Primus','Porn Groove',
'Satire','Slow Jam','Club','Tango','Samba','Folklore','Ballad',
'Power Ballad','Rhytmic Soul','Freestyle','Duet','Punk Rock','Drum Solo',
'Acapella','Euro-House','Dance Hall','Goa','Drum & Bass','Club-House',
'Hardcore','Terror','Indie','BritPop','Negerpunk','Polsk Punk','Beat',
'Christian Gangsta','Heavy Metal','Black Metal','Crossover','Contemporary C',
'Christian Rock','Merengue','Salsa','Thrash Metal','Anime','JPop','SynthPop');
var
FS: TFileStream;
Buffer: array [1..128] of Char;
begin
FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
try
FS.Seek(-128, soFromEnd);
FS.Read(Buffer, 128);
with Result do
begin
Name	:= Copy(Buffer, 4, 30);
Artist := Copy(Buffer, 34, 30);
Album  := Copy(Buffer, 64, 30);
Genre  := Genres[Ord(Buffer[128])];
Title  := Artist +'-'+Name;
end;
finally
FS.Free;
end;
end;
на выходе в большинстве случаев получаю полную тарабанщину. устал бороться =(
 
B

Barmutik

#2
Если мне не изменяет память то формат тегов первой версии другой... где-то был код для их чтения .. если по прежнему это актуально...
 
S

srvr4vr

#3
Нет, уже не актуально, формат у первых тегов именно такой... просто Юникод ВНЕЗАПНО попортил все планы) но ничего, прикрутил и его, и второй формат.