Discussion :

[jpapou]

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

[SergioMaster]

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

[Jipété]

Salut,

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

Code :

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

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 ?

[tourlourou]

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

[jpapou]

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.

[jpapou]

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é

[ShaiLeTroll]

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 :

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

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

sinon voir

Code :

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

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

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

[jpapou]

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

Code :

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

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

[Jipété]

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 :

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

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.

[jpapou]

Bonne idée le modulo dans la boucle, il ne me reste plus effectivement qu'à le régler.

Merci Jipété, et merci à vous tous.

Jpapou