Hallo,
Ich benutze zum Auslesen von Mp3 Tags die Id3 Lib von Muetze1.
Ich bin eigentlich sehr zufrieden damit, da sie die einzige ist welche mir die Daten liefern kann, die ich brauche.
Doch mir tut sich ein Problem auf:
Ich benutze diesen Code zum (Testweisen) Auslesen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Album,
Artist,
Genre,
Tracknum,
Title,
Year: String;
test: string;
time: integer;
fID3Class: TID3v2Class;
str: Tstringlist;
i:integer;
begin
fID3Class :=TID3v2Class.Create('c:\ns.mp3');
str :=Tstringlist.create;
For i := 0 To fID3Class.TagCount - 1 Do begin
if (fID3Class.Tags[i] is TTxxxTag) then
With ( fID3Class.Tags[i] As TTxxxTag ) Do
Begin
str.add(inttostr(i)+Text); //Artist
End;
end;
showmessage(str.text);
str.free;
fID3Class.Free;
end;
Ist kein schöner Code, soll er aber auch nicht sein, da ich verzweifelt bin und wenn alles funktioniert, schreibe ich ihn schöner.
Aber zum Problem:
Bei ihm befindet sich auf Tagcount 3(Ich glaube es war 3) das Genre, bei mir jedoch befindet sich(selbe Mp3 Datei!) etwas anderes auf diesem Tagcount. Damit noch nicht genug, bei mir wird alles ausgelesen bis eben auf das Genre. Irgendwie muss man doch da rankommen.
Das ganze macht mich deswegen so fertig, da mein Testcode seinem ziemlich gleicht aber unterschiedliche Ergebnisse liefert.
Ich hoffe ihr könnt mir helfen
Danke schonmal
Gruß,
Max