Problem mit TMediaPlayer

[Amateurprofi]

Ich habe ein Problem mit dem MediaPlayer.
Windows 7 - Delphi XE 2.
Ich habe ein Programm geschrieben, mit dem ich meine .mp3 abspiele.
Klappt auch in der Regel, aber bei einigen Dateien popt nach

Delphi-Quellcode:

Player.FileName:=Dsn;
Player.Open;
Player.Play;

ein Fenster (siehe Anhang) auf und die betreffende Datei wird nicht wiedergegeben.
Nachdem ich ca. 12000 .mp3's manuell überprüft habe, möchte ich die restlichen ca. 70000 .mp3's automatisch prüfen lassen.
Problem: Ich habe keine Vorstellung, wie ich erkennen kann, ob die .mp3 'ne Macke hat.
Mein Versuch, nach Player.Open oder auch nach Player.Play mit
Result:=not Assigned(Player.Display) or not Player.Display.Visible; schlägt fehl.
Hat jemand eine Idee, wie ich prüfen kann, ob die .mp3 abgespielt wird, oder nicht.

[jaenicke]

Du könntest nach einer kurzen Wartezeit State auf mpPlaying prüfen oder auf Position > 0.

Bist du sicher, dass die MP3 Datei das Problem ist? Der TMediaPlayer hat durchaus einige Probleme, z.B. mit manchen Dateien. Sinnvoller wäre z.B. die Verwendung der Bass DLL.

[Christian Seehase]

Moin Klaus,

das Problem hatte ich mit TMediaPlayer auch schon.
Als Abhilfe hatte ich mir dann die VLC-Player-API übersetzt.
Damit konnte ich dann die vom MP verschmähten Dateien abspielen.
Wenn ich mich recht entsinne, waren immer Dateien vom MP nicht
abspielbar, die bestimmte Metadaten enthielten, z.B., Cover.

[Gausi]

Zitat von jaenicke:

Bist du sicher, dass die MP3 Datei das Problem ist?

Sicher kann man da nicht sein, aber das ist sehr gut möglich. Bei Windows 7 und mp3 sollte man generell vorsichtig sein. Da waren z.B. mp3-Dateien mit dem ID3-Tag in Version 2.4 ein Problem. Diese Version wurde aber auch damals schon z.B. von iTunes genutzt. Den hat Windows nicht verstanden und beim Bearbeiten der Metadaten dann zusätzlich einen in Version 2.3 davor gepackt, sodass die vorher enthaltenen Metadaten auch für korrekt arbeitende Player und Tagger erstmal weg waren. Und wenn der 2.4er-Tag zu groß war (z.B. wegen Cover-Art), dann hat die Abspiel-Engine möglicherweise die Suche nach dem ersten MPEG-Header zu früh abgebrochen und die Datei als ungültig empfunden.

Oder kurz: die mp3s sind (wahrscheinlich) in Ordnung, die Macke liegt bei Windows.

Andere Verfahren (wie die genannte bass.dll) benötigen zwar etwas mehr Einarbeitung, sind aber definitiv sinnvoller als die TMediaPlayer-Komponente.

[jaenicke]

Zitat von Gausi:

Oder kurz: die mp3s sind (wahrscheinlich) in Ordnung, die Macke liegt bei Windows.

Das wollte ich damit sagen. Das ist wohl falsch rübergekommen.

[Gausi]

Du kannst ja mal die bereits als "fehlerhaft" erkannten Files checken, wie es da mit den ID3Tags aussieht. Wenn meine Vermutung richtig ist, sollte mit diesem Code als Versionsstring "2.4.0" ausgeben werden, und die Größe jeweils einen bestimmten Schwellenwert überschreiten. Der Test schlägt allerdings fehl, wenn Windows die Datei schon verpfuscht hat. Dann guck die Datei mal in einem Hex-Editor an und schau, ob der String "ID3" mehr als nur einmal vorkommt (und es dahinter so aussieht als stünden da Infos wie Titel oder Interpret). Falls ja, ist die Datei kaputt. Reparieren geht über "ID3Tag löschen" mit einem anständigen Tagger. Dann wird (vermutlich) der Windows-Murks vorne gelöscht, und der Original-Tag sollte wieder vorne stehen.

Delphi-Quellcode:

uses Mp3Files; // aus meiner AWB, https://github.com/DanielGausi/AudioWerkzeugeBibliothek

procedure TForm1.ShowInfo(aFile: String);
var
  mp3File: TMp3File;
begin
  mp3File := TMp3File.Create;
  try
    mp3File.ReadFromFile(aFile);
    memo1.Lines.Add(mp3File.ID3v2Tag.VersionString);
    memo1.Lines.Add(mp3File.ID3v2TagSize.ToString);
  finally
    mp3File.free;
  end;
end;

Falls das so ist, kannst du damit ggf. ein kleines Testprogramm schreiben, das dir die nicht abspielbaren Files auflistet. Die Tags von 2.4 nach 2.3 zu konvertieren ist zwar prinzipiell möglich (bis auf ggf. ein paar Ausnahme-Felder). Ob es dafür Tools gibt, weiß ich nicht. Evtl. kann Mp3Tag das.