Ok danke
Nächstes Problem:
Delphi-Quellcode:
if (RBMusikJA.Checked = True) then
begin
FormSpiel4x3.MediaPlayer1.Close;
FormSpiel4x3.MediaPlayer1.FileName := FormSpiel4x3.OpenDialog1.FileName;
FormSpiel4x3.MediaPlayer1.Open;
FormSpiel4x3.TimerMusik.Enabled := True;
FormSpiel4x3.LabelMusik2.Caption := FormatDateTime('hh:nn:ss',FormSpiel4x3.MediaPlayer1.Length / 1000 / (24*60*60));
if (CBAutoPlay.Checked = True) then FormSpiel4x3.MediaPlayer1.Play;
end;
Musik öffnen klappt.
Nun soll er die Musik stoppen und die neu ausgewählte Musik ohne diesen Fehler abspielen:
"---------------------------
Benachrichtigung über Debugger-
Exception
---------------------------
Im Projekt Project1.exe ist eine
Exception der Klasse EMCIDeviceError aufgetreten. Meldung: 'No MCI device open'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Help
---------------------------"
Delphi-Quellcode:
procedure TFormSpiel4x3.ImageOrdnerClick(Sender: TObject);
begin
TimerMusik.Enabled := False;
LabelMusik2.Caption := '00:00:00';
MediaPlayer1.Stop;
MediaPlayer1.Eject;
MediaPlayer1.Close;
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
//MediaPlayer1.Play;
LabelMusik2.Caption := FormatDateTime('hh:nn:ss',FormSpiel.MediaPlayer1.Length / 1000 / (24*60*60));
TimerMusik.Enabled := True;
end;
end;
mit Play stürzt es genauso ab
Wo liegt der Fehler o.o ?