Discussion :

[Lung]

Comment utiliser l'activeX TMediaPlayer dans un thread ?
Je cherche à lire des fichiers son (wav pour l'instant, mais ça pourait être n'importe quoi) en parallèle.

J'ai donc écrit un petit thread :

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
17
18
19
20
21
22
23
24
procedure TThreadMediaPlayer.Execute;
begin
   CoInitialize(nil);
   _WMP:= TWindowsMediaPlayer.Create(nil);
   _WMP.OnStatusChange := WMPStatusChange;
   _WMP.settings.volume := _nVolume;
   _WMP.URL := _szSon;
//   _WMP.controls.play;
 
   while not Terminated do
      ;
 
   _WMP.OnStatusChange := nil;
   _WMP.controls.stop;
   _WMP.Free;
   _WMP := nil;
end;
 
procedure TThreadMediaPlayer.WMPStatusChange(Sender: TObject);
begin
   // Si fin du fichier.
   if _WMP.ControlInterface.playState = wmppsMediaEnded then
      Terminate;
end;

Que j'appelle avec ça :

Code :

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

1
2
3
4
   _ThreadMediaPlayer := TThreadMediaPlayer.Create(True);
   _ThreadMediaPlayer._szSon := 'E:\blabla\MonFichier.wav';
   _ThreadMediaPlayer._nVolume := 30;
   _ThreadMediaPlayer.Resume;

En pas à pas dans le thread, j'arrive bien jusqu'à la ligne d'affectation de _WMP.URL, mais le son n'est pas joué.

Bien sûr, j'ai testé à part :

Code :

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

1
2
3
4
   _WMP:= TWindowsMediaPlayer.Create(nil);
   try
      _WMP.settings.volume := 90;
      _WMP.URL := 'E:\blabla\MonFichier.wav';

Et ca fonctionne bien.

Qu'est ce que j'ai oublié ?

[ShaiLeTroll]

un peu brutal pour le proc !

Code :

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

1
2
   while not Terminated do
      ;

Code :

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

1
2
   while not Terminated do
      sleep(0);

tu as enlevé le Play ?
En fait, as-tu besoin du boucle ?

[Lung]

un peu brutal pour le proc !

Code :

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

1
2
   while not Terminated do
      ;

Code :

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

1
2
   while not Terminated do
      sleep(0);

Ah bon ?
Je vais tester ça ...

tu as enlevé le Play ?

Oui. C'est l'affectation de le propriété URL qui déclenche la lecture. Je l'ai vérifié à part.

En fait, as-tu besoin du boucle ?

Bin, pour savoir quand détruire proprement le MediaPlayer, non ?

[ShaiLeTroll]

Pourquoi tu n'utilises PlaySound directement (avec peut-être un download du fichier manuellement)

Sinon, TWindowsMediaPlayer est-il lui-même asynchrone ?
Voir si tu as aussi Wait et Notify dans TWindowsMediaPlayer comme dans TMediaPlayer

[Lung]

Pourquoi tu n'utilises PlaySound directement (avec peut-être un download du fichier manuellement)

C'est ce que je faisais justement. Mais, dès que je lui donne un nouveau wav, il coupe le précédent.

Sinon, TWindowsMediaPlayer est-il lui-même asynchrone ?
Voir si tu as aussi Wait et Notify dans TWindowsMediaPlayer comme dans TMediaPlayer

Je vais regarder ça ce soir aussi.

[Lung]

Bon j'ai testé le

Code :

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

1
2
while not Terminated do
      sleep(0);

Ca ne change rien.

Pourquoi tu n'utilises PlaySound

J'ai aussi testé de mettre PlaySound dans le thread (je faisais pas comme ça, jusqu'à présent): pas de son non plus.

Sinon, TWindowsMediaPlayer est-il lui-même asynchrone ?

Si ta question c'est si on peut lancer deux MediaPlayer en même temps, la réponse est oui. Hors thread, j'ai lancé un wav de longue durée, et un autre court avec un deuxième MediaPlayer sans problème.

Voir si tu as aussi Wait et Notify dans TWindowsMediaPlayer comme dans TMediaPlayer

C'est pas l'évènement WMPStatusChange que j'essais d'utiliser ?

[Lung]

Bon, j'ai fini par laisser tomber les threads.
J'ai contourné le problème en faisant une liste de TWindowsMediaPlayer, avec chacun un son. Et j'y fais appel quand j'en ai besoin.