Lecture répétée avec le composant TMediaPlayer

Bonjours,

Je cherche comment faire pour que le mediaplayer de delphi recommence à lire la piste audio une fois qu'il est arrivé à la fin.

merci

Ca y est j'ai résolu mon probléme. J'avoue j'aurait peut être dû attendre avant de crier au secour! :roll:

bref voilà ma solution (peut être pas la meilleur) pour ceux que ça interesse:

(MP désigne le MediaPlayer)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

var Form1: TForm1; loop : boolean; implementation   {$R *.dfm}   procedure TForm1.mpNotify(Sender: TObject); begin if (Mp.NotifyValue = nvSuccessful) and (Loop=true) then begin Mp.Play; Mp.Notify := true; end; end;   procedure TForm1.lectureClick(Sender: TObject); begin Loop := true; mp.FileName := ('c:\a.mp3'); mp.Open ; Mp.Play; Mp.Notify := true; end;   procedure TForm1.stopClick(Sender: TObject); begin loop := false; mp.Close ; end;   end.

---

@+ :king: