Länge einer mp3 Datei herausfinden

Hallo,

ich würde gerne die Länge einer mp3 Datei herausfinden mit folgendem Code

[code]var
sl: TStringList;
i,block, gesamt : integer;
length : integer;

pi: IFilePlaylistItem;

begin
sl := TStringList.Create;
pi := Factory.CreateFilePlaylistItem(‘C:\myfile.mp3’, [fitMMD, fitTags, fitDuration]);
length := iPlaylistitem(pi).GetEffectivePlaybackduration;
end.[/code]

Leider bekomme ich bei der letzten Zeile immer die Fehlermeldung Type mismatch. Weiß jemand was an der Syntax falsch ist?

length muss nicht als “integer” sondern als “single” deklariert sein (Sekunden mit Nachkommastellen).

Wenn du es in volle Sekunden (ab-)runden willst, schreibst du:

length := trunc(iPlaylistitem(pi).GetEffectivePlaybackduration);