Einzelnen Beitrag anzeigen

Benutzerbild von GPRSNerd
GPRSNerd

Registriert seit: 30. Dez 2004
Ort: Ruhrpott
239 Beiträge
 
Delphi 10.4 Sydney
 
#2

Re: TJVID3v2 - richtige Zuordnung?

  Alt 12. Feb 2009, 19:42
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
Stefan
  Mit Zitat antworten Zitat