Question sur le TMediaPlayer

Question

J'ai un léger problème avec le composant TMediaPlayer.
Il ne peut charger qu'un seul fichier à la fois; or je voudrais qu'il lise tous les fichiers d'une liste sans s'arrêter entre chaque morceau. 

Existe-t-il une procédure pour charger plusieurs fichiers à la suite ?

cs_Nono40 · Answer

J'ai déjà programmé un truc de ce genre, il n'est pas possible d'envoyer plusieurs fichiers en même temps sur un seul MediaPlayer. Mais il est possible de les envoyer un par un dès que la précédent est terminé :
( les noms de fichiers sont stockés dans Memo1 )

procedure TForm1.btnRunClick(Sender: TObject);
Var EnCours:Integer;
begin
  For EnCours:=0 To Memo1.Lines.Count-1 Do
  Begin
    MediaPlayer1.FileName:=Memo1.Lines[EnCours];
    MediaPlayer1.Open;
    MediaPlayer1.Wait:=True;
    MediaPlayer1.Play;
    MediaPlayer1.Close;
  End;
end;

--- :sleepy)  Nono du Moulin  :sleepy) ---

cs_Bestiol · Answer

Il est également possible d'utiliser l'évènement OnNotify du composant...

Bonne prog' !
Bestiol.

cs_costello · Answer

Merci Nono40, mais j'avais déjà essayé de faire comme ça. Le but de ce médiaplayer était d'écouter de la musique en même temps qu'on écrivait; et dans ce cas la lecture de la musique bloque tout le programme....

Pour OnNotify, j'ai un peu de mal à l'utiliser: j'arrive à faire jouer 2 sons à la suite, mais après le lecteur s'arrête...

cs_Bestiol · Answer

Tu peux utiliser un autre thread...
Sinon, pour OnNotify, il faut en fait réinitialiser une variable à chaque fois que l'évènement est déclenché... Regarde dans l'aide, c'est expliqué !

Bonne prog' !
Bestiol.

cs_costello · Answer

Pour ceux que ça intéresse :

J'ai utilisé un DXTimer (c barbare je sais)
Une variable 'playing' booléenne publique
Quand on appuie sur 'Jouer' ça met 'playing' sur false.
Quand l'évènement OnTimer (intervalle 0) se produit : 

procedure TForm3.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin

  if playin = true then
  begin

    if MediaPlayer1.Mode = mpStopped then
    begin
      if ListBox1.Items.Count-1 > ListBox1.ItemIndex then
      begin
        ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
        MediaPlayer1.FileName := ListBox1.Items.Strings[ListBox1.ItemIndex];
        MediaPlayer1.Play
      end
      else MediaPlayer1.Close;
    end;
  end;

end;

Toonado · Answer

Bonjour, 

je suis d&#233;butant en Delphi et j'aimerais faire tourner un son en boucle. 

pour information j'utilise Delphi 7. Si quelqu'un a une solution pour moi, je le remercie d'avance.



bonne journ&#233;e

blueperfect · Answer

Tu peux aussi utiliser le TWindwosMediaPlayer, qui te propose ses collections, et notamment les playlist !

Question sur le TMediaPlayer

7 réponses

Votre réponse

Discussions similaires