listbox media player

Question

bonsoir les developpeur!!!!

Voila j'ai un petit souci!!!! j'ai cr&#233;er un code qui importe mes musiques dans un listbox, je clique sur lecture la musique tourne des la musique finis &#231;a passe a l'autre et je voudrais rajouter une fonction quand je clique sur un bouton la musioque d'aperes passe 

merci d'avance

Francky23012301 · Answer

Salut,

tu dois faire une boucle avec for et les items de ta listbox.

A+

f0xi · Answer

exemple : procedure NextTrack; var index := integer; begin index := listbox1.itemindex + 1; if index = listbox1.count then listbox1.itemindex := 0 else listbox1.itemindex := index PlayTrack; end; procedure PrecTrack; var index := integer; begin index := listbox1.itemindex - 1; if index < 0 then listbox1.itemindex := listbox1.count - 1 else listbox1.itemindex := index; PlayTrack; end; procedure PlayTrack; var track : string; begin track := listbox1.items[listbox1.itemindex]; if (FileExists(track)) and (track <> player.file) then begin player.file := track; player.load; player.play; end; end;

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

guigui265 · Answer

lorsque je tape la procedure playtrack, pourquoi est ce que on m'affiche "impossible d'invoquer l'ach&#232;vement de code, du fait d'erreurs dans le code source"
guillaume

Cirec · Answer

Salut,
@ Guillaume, c'est parce que tu as des erreurs dans le code qui se trouve avant. Si c'est egalement les procedures de f0xi il te faut soit d&#233;clarer la procedure PlayTrack avant PrecTrack et NextTrack soit les r&#233;f&#233;rencer dans la section Interface de ton unit&#233;.
Car les procedures PrecTrack et NextTrack font appel &#224; PlayTrack qui n'est pas encore d&#233;clarer.

Les procedures de f0xi ne sont qu'un exemple elles sont sorties de leurs contexte
Donc pour pouvoir les utiliser plainement il faut faire :

type
  TForm1 =   class (TForm)
    ListBox1 : TListBox;
    procedure NextTrack;
    procedure PrecTrack;
    procedure PlayTrack;
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
  end;

Implementation

procedure TForm1.NextTrack;
var index : = integer;
begin
   index :=  listbox1.itemindex + 1;
    if  index  = listbox1.count then listbox1.itemindex :=  0
    else 
      listbox1.itemindex : = index
   PlayTrack;
end;

procedure TForm1.PrecTrack;
var index :=  integer;
 begin 
   index : = listbox1.itemindex - 1;
   if index < 0 then listbox1.itemindex :=  listbox1.count - 1
    else 
      listbox1.itemindex : = index;
   PlayTrack;
end;

procedure TForm1.PlayTrack;
var track : string;
begin
    track :=  listbox1.items[listbox1.itemindex];
     if  (FileExists(track)) and (track <> player.file) then begin
       player.file : = track;
       player.load;
       player.play;
    end;
end;

@+
Cirec

guigui265 · Answer

Salut cirec, lorsque,dans la procedure playtrack, je met mediaplayer. il ne trouve pas file et load. et donc, ca ne marche pas, il les prend pour un identificateur non d&#233;clar&#233;
@++
guillaume

guigui265 · Answer

En fait, la selection dans la liste box change, mais pas la lecture, il ne change pas la piste  de lecture

Cirec · Answer

Salut Guillaume,
Il y a effectivement un petit soucis.
 F0xi s'est tromp&#233; et moi j'ai b&#234;tement recopier ses fautes 

Donc voici un bout de code qui fonctionne (j'ai test&#233;)

En bleu les ajouts
En rouge les corrections

var
  frm_Player: Tfrm_Player;
  FilePath : String;  // dans cette variable tu mets le chemin des MP3 Ex: 'C:\Ma Musique\' ceci uniquement si le r&#233;pertoire 
courant ne correspond pas avec celui des MP3

procedure Tfrm_Player.NextTrack;
var index :  integer;
begin
   index :=  listbox1.itemindex + 1;
    if  index  = listbox1.count then listbox1.itemindex :=  0
    else 
     listbox1.itemindex : = index;
   PlayTrack;
end;


procedure Tfrm_Player.PlayTrack;
var track : string;
begin
  track :=  listbox1.items[listbox1.itemindex];
   Track := FilePath + Track ;  //ceci uniquement si le r&#233;pertoire courant ne correspond pas avec celui des MP3
  if (FileExists(track)) and (track <> player.fileName) then begin
  player.fileName : = track;
  Player.Open;
  player.play;
  end;
end;


procedure Tfrm_Player.PrecTrack;
var index : integer;
begin
   index :=  listbox1.itemindex - 1;
    If  index < 0 then listbox1.itemindex : = listbox1.count - 1
   else
   listbox1.itemindex := index;
   PlayTrack;
end;


@+
Cirec

guigui265 · Answer

ok,ca me parait mieux, mais j'avais corrig&#233;, au lieu de playtrack,j'ai repri ma proc&#233;dure de lecture que j'utilise sur le bt_play!
@+
guillaume

f0xi · Answer

oui attention un, dans mon exemple plus haut j'ai bien marquer "EXEMPLE", un exemple qui fonctionne pour ListBox mais pas pour MediaPlayer ou pour tout autre API SON. la procedure PlayTrack est donc a modifier en consequence selon si on utilise MP ou Bass ou FMod .

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

f0xi · Answer

ah et aussi, je ne me suis pas tromper, je penser surtout que de logique vous auriez vus qu'il fallait remplacer le code player.file := track; player.load; player.play; par ce qu'il fallait. ^^ vus que j'utilise FMod ou Bass mais pas MediaPlayer ... je ne connais pas trop ce dernier, donc le code "erroné" est fait exprés pour montrer ce que doit contenir (a peu prés) la proc PlayTrack.

La theorie c'est quand on sait tout, mais que rien ne fonctionne. La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

Listbox media player

10 réponses

Votre réponse

Discussions similaires