Kein MCI-Gerät geöffnet - TMediaPlayer

[Johannes013]

Hi Leute!

bei folgender Anweisung bekomme ich den Fehler: Kein MCI-Gerät geöffnet.

Code:

MusicPlayer := TMediaPlayer.Create(Form1);
MusicPlayer.Parent := Form1;
MusicPlayer.FileName := 'menu.wav';
MusicPlayer.Play();

Das passiert nur bei Laufzeit, wenn die Komponente schon vorher da ist, gibts kein Fehler...

Dank im voraus, Johannes

[Klaus01]

Gab es da nicht auch ein MusicPlayer.open o.ä?

Grüße
Klaus

[Bummi]

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
 MusicPlayer : TMediaPlayer;
begin
MusicPlayer := TMediaPlayer.Create(self);// je nach wann und wie TForm2 erzeugt wird kann Form2 nil sein
MusicPlayer.Parent := Self;// s.0.
MusicPlayer.FileName := 'C:\Bummispicker\Wav_resource\4.wav';// voller Pfad
MusicPlayer.Open; // fehlte
MusicPlayer.Play();
end;

[Johannes013]

Ja danke es klappt!