Sehr großes Problem mit den verschiedenen Audiotags

[Nils_13]

Der Code ist bisher über 2742 Zeilen lang. Aber wie würdest du denn dann die Tags auslesen ?

Bisher mach ich das so:

Delphi-Quellcode:

if fFiles[playindex].Endung = '.mp3' then              <--
begin
  PlayFile(playindex);
  with fFiles[playindex] do    <--
  begin
    s := Artist + ' - ' + Titel + ' [' + trim(DurationMinSec(IntToStr(GetSongLength))) + ']';
    lLauftext.Text    := s;
    lLauftext.Active  := True;
    lLauftext.Transparent := True;
    Application.Title := s;
   end;
   pause             := True;
end;