[D7] ActiveX Windows Media Player

Version imprimable

27/09/2021, 18h38
Charly910

[D7] ActiveX Windows Media Player

Bonjour,

j'essaye de reproduire l'exemple d'utilisation de l'ActiveX Windows Media Player de Julien Lelong à cette adresse

J'ai un problème dans la partie création d'une PlayList :

EOleException 'Cette interface n'est pas prise en charge'

Dans la fonction NewMedia de WMPLib_TLB sur l'instruction :

Code:

Result := DefaultInterface.newMedia(bstrURL);

Savez vous pourquoi ?

Merci
A+
Charly
28/09/2021, 09h13
popo

L'activeX propose pourtant bien cette méthode.
https://docs.microsoft.com/en-us/win...layer-newmedia

Il y a quoi derrière "DefaultInterface" ?
28/09/2021, 10h03
ShaiLeTroll

Normalement le DefaultInterface devrait être une variable nommé par défaut WindowsMediaPlayer1 lorsque l'on utilise le composant installé depuis la Palette pour le poser sur une forme.

Une tentative d'allocation dynamique ?

DefaultInterface est peut-être une propriété du TWindowsMediaPlayer, en général, ce retourne l'interface sous-jacente à l'objet TOleServer, effectivement c'est la structure classique généré par l'importateur d'objet COM, les fonctions public du TWindowsMediaPlayer sont en fait une encapsulation de l'interface pointée par DefaultInterface
Donc autant directement utiliser newMedia depuis le TWindowsMediaPlayer au lieu de newMedia depuis DefaultInterface

Bonjour,

merci pour vos réponses

J'appelle directement NewMedia :

Code:

Video := F_Princ.WMP.newMedia(OpenDialog.FileName);

WMP est de type TWindowsMediaPlayer

NewMedia se trouve dans WMPLib_TLB.pas dont voici un extrait :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 function newPlaylist(const bstrName: WideString; const bstrURL: WideString): IWMPPlaylist; dispid 41; ... function TWindowsMediaPlayer.newMedia(const bstrURL: WideString): IWMPMedia; begin Result := DefaultInterface.newMedia(bstrURL); end; procedure TWindowsMediaPlayer.openPlayer(const bstrURL: WideString); begin DefaultInterface.openPlayer(bstrURL); end; procedure Register; begin RegisterComponents(dtlOcxPage, [TWindowsMediaPlayer]); end;
DefaultInterface est une propriété de TWindowsMediaPlayer = class(TOleControl)

Code:

property DefaultInterface: IWMPPlayer4 read GetControlInterface;

Je ne sais pas comment appeler NewMedia directement ?

L'exemple posté sur le site par Jp Lelong doit surement être fonctionnel. Je ne dois pas avoir la bonne version de l'activeX ?

A+
Charly

Bonjour,

j'ai eu le même problème dans le passé et javais fait ceci vite fait qui
m'a permis de contourner le problème :
[Edit] je viens de faire le teste et ça ne fonctionne plus sur Win7 !!
j'avais fait ça sous XP.
Désolé pour la fausse joie
Alors il semblerait que lors de mon précédent teste je sois tombé sur les deux fichiers
qui déclenche une erreur "paramètre incorrecte" !!! je ne sais pas encore ce qui pose problème.
donc le code fonctionne il ajoute le fichier dans la playlist courante en utilisant AddToPlayList.
ou directement comme ceci:

Code:

WindowsMediaPlayer1.currentMedia := WindowsMediaPlayer1.newMedia(OpenDialog1.FileName);

[/Edit]

Code:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
unit ExtWMPLib;
 
interface
uses WMPLib_TLB, classes;
 
type
  TWindowsMediaPlayer = class(WMPLib_TLB.TWindowsMediaPlayer)
  private
    function GetAutoPlay: Boolean;
    procedure SetAutoPlay(const Value: Boolean);
  public
    function AddToPlayList(const bstrName: WideString; aPlayList: IWMPPlaylist = nil): Boolean; overload;
    function AddToPlayList(const Names: TStrings; aPlayList: IWMPPlaylist = nil): Boolean; overload;
    function LoadPlayList(const bstrName: WideString; const Create: WordBool = False): Boolean;
    function newPlaylist(const bstrName: WideString{; const bstrURL: WideString}): IWMPPlaylist;
    function newMedia(const bstrURL: WideString): IWMPMedia;
    property AutoPlay: Boolean read GetAutoPlay write SetAutoPlay;
  end;
implementation
 
{ TWindowsMediaPlayer }
 
function TWindowsMediaPlayer.AddToPlayList(const bstrName: WideString;
  aPlayList: IWMPPlaylist): Boolean;
var I: Integer;
begin
  Result := False;
  if aPlayList = nil then
    aPlayList := DefaultInterface.currentPlaylist;
  if Assigned(aPlayList) then
    {with DefaultInterface do }begin
      for I := 0 to aPlayList.count-1 do
        if bstrName = aPlayList.Item[I].sourceURL then Exit;
      aPlayList.appendItem(newMedia(bstrName));
      Result := True;
    end;
end;
 
function TWindowsMediaPlayer.AddToPlayList(const Names: TStrings;
  aPlayList: IWMPPlaylist): Boolean;
var I: Integer;
  //SL: TStringList;
begin
  Result := False;
  if not Assigned(Names) then Exit;
  TStringList(Names).Sorted := True;
  for I := 0 to Names.Count-1 do begin
    Result := AddToPlayList(Names[I]);
  end;
end;
 
function TWindowsMediaPlayer.GetAutoPlay: Boolean;
begin
  Result := DefaultInterface.settings.autoStart;
end;
 
function TWindowsMediaPlayer.LoadPlayList(
  const bstrName: WideString; const Create: WordBool = False): Boolean;
begin
  Result := False;
  with DefaultInterface.playlistCollection.getByName(bstrName) do
  begin
    if Count > 0 then begin
      DefaultInterface.currentPlaylist := Item(0);
      Result := True;
    end
    else
    if Create then begin
      DefaultInterface.currentPlaylist := newPlaylist(bstrName);
      Result := True;
    end;
  end;
end;
 
function TWindowsMediaPlayer.newMedia(
  const bstrURL: WideString): IWMPMedia;
begin
  Result := DefaultInterface.mediaCollection.add(bstrURL);
end;
 
function TWindowsMediaPlayer.newPlaylist(const bstrName{, bstrURL}: WideString): IWMPPlaylist;
begin
  Result := DefaultInterface.playlistCollection.newPlaylist(bstrName);
end;
 
procedure TWindowsMediaPlayer.SetAutoPlay(const Value: Boolean);
begin
  DefaultInterface.settings.autoStart := Value;
end;
 
end.

tu déposes un TWindowsMediaPlayer par la palette
et tu ajoutes cette unité en fin des uses après WMPLib_TLB
Ex.(uses Windows, Messages, SysUtils, ... , WMPLib_TLB, ExtWMPLib; )
et ça devrait fonctionner ;)

Cordialement,
@+

30/09/2021, 09h44
Charly910

Merci Cirec,

je vais tester ta solution.

En attendant, j'avais crée une Playlist "a la main" sous forme de fichier Txt dont je relis les lignes qui contiennent le nom des vidéos et je joue chaque vidéo dans une boucle.

A+
Charly

Bonjour Cirec,

j'ai essayé, mais j'ai une EOleException avec 'Pointeur non valide' sur l'instruction MaPlayList.InsertItem :

Code:

1
2
3
4
5
6
7
      if(OpenDialog.Execute()) then
        begin
          // On crée le média et on l'ajoute dans la PlayList ainsi que dans le ListBoxPlayList
          F_Princ.WMP.currentMedia := F_Princ.WMP.newMedia(OpenDialog.FileName);
          ListBoxPlayList.Items.Add(OpenDialog.FileName);
          F_Princ.maPlayList.insertItem(ListBoxPlayList.Items.Count-1, Video);   //  <===  ici
        end;

Je vais essayer avec AddToPlayList

A+
Charly

Avec AddToPlayList ça fonctionne bien :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
      if(not(Assigned(F_Princ.maPlayList))) then
        begin
          F_Princ.maPlayList := F_Princ.WMP.playlistCollection.newPlaylist(EdTitrePlayList.Text);
        end
      else
        begin
          F_Princ.maPlayList.name := EdTitrePlayList.Text;
        end;
 
      if(OpenDialog.Execute()) then
        begin
          F_Princ.WMP.AddToPlayList(OpenDialog.FileName)  ;
          ListBoxPlayList.Items.Add(OpenDialog.FileName);
        end;

Merci Cirec
A+
Charly

Citation:

Envoyé par Charly910

Bonjour Cirec,

j'ai essayé, mais j'ai une EOleException avec 'Pointeur non valide' sur l'instruction MaPlayList.InsertItem :

Code:

1
2
3
4
5
6
7
      if(OpenDialog.Execute()) then
        begin
          // On crée le média et on l'ajoute dans la PlayList ainsi que dans le ListBoxPlayList
          F_Princ.WMP.currentMedia := F_Princ.WMP.newMedia(OpenDialog.FileName);
          ListBoxPlayList.Items.Add(OpenDialog.FileName);
          F_Princ.maPlayList.insertItem(ListBoxPlayList.Items.Count-1, Video);   //  <===  ici
        end;

Je vais essayer avec AddToPlayList

A+
Charly

que contient "Video" comment et ou il est assigné ?
et est ce que "MaPlayList" est valide à ce moment ?

moi je verrai plutôt quelque chose comme:

Code:

1
2
3
4
5
6
7
      if(OpenDialog.Execute()) then
        begin
          // On crée le média et on l'ajoute dans la PlayList ainsi que dans le ListBoxPlayList
          F_Princ.WMP.currentMedia := F_Princ.WMP.newMedia(OpenDialog.FileName);
          ListBoxPlayList.Items.Add(OpenDialog.FileName);
          F_Princ.maPlayList.insertItem(ListBoxPlayList.Items.Count-1, F_Princ.WMP.currentMedia);   //  <===  ici
        end;

Cordialement
@+

30/09/2021, 17h32
Charly910

Oui, tu as raison, j'avais mal bricolé le code !

A+
Charly