Einzelnen Beitrag anzeigen

Flom

Registriert seit: 19. Sep 2006
126 Beiträge
 
#10

Re: MediaPlayer wieder Freigeben

  Alt 23. Feb 2007, 11:27
so gausi klar ist die zeile quatsch ^^

Nur ich habe gerade raus gefunden durch rum fummeln das er die ID3V1 Einträge Speichert! Nur nicht die ID3v2 Einträge... nur warum?
Folgendes Benutze ich zum Speichern:
Delphi-Quellcode:
procedure TForm4.Button3Click(Sender: TObject);
begin

if Id3v1Tag.Tagexists = True then
begin
  Id3v1Tag.Title := Edit_Titel.Text;
  Id3v1Tag.Artist := Edit_Artist.Text;
  Id3v1Tag.Album := Edit_Album.Text;
  //Id3v1Tag.Comment := Edit_Comment.Text;
  Id3v1Tag.Genre := Edit_Genre.Text;
  Id3v1Tag.Track := Edit_ID.Text;
  Id3v1Tag.Year := Edit_Jahr.Text;
  // Tag in die Datei schreiben
  id3v1Tag.WriteToFile(Edit1.Text);
end;
///////////////////////////////////////////
if Id3v2Tag.exists = True then
begin
  Id3v2Tag.Title := Edit2_Titel.Text;
  Id3v2Tag.Artist := Edit2_Artist.Text;
  Id3v2Tag.Album := Edit2_Album.Text;
  //Id3v2Tag.Comment := Edit2_Comment.Text;
  Id3v2Tag.Genre := Edit2_Genre.Text;
  Id3v2Tag.Track := Edit2_ID.Text;
  Id3v2Tag.Year := Edit2_Jahr.Text;
  // Weitere Textframes setzen
  ID3v2Tag.Copyright := Edit2_Copyright.Text;
  ID3v2Tag.OriginalArtist := Edit2_OriginalArtist.Text;

  id3v2Tag.WriteToFile(Edit1.Text);
end;
close;
end;
zwecks media player: ich habs so gemacht das wenn jetzt auf Eintrag ändern geklickt wird automatisch der MP geschloßen wird also kanns so gesehen nicht mehr an ihm liegen.

Edit: bins WE über nicht da :/
Ein wahrhaft großer Mann wird weder einen Wurm zertreten noch vor dem Kaiser kriechen.

Benjamin Franklin
17.01.1706 - 17.04.1790
  Mit Zitat antworten Zitat