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;
The angels have the phone box.