|
Pour la partie 1 je vais essayer d'etre le plus explicite possible, mais si vous avez des commentaires à faire, n'hésitez pas à me contacter.
 Créer une nouvelle application, puis sur la Form1 insérez les composants suivant :
1 DriveComboBox, 1 DirectoryListBox, 1 FileListBox, 3 Bouttons, 1 panel puis 1 MediaPlayer afin d'obtenir ceci.
En Utilisant l'arborscence d'objets (Maj - Alt - F11) ainsi que l'inspecteur d'objets (F11) renommez la propriété Name de vos 3 bouttons ainsi que votre panel, puis la propriété Caption de vos 3 bouton, de votre Panel et pour terminer celle de votre Form.
Name |
Palette |
Name |
Caption |
DriveComboBox1 |
Win 3.1 |
|
|
DirectoryListBox1 |
Win 3.1 |
|
|
FileListBox1 |
Win 3.1 |
|
|
Button1 |
Standard |
Button_Lecture |
Lecture |
Button2 |
Standard |
Button_Stop |
Stop |
Button3 |
Standard |
Button_Quitter |
Quitter |
MediaPlayer1 |
Système |
|
|
Panel1 |
Standard |
Panel_Display |
Caption Vide |
Form1 |
|
|
MultiLecteur |
A présent sélectionnez votre
DriveComboBox1  puis dans la partie Evénement de votre Inspecteur d'objets, cliquez à droite de DirList pour faire apparaitre DirectoryListBox1.
Cliquez maintenant sur le + de DirList pour élargir l'arboréscence et faire apparaitre FileList et sélectionnez FileListBox1.
Nous allons maintenant enregistrer notre projet ( Fichier / Tout enregistrer) ou (Maj- Ctrl-S) ou encore cliquer sur l'icone  .
Enregistrez Unit1.pas sous le nom Main.pas puis Project1.dpr sous MultiLecteur.dpr.
Sélectionnez votre FileListBox1 et à droite de la propriété Mask entrez *.avi;*.wmv;*.mpeg en séparant bien par des points virgules ;
Faites un double click sur le boutton  Puis insérer le code suivant :
procedure TForm1.Button_LectureClick(Sender: TObject);
begin
MediaPlayer1.FileName := FileListBox1.FileName; // Spécifie le fichier à ouvrir
MediaPlayer1.Display := Panel_Display; // Fenêtre d'affichage de la vidéo
MediaPlayer1.Open; //Ouvre le périphérique multimédia.
MediaPlayer1.Play; //Déclenche le lecteur de périphérique.
end;
Faites un double click sur le boutton  Puis insérer le code suivant :
procedure TForm1.Button_StopClick(Sender: TObject);
begin
MediaPlayer1.Stop; //Arrête la lecture
end;
Faites un double click sur le boutton  Puis insérer le code suivant :
procedure TForm1.Button_QuitterClick(Sender: TObject);
begin
Application.Terminate; //Termine l'exécution de votre application.
end;
Pout terminer la 1ère partie de notre projet il nous reste seulement à masquer notre MediaPlayer1 puis modifier le style de la bordure de notre Form1.
Sélectionnez votre MediaPlayer1 et modifiez la propriété Visible = True en Visible = false à l'aide de votre Inpecteur d'objets.
Sélectionnez votre Form1 et modifiez la propriété BorderStyle = bsSizeable en BorderStyle = bsDialog à l'aide de votre Inpecteur d'objets.
Enregistrez tout votre projet et Pressez F9
---- FIN de la 1ère partie ----
Le 13 Octobre 2007
 Téléchargez le uniquement le code source
Téléchargez le code source + les échantillons mpeg, avi et wmv
Contact
|
