Titel, Album, Interpret und Länge einer MP3 Datei auslesen

[Gausi]

Das steht in den Demos drin. Dafür haben die drei Klassen TMpegInfo, Id3v1Tag und TID3v2Tag die Methoden ReadfromStream und ReadFromFile.

Delphi-Quellcode:

  stream := TFileStream.Create('c:\MeinLied.mp3', fmOpenRead or fmShareDenyWrite);
  try
    Id3v2Tag.ReadFromStream(stream);
    // so geht das finden der Mpeg-Infos (für dauer, bitrate, ...) schneller
    if Not Id3v2Tag.exists then
      stream.Seek(0, sobeginning)
    else
      stream.Seek(Id3v2Tag.size, soFromBeginning);

    MpegInfo.LoadFromStream(Stream);
    Id3v1Tag.ReadFromStream(stream);
  finally
    stream.free;
  end;