Thema: Delphi Tag anlegen mit TJvID3v"

Einzelnen Beitrag anzeigen

Thanatos81
(Gast)

n/a Beiträge
 
#1

Tag anlegen mit TJvID3v"

  Alt 11. Jun 2006, 02:26
Guten Morgen zusammen!

Ich bin malm wider noch nicht im Bett, weil mich ein Problem ärgert... Und zwar möchte ich den ID3v2-Tag in einer MP3 ausfüllen.

Ist dieser bereits vorhanden, hab ich das auch schon hinbekommen... nur wenn der Tag komplett noch nicht existiert, bleibt das auch so .

Ich benutz die TJvID3v2-Kompo aus den jedis mit folgenden Code:
Delphi-Quellcode:
JvID3v21.FileName := path + name;

JvID3v21.Open;
JvID3v21.Erase;
JvID3v21.EnsureExists([fiTrackNum, fiAlbum, fiBand, fiTitle]);
      
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;
Und bevor jemand fragt... Ja, falls ein v2-Tag vorhanden ist, soll der gelöscht werden^^

Schönen Dank schonmal im Vorraus!

//Edit Ach ja, Jedis sind in der Version 3.20 installiert.
  Mit Zitat antworten Zitat