Discussion :

[kurul1]

Bonjour à tous

Je vous explique mon problème

Je travaille sous C++ Builder et je désire faire lire en boucle plusieurs vidéos en même temps. Si j'utilise le composant MediaPlayer classique, ca rame.

Je me suis donc tourné vers le composant ActivX WindowsMediaPlayer pour lequel on peut spécifier le mode de lecture en boucle (setMode).

Or, je n'arrive justement pas à affecter le Mode en C++. Voir ici sur le forum C++Builder

J'ai essayer de faire la même chose en Delphi et là, aucun problème tout fonctionne et sans ramer.

Je voudrais donc si cela est possible créer une DLL en Delphi permettant la création d'un TWindowsMediaPlayer avec effectation du Mode à loop.

Voilà donc ce que j'ai écrit

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
 
library DLLMediaPlayer;
uses
  SysUtils,
  Classes,
  WMPLib_TLB in 'c:\program files\borland\bds\4.0\Imports\WMPLib_TLB.pas';
 
{$R *.res}
 
function CreerMediaPlayer(Appelant: TComponent):TWindowMediaPlayer;export;
var
  MediaPlayer: TWindowsMediaPlayer;
begin
  // On crée le MediaPlayer
  MediaPlayer := TWindowsMediaPlayer.Create(Appelant);
 
  // On renseigne son mode de lecture
  MediaPlayer.settings.setMode('loop', True);
 
  // On affecte le MediaPlayer comme retour de la fonction
  CreerMediaPlayer := MediaPlayer;
end;
exports CreerMediaPlayer;
 
 
begin
 
 
end.

Quand j'appelle ma fonction après l'avoir déclarer comme importer de la DLL, j'ai une erreur comme quoi je ne peux pas convertir un TWindowsMediaPlayer en TWindowsMediaPlayer *

J'ai besoin d'un pointeur sur un TWindowsMediaPlayer, comme puis-je faire pour que ma fonction m'en retourne un

Merci d'avance

[Aka Guymelef]

Bonjour,

alors sans aucune garantie :

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
 
library DLLMediaPlayer;
uses
  SysUtils,
  Classes,
  WMPLib_TLB in 'c:\program files\borland\bds\4.0\Imports\WMPLib_TLB.pas';
 
{$R *.res}
 
function CreerMediaPlayer(Appelant: TComponent):Pointer;export;
var
  MediaPlayer: TWindowsMediaPlayer;
begin
  // On crée le MediaPlayer
  MediaPlayer := TWindowsMediaPlayer.Create(Appelant);
 
  // On renseigne son mode de lecture
  MediaPlayer.settings.setMode('loop', True);
 
  // On affecte le MediaPlayer comme retour de la fonction
  CreerMediaPlayer := @MediaPlayer;
end;
exports CreerMediaPlayer;
 
 
begin
 
 
end.

[Paul TOTH]

YEARK !!!

on ne peut pas passer une instance d'objet Delphi d'une DLL à un Executation DELPHI sans utiliser ShareMem...alors pour passer à C++ Builder je te souhaite bien du plaisir

dans ce genre de situation, il faut créer un Wrapper de classe (ce qu'on fait généralement pour passer de C++ à Delphi d'ailleurs)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
function GetMediaPlayer:THandle; stdcall;
begin
 MediaPlayer:=TWindowsMediaPlayer.Create(nil);
 Result:=THandle(MediaPlayer);
end;
 
procedure FreeMediaPlayer(Player:THandle); stdcall;
begin
 TWindowsMediaplayer(Player).Free;
end;

en réalité, tu peux très bien garder le type TMediaPlayer DANS la DLL, mais du côté C++ tu considères que c'est un Handle opaque.

il faut aussi que tu ajoutes toutes les fonctions que tu utilises dans ta DLL...exemple (je ne connais pas cet objet donc j'invente) :

Code :

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

1
2
3
4
5
 
function MediaPlayerOpen(Player:TWindowsMediaPlayer; FileName:pchar):boolean; stdcall;
begin
 Result:=Player.Open(FileName);
end;

[kurul1]

Merci pour votre aide à tous les deux.
Je vais regarder ca.

[kurul1]

J'ai toujours un petit souci, comment je fait pour affecter mon Objet WindowsMediaPlayer à un Panel ?

[Lung]

J'ai toujours un petit souci, comment je fait pour affecter mon Objet WindowsMediaPlayer à un Panel ?

Visuellement, tu veux dire ?
En lui donnant son parent, non ?

Code :

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

WindowsMediaPlayer.Parent := Panel;