Hallo Gausi,
es tut mir wirklich leid!
Der Fehler lag bei mir!
Ich hatte gerade in deinen Demos nachgeschaut und da waren die Anzeigen richtig. Also musste es bei mir liegen.
Im Zuge von "Aufräumaktionen" in meinem Code vor ca. 4 Wochen hatte ich dabei an 2 Stellen die Reihenfolge vertauscht gehabt.
Delphi-Quellcode:
Id3v2Tag.ReadFromStream(stream); // <= das hatte ich direkt vor "MpegInfo.LoadFromStream(stream)" stehen und deswegen war bei mir der Fehler...
// an das Ende des Tags springen
if not Id3v2Tag.exists then
stream.Seek(0, sobeginning)
else stream.Seek(Id3v2Tag.size, soFromBeginning);
MpegInfo.LoadFromStream(stream);
stream.Free;
Bitte sieh mir meine nicht vollständige Überprüfung meines Codes nach.
Danke!
Ich wünsche allen ein schönes Wochenende!