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

[WeTec]

hm, bringt auch nix.
aber brauch ich ja eigentlich nicht, da ich ja mit Notify eine Endlosschleife habe. und wenn der Clip fertig abgespielt ist, stopt er und spielt neu ab.

[WeTec]

anbei mal ein kleines testprog, um das ganze zu verdeutlichen.
(siehe Problem oben^^)

danke fürs angucken

[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

[WeTec]

Moment, Moment!
du schreibst:

Zitat:

OnNotify wird zwar beim Stop ausgelöst, scheinbar aber erst nach dem close abgearbeitet.

Demnach bringt der eben gepostete Code aber nix mehr, weil ja wie gesagt der MPlayer erst geschlossen wird und dann das OnNotify abgearbeitet wird.

Code:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin

    If mediaplayer1.Mode=mpopen then
    ...

und genau das ist bei mir auch passiert (mit deinem Code).

Grüße, WeTec

[WeTec]

Hat denn keiner ne Idee?

[Flax]

In ein Notify event ein Stop, Close oder sonst sowas einzubauen ist auch fraglich! Das könnte auch Probleme machen.

Vielleicht geht das?

Delphi-Quellcode:

    If Mediaplayer1.Mode = mpPlaying then
    begin
      with MediaPlayer1 do
      begin
        Notify := False;
        Stop;
        //showmessage('Mediaplayer wird geschlossen');
        Application.ProcessMessages;  // NEU
        Sleep(1);  // NEU
        Application.ProcessMessages;  // NEU
        Close;
      end;
    end;

Der MediaPlayer ist auch nicht so dolle

[Flax]

Hab mir auch beispiel angeschaut.

Das Problem ist bei:

Delphi-Quellcode:

..

procedure TForm1.FormCreate(Sender: TObject);
begin
    with MediaPlayer1 do
    begin
      DeviceType := dtAVIVideo;
      FileName := 'ykohl.avi';
      Open;
      //Play; // Nein ! Löst Problem aus hier! Das ist Mediaplayer nicht mehr richtig ansprechbar!
      Notify := True;
    end;
end;

..

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  MediaPlayer1.Rewind;
  MediaPlayer1.Notify := True;
  // Play löst das Problem aus. Danach ist der Player nicht mehr richtig ansprechbar per Schalter und 
  // sonstigen Programmcode.
  MediaPlayer1.Play; // <- Problem
end;

Lösung:
- anderen Player benutzen!
- oder einen Thread schreiben der das Kontrolliert!
- weiter versuchen es doch zum laufen zu bekommen

[WeTec]

Jo, danke für die Antworten.

ich hab letztens WinXP SP2 installiert, und als ich das progie wieder rausgekramt habe, hat es auf einmal funktioniert. hatte vorher kein SP2. vieleicht lag es ja daran.

gruß an alle DPler
WeTec

[Flax]

Ja daas muss man wissen! Mit WinXP SP2 wird auch plötzlich ImageListen Darstellung verändert.