Lancer un fichier vidéo

Bonjour,

Je souhaiterais créer un mini programme qui me permatterait de lancer une vidéo (.avi) dans l'application par le biais d'un TButton (propriété OnCLick). Donc je ne veux pas passer par la fonction ShellExecute. Je voudrais que l'affichage de la vidéo se fasse dans ma form1.

En gros il s'agi d'un média player rudimentaire (TRES :D ) . J'imagine qu'il y a un certain nombre de librairies à charger etc ... Mais lesquelles ? j'ai essayé aussi de me documenter sur la fonction TAnimate ... sans grand résultat :cry:

Pourriez-vous m'aider ou m'indiquer des tutoriaux ou autres sur ce sujet ?

Merci d'avance.

Arkadius

Mettez un TMediaPlayer sur la forme et un TPanel, le fichier avi sera animé dans le panel sur clic d'un bouton comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

void __fastcall TForm1::Button1Click(TObject *Sender) { TRect rec;   rec.Left=0; rec.top=0; rec.Bottom=Panel1->Height; rec.right=Panel1->Width;   MediaPlayer1->FileName = "D:\\ProjetsBCB\\Player_avi\\toto.avi"; MediaPlayer1->Display = Panel1; MediaPlayer1->Open(); MediaPlayer1->DisplayRect=rec; MediaPlayer1->Play(); }

---

À bientôt
Gilles

Merci
A bientôt