Lire mp3 en boucleRésolu/Fermé

Question

Bonjour,

Je code en ce moment une petite interface avec des forms, et afin d'egayer tout cela, j'ai voulu y insérer la lecture d'un mp3 ( non controlable par l'utilisateur), cela fonctionne sans problème . Je souhaiterais maintenant que cette mp3 soit lue en boucle et à l'infinie.
Ayant consulté l'aide delphi avant de me rendre ici, jai cru comprendrer que la méthode "Rewind" du composant TMediaplayer, permettais de revenir aqu début du morceau en cours, j'y aurais ensuite relancer une lecture, bref......

Je trouve que ce genre de boucle est un peu une bidouille, je souhaitais savoir si il y avais pas un moyen "propre" de lire le fichier en boucle et à l'infinie ( jusqu'a la fin du programme) !

Merci à tous
----( | TanK | )----

japee · Accepted Answer

Salut,

Tout se passe dans l'évènement OnNotifiy du MediaPlayer.
Dans le cas d'une lecture en boucle sans intervention de l'usager, c'est très simple à mettre en oeuvre.
Et ça donne :

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if MediaPlayer1.Mode =  mpStopped  then 
    MediaPlayer1.Play;
    // ou toute autre procedure pour lire le morceau
  Notify : = True;   // on réinitialise pour signaler la prochaine modification de Mode
end;

Bonne prog'

Tank01 · Answer

Je teste ca de ce pas et te répond !!

Merci

----( | TanK | )----

Tank01 · Answer

Qu'est ce que le notify:= true??? je dois le déclarer en global ???

----( | TanK | )----

Tank01 · Answer

Excuse moi pour ma question précédente, il fallais mattre Mediaplyer1.notify, pas d'erreur de compil, mais le son ne se lit pas en boucle ! :(
----( | TanK | )----

japee · Answer

Salut,


Ben, alors là...

Je pensais maîtriser le sujet, je m'aperçois qu'il va falloir que je me replonge dans l'étude du TMediaPlayer. 
Je passe donc la main...
En attendant essaye ça , mais ça ne me plait pas trop, je sens un risque de plantage :



procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  with Sender as TMediaPlayer do
    if Position = Length then
      Play;
end;


A protéger dans un bloc try..except ?


Bonne prog'

rcampus · Answer

merci pour votre aide

Nicolas___ · Answer

archéologue ?

Lire mp3 en boucle

7 réponses

Discussions similaires