Utilisation du pack de composants DSPACK avec Delphi 2005

Vous allez donc commencer bien entendu par télécharger le pack lui-même à partir du site www.progdigy.com en cliquant sur le lien DSPACK. Après l’avoir téléchargé, installez-le sur votre PC. Pour information, je l’ai installé dans le répertoire …\Borland\BDS 3.0\. Voici ce que vous devriez obtenir :

Une fois cette opération effectuée, il va falloir donner à Delphi l’emplacement des bibliothèques de fonctions DSPACK, comme suit :

• cliquez sur Outils->Options ;
• faites dérouler la liste Options d’environnement -> Options Delphi -> Bibliothèque Win32 ;
• cliquez sur Ajouter…
• ajoutez les chemins d’accès de DSPACK.

Vous devez obtenir ceci :

Une fois cette phase terminée vous devez apporter quelques modifications au projet DSPACK. En effet ce pack a été créé à l’origine pour être utilisé à partir des versions 5, 6 et 7 de Delphi. Donc il n’est pas possible d’installer directement le pack et l’utiliser tel quel. Pour vous en convaincre, ouvrez le projet DirectX9_D7.bds. Il vous demande sous quelle plateforme vous voulez convertir le projet. Convertissez le projet sous la plateforme Win32. Compilez le projet. Une série d’erreurs se produit.

Il faut donc apporter un certain nombre de changements au code de DirectX9_D7. Voici les modifications à apporter au code :

• dans le fichier DirectDraw.pas remplacez :
  PDirectDrawSurface = IDirectDrawSurface
  par :
  PDirectDrawSurface = ^IDirectDrawSurface ;
• dans DSUtil.pas Ajoutez l'unité variants dans la clause uses ;
• à la ligne 3072 remplacez :
  result := nil;
  par
  result := NULL;
• enfin il faut rajouter dans les uses de DSeditors cette ligne :
  {$IFDEF VER170} DesignIntf, DesignEditors, {$ELSE}.

Ensuite il faut installer le package proprement dit dans la liste des composants. Avant toute chose vous devez avoir compilé les fichiers de projets convertis : DirectX9_D7.bdsproj, DsPack_D7.bdsproj et DsPackDesign_D7.bdsproj. Une fois ces trois fichiers compilés, vous devez installer les packs de conception en cliquant droit sur le fichier DsPackDesign_D7.bpl et choisir la commande Installer. Comme ceci :

Si tout s’est bien déroulé, vous devriez voir apparaître dans la liste des composants toute une série dans la catégorie DSPACK. Comme ceci :

Voilà maintenant vous êtes prêt à développer votre première application multimédia. Cependant avant de commencer le développement d’une telle application, vous allez avoir besoin d’un certain nombre de filtres et de codecs, pour pouvoir gérer le plus grand nombre de formats possible.

Ceux-ci peuvent être installés grâce à l’installation d’applications de type Media Player (Windows Media Player, VLC, ou encore Media Player Classic que je vous recommande), ou d’applications de lecture de DVD (WInDVD par exemple), mais aussi de montage vidéo (Avid, Pinnacle, etc.), ou encore, en ce qui me concerne, après l’installation d’un périphérique d’acquisition ou de diffusion comme la Pinnacle PCTV/USB…

Voici deux codecs en téléchargements gratuits qui vous aideront à réaliser votre première application :

• K-Lite Codec
• Matroska Pack Full

Tout d'abord, créons une fiche et posons les composants suivants :

• un composant TFilterGraph ;
• un composant TDSWindowVideoEx2 ;
• un composant TDSTrackBar.

Vous devriez vous retrouver avec ses composants sur la fiche :

Nous allons maintenant voir comment ces composants doivent être mis en œuvre afin de produire un Media Player de base avec Delphi.

Cette fonction multimédia met en œuvre les trois composants que l'on a déposés sur la fiche. Pour résumer, nous allons lire le fichier via le filterGraph et nous allons visionner ce fichier sur le composant TDSVideoWindowEx2. La TrackBar va nous permettre de contrôler l'avancement de la lecture. Pour réaliser ceci, modifiez les propriétés des composants comme suit :

• en ce qui concerne le composant DSVideoWindow, mettez la propriété FilterGraph à FilterGraph1 (sélection par la combobox) ;
• en ce qui concerne le composant TFilterGraph, mettez la propriété Mode à la valeur gmNormal ;
• en ce qui concerne le composant TTrackBar, positionnez la propriété FilterGraph sur la valeur FilterGraph1 composant TDSTrackBar.

Maintenant vous êtes prêt pour accéder directement au code. Nous allons nous intéresser à la fonction de lecture dont voici le code :

if not filtergraph1.active then begin
filtergraph1.active:=true;
filtergraph1.RenderFile(fichier);

end;
filtergraph1.Play;

Comme vous pouvez le constater, tout se fait par l'intermédiaire du filterGraph. Il faut l'activer en testant s'il n'est pas déjà actif. La fonction RenderFile permet la lecture d'un fichier et prend en paramètre le nom du fichier de type string. Une fois actif, il ne reste plus qu'à le mettre en lecture via la fonction Play. Maintenant que l'on sait comment lire un fichier, on va mettre en œuvre la fonction qui permet de mettre en pause le filterGraph. Voici la fonction :

filtergraph1.Pause

Cela se résume donc à l'appel de la fonction Pause. Maintenant que l'on sait comment mettre en pause notre composant, nous allons créer la fonction permettant de stopper la lecture de notre fichier multimédia, cela s'effectue par le code suivant :

filtergraph1.Stop;
filtergraph1.Active:=false;

Comme on peut le constater, il suffit d'arrêter la lecture du fichier par l'intermédiaire de la fonction Stop, et ensuite de désactiver le filterGraph. Nous avons vu les principales fonctions qui permettent de gérer la lecture d'un fichier multimédia.

Maintenant, voyons comment gérer l'affichage des vidéos (Mode Plein Écran, affichage étiré, affichage LetterBox, etc.) Nous pouvons lui associer une fonction permettant la lecture en plein écran. Ceci s'effectue par la fonction suivante :

If DSVideoWindowEx21.FullScreen then
  begin
    DSVideoWindowEx21.FullScreenTopMost := False;
    DSVideoWindowEX21.SetBounds(0,0,337, 225);

    DSVideoWindowEx21.NormalPlayback;
    end
  else                           
  begin
      DSVideoWindowEx21.FullScreenTopMost := True;
      DSVideoWindowEX21.SetBounds(0,0,Screen.Width, Screen.Height);
      DSVideoWindowEx21.StartFullScreen;

  end;
  btnFullScreen.Down := DSVideoWindowEx21.FullScreen;

Nous pouvons voir que l'affichage en mode plein écran se fait par l'intermédiaire de l'objet DSVideoWindowEx2. La gestion du mode se fait par la propriété booléenne FullScreen. Si la propriété est positionnée à la valeur True, on réinitialise l'objet pour que la vidéo soit lue en mode normal par l'intermédiaire de la fonction NormalPlayBack. On réinitialise de même les coordonnées de la vidéo pour qu'elle puisse être contenue dans la zone cliente. Dans le cas contraire (passage du mode normal vers le mode plein écran), il suffit de réinitialiser les coordonnées de la vidéo pour qu'elle puisse prendre toute la surface de l'écran. Le Mode est activé par la fonction StartFullScreen. Il existe trois autres modes d'affichage pour l'objet DSVideoWindowEx2. Ces trois affichages sont modifiables grâce à la propriété AspectRatio de l'objet. Pour par exemple activer l'option Crop vous allez utiliser la ligne de code suivante :

DSVideoWindowEx21.AspectRatio := rmCrop;

pour activer l'option LetterBox vous allez utiliser ce code :

DSVideoWindowEx21.AspectRatio := rmLetterBox;

pour activer l'option Stretched vous allez utiliser le code suivant :

DSVideoWindowEx21.AspectRatio := rmStretched;

Donc maintenant vous savez changer le mode d'affichage de votre vidéo. On va voir dans la prochaine partie comment contrôler les couleurs.

Nous allons voir maintenant comment, par l'intermédiaire de l'objet DSVideoWindow2, il est possible d'agir sur les paramètres de luminosité, la teinte, le contraste, et la saturation. Pour réaliser cette opération, vous aurez besoin des composants suivants :

Il faut noter que les propriétés Frequency et Max de chaque TrackBar sont assez différentes, il faut donc les initialiser comme suit :

• en ce qui concerne le composant tbLuminosite, vous allez mettre la propriété Frequency à 1000 et la propriété Max à 10000 ;
• en ce qui concerne le composant tbContraste, vous allez mettre la propriété Frequency à 1000 et la propriété Max à 10000 ;
• en ce qui concerne le composant tbTeinte, vous allez mettre la propriété Frequency à 36 et la propriété Max à 180 ;
• en ce qui concerne le composant tbSaturation, vous allez mettre la propriété Frequency à 2000 et la propriété Max à 20000.

Pour chaque TrackBar on va utiliser le gestionnaire d'événements OnChange, qui va nous permettre de changer les paramètres directement sur la vidéo. Par exemple pour la luminosité on aura le code suivant :

procedure TfrmControleCouleur.tbLuminositeChange(Sender: TObject);
begin
frmMediaPlayer.DSVideoWIndowEx21.ColorControl.Brightness := tbLuminosite.Position;
end;

pour le contraste on aura le code suivant :

procedure TfrmControleCouleur.tbContrasteChange(Sender: TObject);
begin
frmMediaPlayer.DSVideoWIndowEx21.ColorControl.Contrast := tbContraste.Position;

end;

pour la teinte on aura le code suivant :

procedure TfrmControleCouleur.tbTeinteChange(Sender: TObject);
begin
frmMediaPlayer.DSVideoWIndowEx21.ColorControl.Hue := tbteinte.Position;

end;

pour la saturation on aura le code suivant :

procedure TfrmControleCouleur.tbSaturationChange(Sender: TObject);
begin
frmMediaPlayer.DSVideoWIndowEx21.ColorControl.Saturation := tbSaturation.Position;

end;

Il est possible de restaurer les valeurs initiales de la vidéo par l'intermédiaire de la fonction RestoreDefault

frmMediaPlayer.DSVideoWindowEx21.ColorControl.RestoreDefault;

Nous allons maintenant voir comment gérer le volume sonore. Ajoutez un Label, et une TrackBar sur votre fiche comme ceci :

La propriété Frequency de la TrackBar doit être placée à 1000 et la propriété Max à 10000. Maintenant on va écrire le code permettant de modifier le volume en fonction de l'événement OnChange de la trackBar.

procedure TfrmMediaPlayer.tbVolumeChange(Sender: TObject);
begin
tbVolume.SelEnd := tbVolume.Position;
if FilterGraph1.Active then
FilterGraph1.Volume := tbVolume.Position;
end;

Comme vous pouvez le constater, la gestion du volume se fait par l'objet FilterGraph1 grâce à sa propriété Volume.