Discussion :

[Arkadius]

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 ) . 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

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

Merci d'avance.

Arkadius

[Gilles Louïse]

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 :

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

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

[Arkadius]

Merci
A bientôt