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

Тема в разделе "Delphi - Multimedia, Графика, Игры", создана пользователем srvr4vr, 23 ноя 2008.

  1. srvr4vr

    srvr4vr Гость

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

    Код (Text):
    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;
    на выходе в большинстве случаев получаю полную тарабанщину. устал бороться =(
     
  2. Barmutik

    Barmutik Гость

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

    srvr4vr Гость

    Нет, уже не актуально, формат у первых тегов именно такой... просто Юникод ВНЕЗАПНО попортил все планы) но ничего, прикрутил и его, и второй формат.
     
Загрузка...
Похожие Темы - Проблема Id3 тегами
  1. AgniXRudra
    Ответов:
    1
    Просмотров:
    10
  2. Zloikaktus
    Ответов:
    0
    Просмотров:
    14
  3. c0de3r
    Ответов:
    5
    Просмотров:
    134
  4. DobermannTT
    Ответов:
    10
    Просмотров:
    140
  5. SoulPaladin
    Ответов:
    4
    Просмотров:
    136

Поделиться этой страницей