Mp3FileUtils

[Gausi]

MP3FileUtils, v0.6


Diese Unit liest aus einer MP3-Datei alle (?) gängigen Informationen aus. Wie bei vielen anderen auch wird der ID3v1-Tag gelesen, fast alle Teile des ID3v2-Tags und diverse Informationen über die Datei ansich, wie z.B. Bitrate und Spieldauer.

Download:

• Mp3FileUtils - Quellcode inkl. der Demoprogramme. Zip-Archiv, ca. 555kb
• Demos. - Komplilierte Demo-Programme zum Ausprobieren. Zip-Archiv, ca. 1.9mb
• Zum Thema Unsynchronisation: "Das Gewitterrätsel - Reloaded" (das war mal eine Aufwärmfrage bei einem Gewinnspiel in der Entwickler-Ecke) (Version 1, Version 2) - Wo war das Gewitter? (Tip: beide Varianten mit dem VLC abspielen und am Scrollbalken spielen )

Änderungen in 0.6:

• Methoden SetRating und SetPersonalPlayCounter zusammengefasst zu SetRatingAndCounter. Der Code in den eigenen Anwendungen muss da ggf. angepasst werden
• Unterstützung von "Private Frames"
• Erkennung des VBRI-Header
• ein paar neue Genres in der Genre-Liste für ID3v1
• neue Methoden Get/SetUserText, GetAllUsertextFrames
• ID3v2Tag.ReadfromStream schneller: Tag wird zuerst komplett geladen, aus dem Memorystream dann die Einzelframes
• Bugfix: Korrektes Lesen von UTF8-kodierten Textframes mit Delphi 2009
• Bugfix: ExtendedHeader-Größe wurde falsch interpretiert
• Bugfix: User-definierte Textframes (TXXX) haben eine andere Struktur als normale Textframes
• Bugfix: Typ-Gemisch bei GetFrameLength behoben

Folgendes leisten die in dieser Unit implementierten Klassen:

1. TID3v1Tag:
   • Lesen und Schreiben des ID3v1-Tags
   • Unterscheidung von v1- und v1.1-Tags
2. TMpegInfo:
   • Lesen/Berechnen der MPEG-Informationen eines mp3-Files - z.B. Bitrate, Channelmode, Samplerate, vbr/cbr, Dauer
   • Schnelles Ermitteln der Daten: Auch bei vbr wird die Spieldauer (fast) immer korrekt ermittelt, ohne die ganze Datei lesen zu müssen
3. TID3v2Tag:
   • Lesen und Schreiben des ID3v2-Tags
   • Unterstützung aller existierenden Versionen: v2.2, v2.3 und v2.4
   • Unterstützung der Standard-Frames wie Titel, Artist, Album
   • Unterstützung einiger weiterer Text-Frames wie orig. Artist, Composer, Mediatype, Encoder
   • Lesen und schreiben von Lyrics, Bildern, Bewertungen, URLs
   • Lesen und schreiben beliebiger Daten
   • Unterstützung von Unsynchronisation, GroupIDs und Datalength-Bytes
   • Unterstützung von Unicode
   • Unbekannte Frames (~ Informationsfelder) im Tag bleiben erhalten

Für Details verweise ich auf die beiliegende Dokumentation und die verschiedenen Demoprojekte.

Evtl. benötigte Zusatzkomponenten/Units:
Nur für Delphi 2007 oder früher. Verwendung kann in der Datei Config.inc geändert werden.

• TntWare Delphi Unicode Controls
  Download unter: http://www.tntware.com/delphicontrols/unicode/

Für Fehlermeldungen oder Codeoptimierungen bin ich jederzeit offen - hier im Thread, per PN oder per Mail.

Edit: Text an die neue Version angepasst.

[Gausi]

Hm, meine Unit sagt mir bei diesem Link auch 4:30 (bzw. 271 sec, aber ich weiß da grade nicht genau, wie genau die Millisekunden gerundet werden. ) Aber: die sind nicht 320kbit/s kodiert, sondern mit einer variablen Bitrate. Werden bei dir auch mit den originalen Versionen fehlerhafte Infos ausgegeben, oder liegt das an deiner Modifikation?

Auch die anderen Dateien, die du in der Mail verlinkt hast, werden sowohl in meinem Player, als auch in dem Testprogramm richtig erkannt. Mit einer einzigen Ausnahme. Und da steckt kein Xing-Header drin, sondern ein VBRI-Header, der mir bisher nicht bekannt ist. In Muetze1's Lib wird der wohl erkannt und verarbeitet), ich werde mich da mal schlau machen, wie das Ding funktioniert.

[Muetze1]

Ich habe mich damals auf diesen Artikel gestützt und das SDK vom Fraunhofer IIS, da der VBRI Tag von deren Encodern kommt.

[SearchBot]

Ich weiß jetzt nicht, ob meine Modifikation daran schuld ist - den Originalcode kann ich in Delphi4 nicht nutzen, weil der Compiler keine Mengen mit Initialwert (hier fett) kennt (also zB den Typ TID3v2FrameVersions = (FV_2 = 2, FV_3, FV_4);), darum hab ich dies Ding einfach erweitert, und dabei warscheinlich kaputtgedacht (aber wie hätte ich das sonst auf FV_2=2 bringen sollen? ...

Die Bitraten hat mir WinXp beim Draufzeigen auf das Mp3 gezeigt, ob variabel oder nicht hat mir Windows nicht angezeigt ;(

Hier meine Mods für Delphi4 angehängt (basiert auf der v0.4):

[himitsu]

TID3v2FrameVersions = (FV_dummy0, FV_dummy1, FV_2, FV_3, FV_4);

[Satty67]

Zitat von himitsu:

TID3v2FrameVersions = (FV_dummy0, FV_dummy1, FV_2, FV_3, FV_4);

Funktioniert nicht, hatte auch versucht die MP3FileUtils auf D5 so anzupassen. Da wird auch noch die größe der Aufzählung irgendwo abgefragt... ist nur schon zu lange her und der Code liegt daheim irgenwo rum

Aber von Dir kam in einem anderen Thread ein Vorschlag der funktioniert:

FV_2, FV_2 etc. als Konstanten deklarieren und TID3v2FrameVersions als Word oder Byte...

[Gausi]

@muetze1: Danke, werde mir das mal anschauen. Der Herr Gugl hat mir die Seite auch schon empfohlen.

@TID3v2FrameVersions: Daran dürfte die falsche Längenerkennung aber nicht liegen. Die Dauer hat ja mit dem ID3-Tag nichts zu tun. Was da genau schief geht, kann ich mangels vorhandener D4/D5-Installation leider nicht sagen.

[himitsu]

eventuell sind dann die Größen einiger Typen unterschiedlich, weßhalb dann was nicht mehr richtig gelesen wird?

von der Definition her und unter ignorieren der Dummy-Werte ist beides eigentlich identisch

Delphi-Quellcode:

TID3v2FrameVersions = (FV_2=2, FV_3, FV_4);
TID3v2FrameVersions = (FV_dummy0, FV_dummy1, FV_2, FV_3, FV_4);

Jetzt kann nur noch des/der Enums und Recordausrichtung unterschiedlich sein.

[Satty67]

gleich ein paar Zeilen drunter wird bei der Dummy-Declarierung hier gemeckert:
const TFrameFlagValues : Array [TID3v2FrameVersions] of Array [TFrameFlags] of Byte = Man muss halt mehr anpassen. Das setzen der Dummys alleine reicht nicht aus.

[himitsu]

joar, entweder noch 2 Dummy Bytes hinten mit rein, oder besser noch

const TFrameFlagValues : Array [FV_2..FV_4]

[Satty67]

Wird aber als [0..2] gewertet und original Deklaration als [2..4]?

Naja...egal anpassen an Delphi5 (und wohl auch 3/4) geht, man muss halt etwas Handarbeit investieren.

€: Die aktuelle Id3v2Frames.pas ist nicht CR+LF kodiert?