DLL Delphi pour utilisation sous C++ Builder

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:

---

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

Bonjour,

alors sans aucune garantie :

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

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.

---

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

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:

---

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:

---

1 2 3 4 5

function MediaPlayerOpen(Player:TWindowsMediaPlayer; FileName:pchar):boolean; stdcall; begin Result:=Player.Open(FileName); end;

---

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

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

Citation:

---

Envoyé par kurul1

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:

---

WindowsMediaPlayer.Parent := Panel;

---

Le problème c'est que mon Panel est créé en C++ et que je veux affecter le WindowsMediaPlayer créer grace à la DLL à ce Panel

Il te faut peut-être utiliser ParentWindow, alors.
Si j'ai bien compris l'aide, ca prend le Handle du parent.

j'arrive pas à savoir quel type de variable je dois passer à ma DLL correspondant au Handle de mon Panel !

Quelqu'un saurait-il comment faire ?