Discussion :

[fred7]

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

[fred7]

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

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

(MP désigne le MediaPlayer)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

@+