Installation

Pour utiliser Microsoft Media Player dans un programme Delphi, il faut importer son contrôle ActiveX.
Allez dans le menu "Composant" de Delphi puis sur "Importer un contrôle ActiveX...".
La fenêtre "Importation d'ActiveX" apparait :



Sélectionnez "Windows Media Player" dans la liste.
Par défaut, le nom de la classe est "TMediaPlayer". Vous devez changer ce nom puisque qu'il existe déja le composant TMediaPlayer. Dans notre exemple, le nom de la classe sera "TMsMediaPlayer". "Ms" désignant Microsoft.
Choisissez à quel onglet (par défaut, cela est "ActiveX") de la palette de composants vous voulez insérez le composant.
Puis, cliquez sur le bouton "Installer". Une fenêtre apparait, vous demandant dans quel paquet vous voulez installer le composant.Cliquez sur le bouton "Ok" pour valider.

Le composant permettant d'utiliser Microsoft Media Player est maintenant installer.

Utiliser Microsoft Media Player dans un programme Delphi

Placez un composant TPanel, TButton, TOpenDialog et TMsMediaPlayer à l'intérieur de la form.
Mettez la propriété "Align" du composant TPanel à "alTop" et celle du composant TMsMediaPlayer à "alClient".
Mettez la propriété "Caption" du composant TButton à "Ouvrir...".



Ensuite, on passe à la partie code de programme.
Cliquez deux fois sur le composant "TButton" pour activer son événement "OnClick".
Ajoutez ces lignes :

procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin MsMediaPlayer1.FileName:=OpenDialog1.FileName; //Choisit le fichier à visionner MsMediaPlayer1.DisplaySize:=mpFullScreen; //Affiche le player en mode plein écran MsMediaPlayer1.Play; //Lit le fichier end; end;

Microsoft Media Player    [ 11-11-2003 ] Utiliser Microsoft Media Player dans un programme Delphi. Télécharger :  [5 Ko] [ msmediaplayer.zip] Auteur : Yoann Site internet : http://delphipage.free.fr/