Einzelnen Beitrag anzeigen

Benutzerbild von gmarts
gmarts

Registriert seit: 4. Apr 2004
Ort: Templin
290 Beiträge
 
Delphi 6 Enterprise
 
#13

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

  Alt 1. Sep 2004, 18:27
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
procedure TForm1.Button1Click(Sender: TObject);
begin
button1.Click;
end;
  Mit Zitat antworten Zitat