TMediaPlayer Loop

[HolgerX]

Hmm..

(OK, Hintern hinter her tragen )

So gehts bei D6:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
var
  MP : TMediaPlayer; 
begin
  MP := TMediaPlayer(Sender);

  if (MP.Mode = mpStopped) and (MP.Position = MP.Length) then  //abfrage ob der Player beim Ende ist
  begin
    MP.Open;
    MP.Play;
  end;
  { Beachten Sie, daß die Eigenschaft Notify auf True gesetzt werden muß, }
  { damit bei der nächsten Modusänderung }
  { eine Benachrichtigung erfolgt. }
  MP.Notify := True;
end;

Wenn der Player am Ende angekommen ist und dort Stopt, wird OnNotify aufgerufen...
Damit dies nur beim Erreichen des Ende zu einem Neustart kommt, dort die Position abfragen.
Da bei mir bei MP.End immer 0 steht, mache ich das mit MP.Length.

Der '{Beachten...}' Kommentar kommt aus dem D6 Beispiel-Src...