Discussion :

[Hermite]

Bonjour à tous.

Je cherche un moyen d'intégrer un player vidéo dans une application VCL.NET.

Evironnement : RAD Studio 2007
Framework : 2.0
Language utilisé : Delphi (VCL.Net)

Je pensais avoir deux possibilité :
- importer l'activeX de Windows Media Player
- utiliser microsoft.directx.audioVideoplayback.Video
Le TMediaplayer ne convient pas car il ne supporte pas les codecs installés sur la machine.

Dans le premier cas (import de l'activeX Media Player), Delphi me créer un Interop.WMPLib.dll à partir duquel j'arrive bien à accéder aux différentes classes, notamment le WindowsMediaPlayerClass.
Le problème étant qu'aucune propriété ne permet de lui affecter un parent. Résultat, la lecture d'une vidéo se fait, mais en invisible.

Pour ce qui est du DirectX, une fenêtre est automatiquement créé à la première lecture. Ceci pourrait être acceptable si on pouvait contrôler la-dite fenêtre, c'est à dire au moins lui spécifier de rester au dessus du reste de l'application et la fermer par programmation. Mais aucune méthode d'accès ne semble disponible. Il y a bien une propriété Owner sur l'objet Video, mais celle-ci ne supporte qu'un Control (Winform, et non VCL.net) et donc impossible de la renseigner.

Dans l'idéal, je cherche à afficher la vidéo dans un TPanel, ou un autre composant, peu importe. Tant que je peux contrôler la lecture (play, stop, position). Je souhaite aussi ne pas utiliser de composant nécessitant une installation sur le poste de l'utilisateur.

Si quelqu'un à une petite piste, cela me serait d'une grande aide ^^.

[Hermite]

Après pas mal d'essais, voici une solution que j'ai finit par trouver.
Cette solution se base sur l'objet video de DirectX.

Dans les Uses, il faut déclarer :
system.Windows.Forms
microsoft.directx.AudioVideoPlayback (penser à l'ajouter dans les références, nécessite le redistributable trouvable ici si vous ne l'avez pas dans la liste :http://www.microsoft.com/downloads/d...9-ee6407ed1a91 )

Dans une procedure qui permet d'ouvrir une vidéo :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 
procedure OpenFile(vFileName:TFileName);
// VideoForm est une variable global (ou une propriété)
  if not assigned(VideoForm) then
  begin
 
  // Notez qu'on crée ici une form WinForm et pas VCL.net
    VideoForm := form.Create;
  // permet de ne pas voir la form dans la barre des tâches en plus du bouton de l'application hôte
    VideoForm.ShowInTaskbar := false; 
 
  // les deux lignes ci-dessous pour avoir une form sans bordure ni bouton pour fermer. Un simple panneau gris en somme.
   VideoForm.ControlBox := false;
   VideoFOrm.FormBorderStyle := FormBorderStyle.none;
 
  // ici on on définit le parent de la form. dans le cas présent, j'ai créé un composant d'où le Self.Handle.
  // On pourrait utiliser à la place un panel, (panel1.handle)
  Windows.SetParent(THandle(VideoForm.Handle),self.Handle);
  end;
 
  // Initialisation de l'object Microsoft.DirectX.AudioVideoPlayBack.Video
  VideoFile := Video.Create(vFileName,false);
 
  // On lui affecte notre form WinForm en tant que propriétaire.
  // La vidéo sera alors diffusée sur toute la surface de la form
  VideoFile.Owner := VideoForm;
  VideoForm.Show;
 
// voir plus bas
  ResizeVideoPanel;
end;

En l'état, la vidéo est diffusée sur une form contenue dans un control (composant perso, panel...)

Il ne reste plus qu'à gérer la taille de la vidéo et sa position dans le control hote. La procédure ResizeVideoPanel s'en chargera. Il faudra penser à l'ajouter à un évennement OnResize dans le cas où le control hôte venait à être redimentionné.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
procedure ResizeVideoPanel;
begin
  // Cette procédure étant dans un OnResize, on vérifie que la form existe bien
  if assigned(VideoForm) then
  begin
 
    // On affiche la vidéo en conservant l'aspect ratio et en la centrant dans le control hôte
    if (videoFile.DefaultSize.Width / VideoFile.DefaultSize.Height) > (Width / Height) then
    begin
      VideoForm.Width := Width;
      VideoForm.Height := VideoFile.DefaultSize.Height * VideoForm.Width div VIdeoFile.DefaultSize.Width;
      VideoForm.SetDesktopBounds(0, (Height - VideoForm.Height)div 2,VideoForm.Width,VideoForm.Height);
    end
    else
    begin
      VideoForm.Height := Height;
      VideoForm.Width := VideoFile.DefaultSize.Width * VideoForm.Height div VideoFile.DefaultSize.Height;
      VideoForm.SetDesktopBounds((Width - VideoForm.Width) div 2,0,VideoForm.Width,VideoForm.Height);
    end;
  end;
end;

Voilà, je pense ne rien avoir oublié. Comme je l'ai dit j'ai intégré tout ça dans un composant qui intègre toutes les méthodes pour manipuler la vidéo. J'ai extrait le code en le modifiant pour qu'il soit utilisable de façon générale, mais il se peu qu'il y ait quelques erreurs ^^.

A noter qu'avec ce code on devrait pouvoir lire toutes les vidéos dont le codec est installé sur le poste client.

Bon coding à vous ^^.