Détecter Fin de WindowsMediaPlayerRésolu

Question

Bonjour,



Voil&#224; je me renseigne pour savoir s'il &#233;tait possible de d&#233;tecter quand le lecteur Windows Media &#224; fini de lire sa vid&#233;o 



Je m'explique :



Je suis en train de cr&#233;er un petit programme qui lis une vid&#233;o
automatiquement au lancement du programme, tout marche correctement,
mais j'aimerais supprimmer d&#233;finitivement la vid&#233;o &#224; la fin de la
lecture et changer de Form.



Pour cela j'utilise temporairement un Timer qui me fais le tout au bout
d'un certain temps, mais j'aimerais le faire sans Timer pour que, si la
vid&#233;o devienne plus longue ou plus courte, qu'il le fasse
automatiquement.



J'ai essay&#233; les OnEndDrag, Exit, etc. mais rien ne marche, pourriez-vous m'aider s'il vous plait 



Merci d'avance

WhiteHippo · Accepted Answer

Comme &#231;a, cela devrait fonctionner :

procedure TForm1.WindowsMediaPlayer1StatusChange(Sender: TObject);
begin
  if ( WindowsMediaPlayer1.status = 'Arr&#234;t&#233;' ) then
  begin
    // ton traitement ici
    // Par exemple : Form2.ShowModal 
  end ;
end;

Cordialement.


<HR>
Il existe 10 cat&#233;gories de personne. Ceux qui connaissent le binaire et les autres...

WhiteHippo · Answer

En supposant que tu utilises un TMediaPlayer "MediaPlayer1", dans l'&#233;v&#233;nement OnNotify, rajoutes le code si dessous :

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if ( MediaPlayer1.Length = MediaPlayer1.Position ) then
  begin
    // Ton traitement ici
  end ;
end;

N.B. Ne pas oublier de mettre la propri&#233;t&#233; AutoRewind &#224; la valeur FALSE.

Cordialement.


<HR>
Il existe 10 cat&#233;gories de personne. Ceux qui connaissent le binaire et les autres...

Also know as · Answer

Je m'excuse si je n'ai pas parl&#233; de ce que j'utilisais, mais c'est
WindowsMediaPlayer, cela me semblait clair avec OnEndDrag, mais
apperemment non, donc je ne peux pas utiliser ta m&#233;thode sous ce
lecteur.

WhiteHippo · Answer

Si c'est le composant activeX TWindowMediaPlayer que tu utilises , alors l&#224; il existe alors un evenement OnEndOfStream !

Cordialement.


<HR>
Il existe 10 cat&#233;gories de personne. Ceux qui connaissent le binaire et les autres...

Also know as · Answer

Mais comment je l'utilise 



Je l'ai d&#233;j&#224; essay&#233;, mais il ne me fait strictement rien !



Dois-je faire dans le m&#234;me style que ton premier message 



Mais dans ce cas $.lenght et $.position n'existe pas, donc je suis v&#233;ritablement perdu avec celui-ci !



Peux-tu m'orienter s'il te plait 



Je souhaite juste afficher, pour exemple, Form2, comment dois-je faire 



Merci d&#233;j&#224; pour toutes tes r&#233;ponses

Also know as · Answer

Super !



Ca marche du feu de dieu, merci beaucoup !

Détecter Fin de WindowsMediaPlayer

6 réponses

Votre réponse

Discussions similaires