Discussion :

[Charly910]

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 :

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

  Result := DefaultInterface.newMedia(bstrURL);

Savez vous pourquoi ?

Merci
A+
Charly

[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" ?

[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

[Charly910]

Bonjour,

merci pour vos réponses

J'appelle directement NewMedia :

Code :

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

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

WMP est de type TWindowsMediaPlayer

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

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
 
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 :

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

    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

[Cirec]

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 :

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

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

[/Edit]

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
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,
@+

[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