WMA Tags lesen und SCHREIBEN

[EWeiss]

Zitat von 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;

Die Datei die du mir geschickt hast kann nicht laufen siehe Wma.JPG
Du kannst bei Jahr keine Strings addieren und dann ins WMA Format schreiben.
Das verursacht beim einladen einen AV.

Jahr ist ein numerischer wert kein string.
Das selbe gilt für Track

gruß

EDIT: Alle Dateien von Windows habe ich getestet (die sich im system befinden)
Alle aber auch alle, funktionieren einwandfrei ohne Fehler.
Kann es sein das du in die Datei schreibst während sie am laufen ist?