Wie kann ich die Dauer aus einer mp3-Datei auslesen?

[100nF]

hi,

also ich denke, viel muss ich nicht mehr schreiben, denn der titel beinhaltet eigentlich schon alles...

ich arbeite nämlich an einem mp3Player, der selbstverständlich mp3-dateien abspielen kann. aber zuerst muss ich die informationen aus der datei bekommen, was ich mit der function FillID3TagInformation auch kann. man kann jedoch die dauer des tracks nicht auslesen.

Meine Frage: ist es irgendwie möglich, die dauer eines mp3Files auszulesen?

hier noch die function:

Delphi-Quellcode:

procedure FillID3TagInformation(mp3File:string; Title,Artist,Album,Year,Genre,Comment:TEdit);
begin
  fmp3:=TFileStream.Create(mp3File, fmOpenRead);
  try
    fmp3.position:=fmp3.size-128;
    fmp3.Read(ID3,SizeOf(ID3));
  finally
    fmp3.free;
  end;
            
 if ID3.Tag <> 'TAG' then begin
   Title.Text:='Unbekannt';
   Artist.Text:='Unbekannt';
   Album.Text:='Unbekannt';
   Year.Text:='Unbekannt';
   Genre.Text:='Unbekannt';
   Comment.Text:='Unbekannt';
 end else begin
   Title.Text:=ID3.Title;
   Artist.Text:=ID3.Artist;
   Album.Text:=ID3.Album;

   if ID3.Genre in [0..MaxID3Genre] then
     Genre.Text:=ID3Genre[ID3.Genre]
   else
     Genre.Text:=IntToStr(ID3.Genre);
   Comment.Text:=ID3.Comment
 end;

end;