Mp3FileUtils kann nicht kompiliert werden?

[NickPower]

Hi,
ich versuche ID3-Tags auszulesen. Darauf bin ich auf MP3FileUtils gestoßen. Binde ich die units ein und versuche es zu kopilieren, kommt bei ID3v2Frames immer die Fehlermeldung: "Zeile zu lang(mehr als 1023 Zeichen)". Dann kopier ich das in Word und wieder zurück und dann kommen da zwei Fehlermeldungen:

Code:

FT_UserTextFrame
);

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

Da kommt der [Fehler] Id3v2Frames.pas(34): ',' oder ')' erwartet, aber '=' gefunden.
Und es kommt noch ein Fehler:

Code:

            move(fData[start], tmp[1], alength);
            {$IFDEF UNICODE}
                result := UTF8ToString(tmp);    // Bugfix 03.2010: "result := "
            {$ELSE}
                result := UTF8Decode(tmp); // Deprecated in Delphi 2009
            {$ENDIF}

[Fehler] Id3v2Frames.pas(1124): Undefinierter Bezeichner: 'UTF8Decode'

Mit freundlichen Grüßen

[Bernhard Geyer]

Hast du evtl eine zu alte Delphi-Version die nicht unterstützt wird?

[NickPower]

Ich hab Delphi 5.
Kann das zu Problemen führen?

[Sir Rufo]

Zitat von NickPower:

Ich hab Delphi 5.
Kann das zu Problemen führen?

Auf der Website steht

Zitat:

Mp3FileUtils
Eine Klassensammlung zum Auslesen und Schreiben von diversen Informationen aus Mp3-Dateien mit Delphi. Die Klassen sind kompatibel zu Delphi 7 (evtl auch früher) bis Delphi 2010.

damit sollte das klar sein

[NickPower]

Zitat von Sir Rufo:

Zitat von NickPower:

Ich hab Delphi 5.
Kann das zu Problemen führen?

Auf der Website steht

Zitat:

Mp3FileUtils
Eine Klassensammlung zum Auslesen und Schreiben von diversen Informationen aus Mp3-Dateien mit Delphi. Die Klassen sind kompatibel zu Delphi 7 (evtl auch früher) bis Delphi 2010.

damit sollte das klar sein

Also könnte es sein?
Auf der Website steht noch

Zitat:

Je nach Stellung der Compilersschalter (in der Datei config.inc) werden für Delphi 2007 (oder früher) die TNT Unicode Controls benötigt.

Nur leider weiß ich nicht, was das ist, und wie man es einbindet.

[Sir Rufo]

TNT Unicode Controls

[Gausi]

Jep, mit Delphi 5 geht das nicht. Da konnten Aufzählungstypen noch nicht mit einem definierten Wert beginnen. Du kannst das ändern, indem du das "=2" dort weglässt, und bei den ganzen Const-Arrays, die auf diesem Typ basieren, vorher jeweils zwei Dummy-Werte einfügst.

Das hat mir auch mal jemand geschickt, muss mal schauen, ob ich das noch wiederfinde und häng das ggf. hier an.

Das UTF8Decode kannst du Quick&Dirty auch weglassen. Das führt dann dazu, dass bei geschätzt 0.1% aller mp3-Dateien gelegentlich etwas Zeichensalat ausgegeben wird. Das wird nämlich nur gebraucht, wenn der ID3Tag in der Version 2.4 vorliegt und dort dann als Encoding UTF8 verwendet wird. Version 2.4 ist generell sehr selten (wird u.a. bis Windows7 auch gar nicht vom Mediaplayer unterstützt, Win8 hab ich noch nicht getestet), und wie oft dann UTF8 verwendet wird, weiß ich nicht.

[NickPower]

Zitat von Gausi:

Jep, mit Delphi 5 geht das nicht. Da konnten Aufzählungstypen noch nicht mit einem definierten Wert beginnen. Du kannst das ändern, indem du das "=2" dort weglässt, und bei den ganzen Const-Arrays, die auf diesem Typ basieren, vorher jeweils zwei Dummy-Werte einfügst.

Das hat mir auch mal jemand geschickt, muss mal schauen, ob ich das noch wiederfinde und häng das ggf. hier an.

Das UTF8Decode kannst du Quick&Dirty auch weglassen. Das führt dann dazu, dass bei geschätzt 0.1% aller mp3-Dateien gelegentlich etwas Zeichensalat ausgegeben wird. Das wird nämlich nur gebraucht, wenn der ID3Tag in der Version 2.4 vorliegt und dort dann als Encoding UTF8 verwendet wird. Version 2.4 ist generell sehr selten (wird u.a. bis Windows7 auch gar nicht vom Mediaplayer unterstützt, Win8 hab ich noch nicht getestet), und wie oft dann UTF8 verwendet wird, weiß ich nicht.

Danke für deine Hilfe
Nur leider wieß ich nicht genau, was du meinst, da ich noch nicht so weit fortgeschritten bin im programmieren. Hilft es vielleicht auf Delphi 7 umzusteigen?
Es wäre natürlich toll, wenn du die Dateien findest und sie mir geben könntest

Mit freundlichen Grüßen

[Sir Rufo]

Einfach sowas

Delphi-Quellcode:

type
  TID3v2FrameVersions = (FV_2 = 2, FV_3, FV_4);

in sowas ändern

Delphi-Quellcode:

type
  TID3v2FrameVersions = (FV_0_dummy, FV_1_dummy, FV_2 {= 2}, FV_3, FV_4);

[Gausi]

Jep, aber der Typ wird halt noch bei Const-Arrays benutzt, daher ist das etwas mehr. Ich häng hier mal an, was mir Jens Wahl diesen Februar gemailt hat

Zitat:

da ich (privat) noch mit Delphi 5 arbeite, habe ich mir Deine Units entsprechend angepasst. In irgendeinem Delphi-Forum hatte ich mal auch noch einen Interessenten dafür gefunden, vielleicht kannst Du sie weitergeben (ist aber etwas dirty programmiert, nur damit es unter D5 läuft). Die Änderungen habe ich entsprechend gekennzeichnet.

Verwendung auf eigene Gefahr, wenn der da einen Trojaner eingebaut hat, kann ich nix dafür.