Mediaplayer - 'Kein MCI-Gerät geöffnet'

[gmarts]

Habe mir gerade den Quelltext angeguckt.
Du stoppst den Mediaplayer, das OnNotify-Ereignis wird ausgelöst, welches den Player wieder zum Spielen/Anhalten bringt, doch dieser wird von dir nach dem Stop geschlossen. OnNotify wird zwar beim Stop ausgelöst, scheinbar aber erst nach dem close abgearbeitet. Deswegen die Fehlermeldung.

So gehts:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin

    If mediaplayer1.Mode=mpopen then
    begin
    if MediaPlayer1.Notify = True then MediaPlayer1.Play
    else MediaPlayer1.Stop;
    end;

end;

MfG GM