Hi,
hier ist ein bisschen Code, den ich in einem Programm mit den
Jedi-Komponenten zum Schreiben von ID3v2-Tags benutze:
Delphi-Quellcode:
// Update tag data ID3v2
begin
JvId3v21.FileName := lFilename.caption;
JvId3v21.Open;
try
JvID3v21.Version := ive2_3; //immer v2.3 kodieren!!!
SetFirstOfList(JvID3v21.Texts.LeadArtist, e2Artist.Text);
JvID3v21.Texts.Album := e2Album.Text;
JvID3v21.Texts.Title := e2Title.Text;
JvID3v21.Texts.TrackNum := e2Track.Text;
JvID3v21.Texts.Year := StrToIntDef(e2Year.Text, 0);
SetFirstOfList(JvID3v21.Texts.ContentType, NiceGenreToGenre(cb2Genre.Text));
TJvID3ContentFrame.FindOrCreate(JvID3v21, fiComment).Text := m2Comment.Lines.Text;
SetFirstOfList(JvID3v21.Texts.Composer, e2Composer.Text);
SetFirstOfList(JvID3v21.Texts.OrigArtist, e2OrgArtist.Text);
JvID3v21.Texts.Copyright := e2Copyright.Text;
TJvID3URLUserFrame.FindOrCreate(JvID3v21, 0).URL := AnsiString(e2URL.Text);
JvID3v21.Texts.EncodedBy := e2EncodedBy.Text;
JvId3v21.commit;
finally
JvId3v21.close;
end;
end;
Gruß,
Stefan