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 - MediaPlayer

Présentation

Delphi dispose du composant TMediaPlayer pour les opérations multimédia simples. Ce composant est
situé dans l'onglet "Système" de la palette de composants. Il permet de jouer des sons WAV et MIDI ou des vidéos AVI. Glissez ce composant dans la fiche du projet.



Le composant TMediaPlayer comprend de nombreuses propriétés et d'événements.


Les propriétés principales

Propriété

Description
AutoOpen Spécifie si le peripherique doit être opérationnel dès que le diffuseur de média est crée.
AutoRewind Le pointeur de position sur le média sera repositionné après l'opération.
DeviceType Type de périphérique.
Display Fenêtre d'affichage(pour les périphériques videos).
DisplayRect Taille et position de la fenêtre pour les périphériques vidéos.
EnabledButtons Boutons du MediaPlayer activé ou non activé.
EndPos Fin du média.
Error Code d'erreur de la dernière opération.
ErrorMessage Texte décrivant la dernière erreur.
Frames Nombre de Trames.
Length Longueur du media.
Mode Etat du périphérique.
Notify Genere l'événement OnNotify.
NotifyValue Résultat de la dernière modification.
Position Position du média.
StartPos  Position de départ du média.
TimeFormat Format de positionnement.
Tracks Nombre de pistes.
VisibleButtons Indique quel bouton est visible.
Wait Attend la fin la diffusion du média.


Les méthodes principales

Le composant MediaPlayer comprend également de nombreuses méthodes.

Méthode
Description
 Back Revient en arrière.
 Close Ferme l'action en cours.
 Eject Ejecte, si le CD audio.
 Next Passe à la piste suivante.
 Open Ouvre le périphérique.
 Pause Interrompt l'action du média.
 Play Joue le média.
 Previous Se positionne au début de la piste.
 Resume Reprend l'action en cours.
 Rewind Repositionne le média au début de la piste.
 Save Sauvegarde le média dont le nom est spécifié dans la propriété FileName.
 StartRecord Commence l'enregistrement des donnés.
 Step Avance du nombre de trames spécifié par la propriété Frames.
 Stop Arrête l'action en cours d'execution.


Les événements

L'événement le plus important dans ce composant est l'événement OnNotify qui s'execute à chaque fois qu'une commande s'est terminée (uniquement si la propriété Notify est à True).


Régler le volutme du CD

Trois fonctions permettent de régler le volume sonore :
- AuxSetVolume
- MidiOutSetVolume
- WaveOutSetVolume


Voici un exemple permettant de régler le volume avec un composant TTrackBar.
Glissez un composant TTrackBar et un composant MediaPlayer dans la fiche de travail du projet de Delphi.

Uses mmSystem;

procedure
TForm1.FormCreate(Sender: TObject);
begin
TrackBar1.Min:=0;
TrackBar1.Max:=65535;
TrackBar1.Frequency :=6553;
end;


procedure
TForm1.TrackBar1Change(Sender: TObject);
begin
AuxSetVolume(MediaPlayer1.DeviceID,TrackBar1.Position);
end;


Afficher la première image d'un fichier video

Glissez un composant TPanel, TMediaPlayer, TButton et TOpendialog.

procedure TForm1.Button1Click(Sender:TObject);
begin
if
OpenDialog1.Execute then
begin
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
MediaPlayer1.DisplayRect:=Rect(0,0,Panel1.Width,Panel1.Height);
Application.ProcessMessages;
MediaPlayer1.Step;
end;
end;


Diffuser un fichier WAV

procedure TForm1.Button1Click(Sender:TObject);
begin
MediaPlayer1.Wait:=True;
MediaPlayer1.FileName:='Son.wav';
MediaPlayer1.Open;
MediaPlayer1.Play;
end;


Diffuser 2 secondes d'un fichier WAV

Les valeurs sont spécifiées en millisecondes.

procedure TForm1.Button1Click(Sender:TObject);
begin
MediaPlayer1.FileName :='delphi.wav';
MediaPlayer1.Open;
MediaPlayer1.StartPos:=1000;
MediaPlayer1.EndPos:=3000;
MediaPlayer1.Play;
end;


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