Rotina que recupera informações no cabecalho de arquivos MP3 (nome do artista, nome da música, gênero, etc).

Procedure GetMp3Info(FileName:String; ResultInfo:TStrings); Type TId3Tag = packed record      TagId: array[1..3] of Char;      Title: array[1..30] of Char;      Artist: array[1..30] of Char;      Album: array[1..30] of Char;      Year: array[1..4] of Char;      Comment: array[1..29] of Char;      Track: Byte;      Genre: Byte;      end; 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 id3tag: Tid3tag;     mp3file: Tfilestream; Begin   mp3file := Tfilestream.create(FileName,fmOpenRead);   try     mp3file.position := mp3file.size-128;     mp3file.Read(id3tag,SizeOf(id3tag));     ResultInfo.BeginUpdate;     ResultInfo.Clear;     if id3Tag.TAGID='TAG' Then Begin        ResultInfo.Add('Title='+id3tag.title);        ResultInfo.Add('Artist='+id3tag.artist);        ResultInfo.Add('Album='+id3tag.album);        ResultInfo.Add('Year='+id3tag.year);        ResultInfo.Add('Comment='+id3tag.comment);        ResultInfo.Add('Genre='+Genres[id3tag.genre]);        ResultInfo.Add('Genre-ID='+inttostr(id3tag.genre));     End;     ResultInfo.EndUpdate;   finally     mp3file.free;   end; End; procedure TForm1.Button1Click(Sender: TObject); begin    GetMp3Info('c:\\temp\\teste.mp3',Memo1.Lines); end;

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: Delphi;
Data.........: 17/06/2002 09:19:12
Visualizado..: 754 vezes
Fonte........: AdeN Knowledge DB