WMA Tags lesen und SCHREIBEN

[Nils_13]

Wieso kann das nicht laufen ?
Ich verstehe dich nicht.

Delphi-Quellcode:

procedure TAudioFile.GetWMAInfo(filename:String);
var
  TagsData: PTagsData;
begin
  New(TagsData);
  try
    OpenWMAFile(filename, TagsData);
    fArtist    := TagsData.Author;
    fTitel     := TagsData.Title;
    fAlbum     := TagsData.Album;
    fGenre     := TagsData.Genre;
    fYear      := TagsData.Year;
    fTrack     := TagsData.Track;
    fKommentar := TagsData.Comments;
  finally
    DisPose(TagsData);
    FPfad      := filename;
    FOrdner    := ExtractFileDir(filename);
    FDateiname := filename;
  end;
end;

procedure TAudioFile.SaveWMAInfo(filename,a,b,c,d,e,f,g: String);
var
  TagsData: PTagsData;
begin
  New(TagsData);
  try
    TagsData.Title  := a;
    TagsData.Author := b;
    TagsData.Album  := c;
    TagsData.Genre  := d;
    TagsData.Year   := e;
    TagsData.Track  := f;
    TagsData.Comments := g;
    SaveWMAFile(TagsData);
  finally
    Dispose(TagsData);
  end;
end;