Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites


Tutoriaux - Microsoft Media Player

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] [Télécharger msmediaplayer.zip]

Auteur : Yoann
Site internet :
http://delphipage.free.fr/

Tous droits réservés - Contacts
Haut de la page