Servus,
ich bin grad dabei ein kleines MP3-Verwaltungsprogramm mit eingebauter Abspielfunktion zu erstellen. Dabei hab ich versucht mit dem TMediaplayer eine MP3-Datei abzuspielen.
Testweise hab ich mal den Mediaplayer mit einer Windowseigenen Wav (media\notify.wav) abgespielt - Alles in Ordnung. Wenn ich aber in den Filename ein (gültiges und voll funktionsfähiges) MP3-Musikstück einfüge, dann startet der Mediaplayer schon von Haus aus Disabled und wenn ich mit mpPlayer.Open öffne, dann bekomm ich den Fehler:
Benachrichtigung über Debugger-Exception
Im Projekt mp3.exe ist eine Exception der Klasse EMCIDeviceError mit der Meldung 'Fehler beim Starten von MCI.' aufgetreten.
bzw. dann im Programm:
Fehler beim Starten von MCI.
Hier der Aufruf über den OpenDialog opFile:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| if opFile.Execute(self.handle) then begin
screen.Cursor := crHourGlass;
SetLength(asTracks,opFile.Files.Count);
for i := 0 to opFile.Files.Count-1 do begin
asTracks[i] := opFile.Files.Strings[i];
end;
end;
screen.Cursor := crDefault;
mpPlayer.FileName := asTracks[0];
mpPlayer.Open;
mpPlayer.Play; |
(asTracks ist ein Stringarray in dem ich alle gefundenen MP3s speichere)
Und der Vollständigkeit halber die Einstellungen vom Mediaplayer im Objektinspektor:
- AutoEnable: True
- AutoOpen: False
- AutoRewind: True
- DeviceType: dtAutoSelect
- Enabled: True
- Shareable: False
- Visible: False
Und es geht und geht nicht...
Jetzt meine Frage an die Experten unter euch: Wie bring ich das Teil zum Laufen?
Danke im Voraus für eure Hilfe,
Markus
