Thema: Delphi Tag anlegen mit TJvID3v"

Einzelnen Beitrag anzeigen

Thanatos81
(Gast)

n/a Beiträge
 
#7

Re: Tag anlegen mit TJvID3v"

  Alt 21. Jun 2006, 23:13
So, da bin ich wieder. Dank nem Kumpel konnte ich das Problem lösen:

Delphi-Quellcode:
JvID3v21.FileName := path + name;

JvID3v21.Open;
JvID3v21.Erase;
//JvID3v21.EnsureExists([fiTrackNum, fiAlbum, fiBand, fiTitle]); ersetzen durch:
JvID3v21.Header.ChangeToVersion(ive2_2);
     
JvID3v21.Texts.TrackNum := formatFloat('000', i + 1);
JvID3v21.Texts.Album := album;
JvID3v21.Texts.Band := interpret;
JvID3v21.Texts.Title := Copy(name, Pos('-', name) + 2, Pos('-', name) - Pos('.', name));

JvID3v21.Commit;
JvID3v21.Close;
Danke trotzdem an alle, die gepostet haben!
  Mit Zitat antworten Zitat