Thema: Delphi Id3 Tags, Muetze1's Lib

Einzelnen Beitrag anzeigen

Prototypjack

Registriert seit: 2. Feb 2003
611 Beiträge
 
Delphi 2009 Professional
 
#1

Id3 Tags, Muetze1's Lib

  Alt 7. Jan 2006, 15:40
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
Max
„If you have any great suggestions, feel free to mail me, and I'll probably feel free to ignore you.“ . Linus Torvalds
  Mit Zitat antworten Zitat