DSPack est un ensemble de Composants et classe pour créer des applications Multimédias sous Delphi 5,6,7, ils utilisent la technologies DirectX9 sur Win9X et plus. l'ensemble de composants vous permet de créer tout ce que vous voulez : Lecteur CD, Lecteur DVD, capture, compression, filtres, TÉLÉ, webcam, DV...
Installation:
les étapes de l'installation sont les memes pour toutes les versions de delphi, en tous cas moi j'utilise la version7, avec la quelle les testes sont faits.
- Télécharger et installer DirectX9 (Si il n'est pas installer sur votre system).
- Télécharger la bibliothèque des composant multimédia DSPack 2.3.4
- Dans le menu Outils\options d'environnement... de delphi, choisissez l'onglette Bibliothèque
- cliquez sur les trois point(...) de chemin de bibliothéque et insérez le chemin de dossier des sources de DirectX9 (CheminDSPack\src\DirectX9) et cliquez sur Ajouter, la même chose pour le chemin de DSPack (CheminDSPack\src\DSPack).
- cliquez sur les trois point(...) de chemin a parcourir et insérez le chemin de dossier des sources de DirectX9 (CheminDSPack\src\DirectX9) et cliquez sur Ajouter , la même chose pour le chemin de DSPack (CheminDSPack\src\DSPack).
- Compilez le Paquet (DirectX9_Dv.dpk) du (CheminDSPack\packages). v = la version de Delphi utilisé
- Compilez le Paquet (DSPack_Dv.dpk) du (CheminDSPack\packages). v = la version de Delphi utilisé
- Compiler et Installez le Paquet du Dessin (DSPackDesign_Dv.dpk) du (CheminDSPack\packages). v = la version de Delphi utilisé
Conception visuelle des composants:
- Lancez Delphi, créer un nouveau projet que vous devez enregistrer sous le Nom Mediplayer.
- Placez sur la fiche Form1 deux composants GroupBox séparés par un composant Spliter, dans la propriété Align choisissez alLeft pour GroupBox1 et alClient pour GroupBox2, et videz leur propriété caption.
- Toujours sur la fiche, placez un composant StatusBar, on double cliquant au-dessus, une petite fenêtre s'ouvre, puis ajouter un nouvel élément (Ins) avec Fichier comme propriété Text
- Glissez un composant FilterGraph qui se trouve dans l'onglette DSPack qu'on a installé et mettez sa propriété GraphEdit a True.
- Glissez aussi un composant OpenDialog .
- Sur le GroupBox2 glissez deux composants Panel avec alBottom dans propriété Align de Panel1 et, AlClient dans propriété Align de Panel2 sans oublier de vider leur propriété Caption
- Sur Panel2 insérez le composant VideoWindow qui se trouve dans l'onglette DSPack qu'on a installé avec alClient dans propriété Align et, choisissez GraphEdit1 dans sa propriété GraphEdit.
- Sur Panel1, insérez Cinq composants TSpeedButton et modifiez respectivement leur propriété Caption a Play, Pause, Stop, FullS,Ouvrir , comme vous pouvez insérer l'image correspondante a chaque action du bouton dans la propriété Glyph. Sachant que les images de notre exemple sont insérées depuis dossier Prgram Files\Fichiers communs\Borland Shared\Images\Buttons.
- Ajouter un composant DSTrackBar sur Panel1 et, choisissez GraphEdit1 dans sa propriété GraphEdit.
- Ajouter un composant TrackBar sur Panel1 et, fixer sa propriété Max a 10000.
- Toujours sur le <em>GroupBox2 glissez un composant ShellTreeView qui se trouve sur l'onglette Exemple, et choisissez AlClient dans sa propriété Align .
- Sur le composant GroupBox1 inserez Un composant TFileListBox , un composant TDirectoryListBox avec FilelistBox1 dans sa propriété FileList, et un composant TDriveCombobox avec DirectoryListBox1 dans sa propriété DirList.
La fenêtre de votre application doit ressembler a celle ci:
Implémentation et instructions:
Avant d'entamer l'étape d'ajout d'instruction, je vous explique le rôle de chaque composant.
- VideoWindow: Pour afficher les vidéo.
- DSTrackBar: pour déterminer et régler la position du media en cours.
- TrackBar: pour déterminer et régler le volume.
- Bouton Play: pour lire le Media sélectionné ou ouvert
- Bouton Pause: pour mettre en pause le Media en cours
- Bouton Stop: pour arrêter le Media en cours.
- Bouton Fulls: pour afficher une vidéo en plein écran
- Bouton Ouvrir: pour ouvrir un fichier multimédia sans l'ajouter a la liste
- FileListBox,DirectoryListBox,DriveCombobox: pour naviguer dans les dossier de disque.
On passe a la phase implimentation d'instruction:
Dans l'implémentation OnClick du bouton play ajoutez ces instruction:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
FilterGraph1.Active := true;
FilterGraph1.ClearGraph;
FilterGraph1.RenderFile(statusbar1.Panels.Items[0].Text);
TrackBar1.Position:=FilterGraph1.Volume;
FilterGraph1.Play;
end;
2-Dans l'implémentation OnClick du bouton Pause ajoutez cette instruction:
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
FilterGraph1.Pause;
end;
3-Dans l'implémentation OnClick du bouton Stop, ajoutez cette instruction
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
FilterGraph1.Stop;
end;
4-Dans l'implémentation OnClick du bouton FullS, ajouter cette instruction:
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
VideoWindow1.FullScreen:=true;
end;
5-Dans l'implémentation OnClick du bouton Ouvrir, ajouter cette instruction:
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
if opendialog1.execute then
statusbar1.Panels.Items[0].Text:=opendialog1.FileName;
SpeedButton1.OnClick(Sender);
end;
6-Dans l'implémentation OnClick de FileListBox1 , ajouter cette instruction:
procedure TForm1.FileListBox1Click(Sender: TObject);
begin
statusbar1.Panels.Items[0].Text:=FileListBox1.FileName;
SpeedButton1.onClick(Sender); //appuyer sur le bouton Play
end;
7-Dans l'implémentation OnDBClick de VideoWindow1 , ajouter cette instruction:
procedure TForm1.VideoWindow1DblClick(Sender: TObject);
begin
if VideoWindow1.FullScreen=true
then VideoWindow1.FullScreen:=false
else VideoWindow1.FullScreen:=true;
end;
7-Dans l'implémentation OnChange de TrackBar1, ajouter cette instruction:
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
FilterGraph1.Volume:=TrackBar1.Position;
end;
Il vous reste qu'appuyez sur sur la touche F9 pour compilez votre application, a ce niveau vous pouvez l'utiliser comme votre lecteur multimédia.
