Activex Windows Media Player

Bonjour,
Je voudrais utiliser le composant Windows Media Player de la façon suivante :

Lecture partielle d'un média (vidéo en l'occurrence), d'un timecode jusqu'à un autre :
J'arrive à positionner le lecteur sur une valeur en seconde et ensuite lire le média depuis cette position, avec la syntaxe suivante sous delphi :
WindowsMediaPlayer1.controls.currentPosition:=Position (Position en secondes)
Mais je ne sais pas comment arrêter la lecture à un moment précis.

Après avoir parcouru la documentation Microsoft sur cet activex, et notamment dans la partie controls ou settings, ou bien évidemment parcouru ici même les discussions sur le sujet, je ne trouve pas de solution. :?

Merci de votre aide.
jpapou

Bonjour,

indiquer la version de Delphi et au besoin nous faire savoirs s'il s'agit de VCL ou de FMX (même si je doute qu'il s'agisse de ce dernier) serait un plus

Salut,

Je n'utilise ni WMP ni Windows tout court, cependant je tenterais bien un truc du style

Code:

---

1 2 3 4 5 6 7 8 9 10 11

var StopAt: integer; // ou autre, celui qui va bien begin // initialisations diverses StopAt := la_position_que_tu_veux; ... // Lancement WMP1.controls.currentPosition := Position; // (Position en secondes) while WMP1.Running do if WMP1.controls.currentPosition = StopAt then WMP1.Stop; end;

---

Bon, tu as bien compris que c'est du pseudocode, mais c'est pour que tu voies l'idée.

La chose qui me chagrine, par contre, c'est cette position en secondes, qui peut te faire louper ou te rajouter 23 images.
Il n'existe pas une option de position plus précise, en images ?

Code à déporter éventuellement dans un thread, et plutôt avec une inégalité, au cas où.

Il s'agit de la version XE7, et de l'unité ActiveX VCL TWindowsMediaPlayer 1.0

Effectivement lancer un thread me parait logique, mais il va falloir trouver la syntaxe exacte du pseudo-code proposé, et notamment le WindowsMediaPlayer is Running.
Je vous fais part de mes recherches et merci de vos réponses rapides.

Citation:

---

Envoyé par Jipété

La chose qui me chagrine, par contre, c'est cette position en secondes, qui peut te faire louper ou te rajouter 23 images.
Il n'existe pas une option de position plus précise, en images ?

---

J'ai vérifié et heureusement la propriété currentPosition est déclarée en Double, ce qui me permet de découper ma seconde en centièmes, et ensuite, pour les images entre la 20 et la 21ème seconde :
20.04, 20.08, 20.12, ... ,20.92, 20.96, soit 25 images.

Merci pour ta remarque Jipété
:D

Dans la classes Vcl.MPlayer.TMediaPlayer et sa propriété Mode, tu as le mpPlaying / mpStopped

Essaye, j'ai pris une version du WMP que j'avais récupéré en C++Builder

Code:

---

1 2	WMP.ControlInterface.get_playState(); par héritages interfaces de WindowsMediaPlayer - IWMPPlayer4 > IWMPCore3 > IWMPCore2 > IWMPCore , cela devrait passer

---

sinon voir

Code:

---

1 2	if Support(WMP.ControlInterface, IWMPCore, IntfWMPCore) then IntfWMPCore.get_playState()

---

Cela te donnera une valeur de WMPPlayState : wmppsPlaying, wmppsStopped ...

Vos remarques m'ont donné l'idée (bonne ou pas ?) de procéder ainsi :

Code:

---

1 2 3 4 5 6 7

Wmp1.controls.currentPosition:=Position; Wmp1.controls.play; repeat Application.ProcessMessages; until Wmp1.controls.currentPosition > Fin; Wmp1.controls.pause;

---

Le code fonctionne, mais je ne trouve pas ça très ... comment dire ? J'ai peur d'utiliser beaucoup de ressources en appelant ProcessMessages dans mon repeat until. J'obtiens néanmoins ce que je voulais.

Merci de vos avis

Citation:

---

Envoyé par jpapou

Le code fonctionne, mais je ne trouve pas ça très ... comment dire ? J'ai peur d'utiliser beaucoup de ressources en appelant ProcessMessages dans mon repeat until. J'obtiens néanmoins ce que je voulais.

Merci de vos avis

---

Essaye ça :

Code:

---

1 2 3 4 5 6 7 8 9 10

var i: int64; begin ... i := 0; repeat inc(i); if ((i mod 20) = 0) then // n'exécutera la suite que tous les 20 tours de boucle Application.ProcessMessages; until Wmp1.controls.currentPosition > Fin;

---

Si tu trouves que ça ne rafraîchit pas assez vite, descends à 10.

Bonne idée le modulo dans la boucle, il ne me reste plus effectivement qu'à le régler.
:D
Merci Jipété, et merci à vous tous.

Jpapou