Discussion :

[qi130]

Un petit tuto explique comment faire un petit mp3 player sans prétention autre que celle d'écouter de la zic...

La progression du trackBar est synchronisé avec la durée en cours du morceau lors du déclenchement d'un Timer :

Code :

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

Progress.Position := mp3player.Position;

Nickel!

Maintenant, je souhaite faire l'inverse:
Je déplace le curseur du trackbar et je veux que le mediaplayer reprenne la lecture au nouvel "offset"....(nouvelle fonctionnalité)

Quel événement solliciter ?

[sjrd]

As-tu au moins essayé ceci ?

Code :

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

mp3player.Position := Progress.Position

[qi130]

As-tu au moins essayé ceci ?

Code :

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

mp3player.Position := Progress.Position

C'est effectivement le code à mettre, mais je ne vois pas où, compte-tenu de la pauvreté du compo TrackBar en terme d'events...
J'ai l'impression qu'avec le TrackBar on ne peut que restituer de l'info...

J'aurai aimé un event "OnEndSlide" se produisant quand je relache le curseur sur la nouvelle position, mais rien !

A la limite un "OnMouseUp", mais pas davantage....

D'où ma question initiale: Quel événement solliciter ?

[Gilius]

dans l'aide de l'evenement OnChange du TTrackBar :

OnChange,événement (TTrackBar)

Se produit immédiatement après la modification de la valeur de Position.

Donc je pense que mettre le code cité par sjrd sur le OnChange de ton TTrackBar devrait avoir un bon résultat

[qi130]

Oui, mais....

L'événement OnChange se produit aussi lorsque le Timer se déclenche...

[Gilius]

et bien dans ce cas :

Code :

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

1
2
3
 
     if mp3Player.Position <> Progress.Position then
        mp3Player.Position := Progress.Position;

même si à mon avis la Méthode SetPosition qui se cache derriere la propriété Position de ta classe de mp3Player doit déja mettre en oeuvre ce test.


Quel est le problème au juste, tu as testé ?

[Pierre Castelain]

Le plus simple, à mon avis, est d'utiliser un booléen qui te serve à indiquer que la modification de la position du TTrackBar est réalisée par le timer. Ainsi, lors de l'événement OnChange du TTrackBar il te suffit de tester ce booléen pour déterminer s'il s'agit d'une action de l'utilisateur ou non. Un truc dans ce genre :

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
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  FMP3PlayerUpdate:= true;
  try
    Progress.Position := mp3player.Position;
  finally
    FMP3PlayerUpdate:= false;
  end;
end;
 
procedure TForm1.ProgressChange(Sender: TObject);
begin
  if not FMP3PlayerUpdate then
    mp3player.Position := Progress.Position;
end;

FMP3PlayerUpdate étant un attribut privé de la fenêtre (par exemple).

[sjrd]

Ou alors (la méthode que j'utilise), tu ne touche pas à ProgressChange mais tu fais ceci :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Progress.OnChange := nil;
  try
    Progress.Position := MP3Player.Position;
  finally
    Progress.OnChange := ProgressChange;
  end;
end;

[Gilius]

je trouve que c'est beaucoup de complication pour pas grand chose non ?


si le timer met à jour le trackbar à partir de la position du mp3 alors
on a chronologiquement :
trackbar.position := mp3.position;
// <----------- les 2 valent la meme choses maintenant

cela déclenche le OnChange du trackbar
mp3.Position := trackbar.position // ce qui ne change rien du tout car ils valent la meme chose

donc si la propriété Position de la classe de mp3 est bien construite cela n'aura aucune consequence...

[Pierre Castelain]

je trouve que c'est beaucoup de complication pour pas grand chose non ?


si le timer met à jour le trackbar à partir de la position du mp3 alors
on a chronologiquement :
trackbar.position := mp3.position;
// <----------- les 2 valent la meme choses maintenant

cela déclenche le OnChange du trackbar
mp3.Position := trackbar.position // ce qui ne change rien du tout car ils valent la meme chose

donc si la propriété Position de la classe de mp3 est bien construite cela n'aura aucune consequence...

Sauf que le code utilise des événement qui sont eux-mêmes déclenchés par l'envoi de messages. Or il est tout à fait possible que l'attribut Position du lecteur audio ait changé entre le moment ou le timer a déclenché son événement et le moment ou le TTracKBar traite l'événement OnChange.
Il vaut mieux ne jamais présumer du temps que va prendre le traitement d'un message sous Windows au risque d'avoir de drôles de comportements.
Dans ce cas précis, cela ne devrait pas prêter à conséquence, mais je suis d'avis qu'il vaut mieux prendre de bonnes habitudes.

[qi130]

Ben, vous battez pas !

Le temps de tester la solution de Pierre et pof, la génération spontanée :o

Voici la proc finale :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.ProgressChange(Sender: TObject);
begin
     if not FMP3PlayerUpdate then begin
        mp3player.Position := Progress.Position;
        mp3player.Play;
     end;
end;

Où j'ai rajouté le redémarrage du player.....

vais bientôt pouvoir me passer de Wi.....p (c'est la chasse aux sorcières au taf!)

Merci à tous.