Bonjour,

Aprés avoir récupéré un chifre rentré par l'utilisateur, je souhaiterais lancer un son x fois (suivant le nombre entré auparavant).
J'utilise le composant de Delphi 6 MediaPlayer, mais je ne vois pas comment faire.
Aussi j'ai deux RadioButton que j'ai codé ainsi :

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
 
procedure TForm1.Lecteur;
begin
if RadioBtmont4s.Checked then
        begin
            MediaPlayer1.FileName := 'C:\Sons\MONTE.WAV';
            MediaPlayer1.Open;
            MediaPlayer1.StartPos:=0;       // Joue 4s du morceau WAV
            MediaPlayer1.EndPos:=4000;
            MediaPlayer1.Play;
            Arretautorise := true;  // evite un bug si nous appuyons sur arreter
                                  // alors q'aucun son WAV n'a été lancé
        end;
 
        if RadioBtmont8s.Checked then
        begin
            MediaPlayer1.FileName := 'C:\Sons\MONTE.WAV';
            MediaPlayer1.Open;
            MediaPlayer1.StartPos:=0;       // Joue 8s du morceau WAV
            MediaPlayer1.EndPos:=8000;
            MediaPlayer1.Play;
            Arretautorise := true;
 
procedure TForm1.btArreterClick(Sender: TObject);
begin
    if Arretautorise then
    begin
        MediaPlayer1.Stop;
    end;
Merci d'avance pour votre aide.