Hallo und vielen Dank für deine Antwort ...
diesen Teil hatte ich in der tat noch vergessen ... danke für den Denkanstoß!!!
Leider komme ich nun zu einem "Stream-Schreibfehler" ...
Code:
stream := TFileStream.Create(Datei,fmOpenRead or fmShareDenyWrite);
// ID3-Tag auslesen
Id3v2Tag := TId3v2Tag.Create;
Id3v2Tag.ReadFromStream(stream);
// an das Ende des Tags springen
if Not Id3v2Tag.exists then
stream.Seek(0, sobeginning)
else
stream.Seek(Id3v2Tag.size, soFromBeginning);
Id3v2Tag.Artist := Interpret;
Id3v2Tag.Title := Titel;
Id3v2Tag.Genre := Genre;
Id3v2Tag.Year := Jahr;
Id3v2Tag.Comment:= datetostr(datum)+' / '+timetostr(datum);
Id3v2Tag.WriteToStream(Stream);
stream.free;
Id3v2Tag.Free;