Discussion :

[busy999]

Bonjour,
je voudrai lire les pistes d'un cd. Cela relève normalement du jeu d'enfant avec le composant TMediaPlayer, mais le problème, c'est que lorsqu'il y a plusieurs lecteurs, TMediaPlayer ne prend en compte que le premier lecteur.
Je voudrai savoir si vous connaissez le moyen de lire une piste d'un cd dans un autre lecteur de cd que le lecteur principal...

Merci d'avance.

[portu]

meme si tu spécifies l'emplacement de la piste a lire ?

[busy999]

ben je ne sais pas comment préciser cet emplacement. g mis la propriété DeviceType à dtCDAudio et j'ai tenté de mettre 'g:\' dans filename, mais ca ne marche pas...

[busy999]

J'ai trouvé ! Par contre il semble y avoir un probleme...

Code :

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

1
2
3
mediaplayer1.filename := 'g:\Track01.cda';
mediaplayer1.Open;
mediaplayer1.Play;

Il suffit d'adapter le code aux circonstantces évedemment (lettre de lecteur, et numéro de piste), mais par contre, j'ai l'impression que une fois la piste finie, le compo li directe la suivant san rien demander...

[busy999]

oups en fait ca a pas l'air d'être la solution complete. En effet, si on met track 2, ca démarre quand mm à la track1... Mais c une piste... Si quelqu'un arrive à faire quelque chose de mieux que moi avec ca (ou autre chose...) avis !

[busy999]

bon, voilà. J'ai enfin trouvé une solution à mon problème :

Code :

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

1
2
3
4
  Lecteur.FileName := 'g:\Track01.cda';
  lecteur.Open;
  lecteur.Position := lecteur.TrackPosition[NBALIRE];
  lecteur.Play;

avec NBALIRE, le numéro de la piste à lire. Mais attention, il reste toujour le problème que ca continu à lire le cd en entier. Ca ne s'arrete pas à la fin de la chanson. Mais c'est mieux que rien...

[mjlub]

Pour détecter la fin d'une piste, il te suffit de boucler en testant le changement de piste :

Code :

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

Piste:=mci_tmsf_track(MediaPlayer1.Position);

(Ne pas oublier de mettre

Code :

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

Application.ProcessMessages;

dans la boucle)

Par ailleurs si tu veux sauter des pistes il suffit de faire autant de fois que nécessaire

Code :

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

MediaPlayer1.Next;

[busy999]

tien, merci beaucoup, ça c'est sympa.