Discussion :

[mateuil]

Bonjour, d'après ce que j'ai pu lire sur les tutos, le Tanimate permet de lire des vidéo mais sans le son, alors, il faut le lire dans un TPanel. Mais le seul problème, c'est que je ne sais pas comment faire ^^

Quelqu'un a déjà fé cela?

[ShaiLeTroll]

TAnimate ce n'est que pour un AVI standard ...
Essaye plutôt le TMediaPlayer ...

[mateuil]

oui je viens d'essayer mais je n'arrive pas à afficher l'image dans un panel par exemple, ca marche seulement quand c'est delphi qui ouvre une page à coté...

[shell13010]

regarde sur le lien,il y a un exemple ici

[mateuil]

alors, j'ai essayer le script...
Ca ne fonctionne pa vraiment, l'image s'affiche seulement quand je bouge ma fenetre dans tous les sens... ^^

[ShaiLeTroll]

Idée bidon, avec un Timer, tu force un Refresh, Repaint ou Invalidate du MediaPlayer ou de son parent (Panel ou Form)

[mateuil]

bon j'ai trouver le problème, c'est parce que ma form est transparente... si quelqu'un sait comment y remédier...

Et par contre, comment faire pour que la vidéo s'adapte à la taille du panel?

[ShaiLeTroll]

Il faut redifinir le DisplayRect du MediaPlayer ...

[mateuil]

et pour la transparence du lecteur?
Car j'ai besoin que le lecteur soit transparent, mais, si je mais l'option transparent a true, la vidéo ne s'affiche pas...
Qualqu'un à une idée?

[Zaki_SDwin]

Si tu veux masquez la bar de controle lors de l'exécution, il faut mettre la propriété Visible = False

[mateuil]

oui ca je sais, mais c'est mon formulaire que je veux mettre transparent avec la propriété transparent pour la couleur rouge. Donc pour se faire pas de problème mais, si je met cette option a true, la vidéo ne s'affiche pas...

[sys1]

Panel1.Visible: False ou True, utile si tu veux afficher tantôt de la video, tantôt autre chose comme une Timage.

MediaPlayer2.Display:=Panel1;
Force l'affichage de la video dans Panel1

MediaPlayer2.Filename:=('C:\Fraps\video.mpg');
Chemin du fichier video

MediaPlayer2.Open;
Charger en mémoire

MediaPlayer2.Play;
Lecture de la video

Code :

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

1
2
3
4
5
6
 
  Panel1.Visible:=True;
  MediaPlayer2.Display:=Panel1;
  MediaPlayer2.Filename:=('C:\Fraps\video.mpg');
  MediaPlayer2.Open;
  MediaPlayer2.Play;