Problem Mit MediaPlayer

[citybreaker]

Hallo!

Wenn ich Compile und der MediaPlayer den Sound
abspielen soll kommt immer dierekt folgende Fehlermeldung.

Zitat:

Projekt Start.exe raised exception class EMCIDeviceError with
message 'No MCI device open'. Process stopped.
Use step or retun to cotinue.

Ich hab folgenden Code verwendet.

Code:

procedure TForm1.FormActivate(Sender: TObject);
begin
  MediaPlayer.AutoOpen := true;
  MediaPlayer.FileName := 'start.mid';
  MediaPlayer.Play;
end;

[ATwardz]

Hi,

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject); 
begin
  Mediaplayer.open; 
  MediaPlayer.AutoOpen := true; 
  MediaPlayer.FileName := 'start.mid'; 
  MediaPlayer.Play; 
end;

Das müsste Das Problem lösen!

@wardz

[edit=Daniel B]Delphi-Tags eingefügt. Mfg, Daniel B[/edit]

[citybreaker]

Ne tuts aber nicht.
Folgender Error erscheint:

Zitat:

Projekt Start.exe raised exception class EMCIDeviceError with
message 'Kann keinen Gerätetyp aus der angegebenen Dateinamen-
erweiterung ermitteln'. Process stopped.
Use step or retun to cotinue.

[Gandalfus]

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject); 
begin 
  MediaPlayer.FileName := 'start.mid'; 
  Mediaplayer.open; 
  MediaPlayer.Play; 
end;

[fkerber]

Hi!

Du kannst Dateien mit der Endung *.mid schon normal ausführen, oder?

Weil da steht ja, dass er er kann keine Gerät für die Dateiendung finden.

Vielleicht irre ich mich, aber war so ein Gedanke!

ciao fkerber

[citybreaker]

Zitat von Gandalfus:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject); 
begin 
  MediaPlayer.FileName := 'start.mid'; 
  Mediaplayer.open; 
  MediaPlayer.Play; 
end;

Das klappt wunderbar! Danke!