Para obtener información (título album, artista, año publicación, género, ...) de un fichero MP3, utilizaremos el siguiente código:

type
  TID3Tag = record
    ID:string[3];
    Titel:string[30];
    Artist:string[30];
    Album:string[30];
    Year:string[4];
    Comment:string[30];
    Genre:byte;
  end;

var
  ID3Tag:TID3Tag;


procedure Lese_ID3Tag(Filename:string);
var
  Buffer:array[1..128] of char;
  F:File;
begin
  AssignFile(F, Filename);
  Reset(F,1);
  Seek(F,FileSize(F)-128);
  BlockRead(F, Buffer, SizeOf(Buffer));
  CloseFile(F);
  with ID3Tag do begin
    ID:=copy(Buffer,1,3);
    Titel:=copy(Buffer,4,30);
    Artist:=copy(Buffer,34,30);
    Album:=copy(Buffer,64,30);
    Year:=copy(Buffer,94,4);
    Comment:=copy(Buffer,98,30);
    Genre:=ord(Buffer[128]);
  end;
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i : integer;
  titulo : string;
  artista : string;
  album : string;
begin
  if OpenDialog1.Execute then
  begin
    for i := 0 to OpenDialog1.Files.Count - 1 do
    begin
      Lese_ID3Tag(OpenDialog1.Files.Strings[i]);
      //showmessage(id3tag.ID);
      titulo := id3tag.Titel;
      artista := id3tag.Artist;
      album := id3tag.Album;
      showmessage(titulo + ' - ' + artista + ' - ' + album);
      //showmessage(id3tag.Year);
      //showmessage(id3tag.Comment);
      //showmessage(id3tag.Genre);
    end;
  end;

Publicado el: 2003-09-17