Lecture d'une vidéo avec TMediaPlayer

Bonjour !

Voilà, je souhaite lire des vidéos (DivX, Xvid...) à partir d'une fenêtre.

Jusque là pas de soucis, j'utilise le composant TMediaPlayer de Delphi et ceci fonctionne correctement, enfin presque.

Le problème, c'est que sur certain fichier .avi la vitesse de lecture est accéléré.

Savez-vous comment je peux faire pour lire toutes mes vidéos en vitesse "normale" ? J'ai essayé de regarder dans les propriétés du composant et je ne vois pas ce qui pourrait faire ceci.

Il suffit que je modifie le FileName du TMediaPlayer (sélectionne une autre vidéo) pour que ça fonctionne.


Et vous, pouvez-vous faire un test très simple pour savoir si vous avez le même problème ?

Voici le code source (très simple)

Code:

---

1 2 3

MediaPlayer.FileName:= 'C:\xxxxxx.avi'; MediaPlayer.Open; //Ensuite, appuyer sur le bouton PLAY du TMediaPlayer

---

Je viens de télécharger différents logiciel multimédia créé avec Delphi (6 et 7), avec un TMediaPlayer et j'ai le même problème.

Peut-être que ceci est un bug du composant TMediaPlayer, non ?

Il a peut-être du mal à s'y retrouver avec le nombre de trames/seconde ou avec le débit...

Qu'en pensez-vous ? Connaissez-vous des composants que je peux utiliser pour lire des vidéos ?

Salut Pepito,

Citation:

---

Envoyé par pepito62

Je viens de télécharger différents logiciel multimédia créé avec Delphi (6 et 7), avec un TMediaPlayer et j'ai le même problème.

Peut-être que ceci est un bug du composant TMediaPlayer, non ?

Il a peut-être du mal à s'y retrouver avec le nombre de trames/seconde ou avec le débit...

Qu'en pensez-vous ? Connaissez-vous des composants que je peux utiliser pour lire des vidéos ?

---

Pour ma part, j'utilise l'ActiveX WindowsMediaPlayer. Il faut l'importer car celui ci n'est pas installé par défaut. Avec l'ActiveX, je n'ai pas eu de soucis particulier :)

Peux-tu me donner cette activeX ?

Et me dire (approximativement), comment intégrer/utiliser un activeX dans Delphi ?

Merci beaucoup

J'ai vu comment ajouter l'activeX (Menu Composant/Importer un controle ActiveX, la j'ai sélectionné Windows Media Player (Version 1.0)), ensuite j'ai cliqué sur le bouton Installer.


J'ai à présent une nouvelle classe : WMPLib_TLB.pas

Comment utiliser et implémenter cette activeX dans mon code Delphi ?

As-tu compilé le tout ? As-tu eu un message t'informant que certains composants ont été ajoutés à la palette ?

Si oui, il suffit de faire une nouvelle application Delphi et d'utiliser le composant TWindowsMediaPlayer, sinon, il te faut compiler et installer l'activeX.

Oui merci bien.

Je l'ai installé et j'ai le composant dans la palette.

Ca fonctionne parfaitement, avec tout mes films !

Encore merci.