Delphipage

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;