ID3v2 wird nicht Ausgeführt - warum?

[Hawkeye219]

Natürlich funktioniert es - wenn die Dateien im aktuellen Verzeichnis liegen. TSearchRec enthält in der Eigenschaft .Name den Dateinamen inklusive Extension, nicht aber einen Verzeichnisanteil.

Ändere den Quelltext mal wie folgt ab:

Delphi-Quellcode:

...
SetCurrentDir ('C:\');  // neu
if FindFirst(dir+'\*.mp3', faAnyFile, sr) = 0 then begin
  repeat
    if ReadID3v2Tag(sr.Name, lTitle, lArtist, lAlbum, lYear, lComment, lTrackNo) then begin
...

Die .mp3-Dateien sollten weiterhin gefunden werden, da FindFirst() eine Verzeichnisangabe erhält. Das Auslesen der ID3-Tags sollte aber nicht mehr funktionieren, weil alle Dateien im aktuellen Verzeichnis (hier C:\) gesucht werden.

Gruß Hawkeye