Systeme plugin avec DLL -> fonction external dynamiquement

Version imprimable

Salut a tous !!!

Voila je suis en train de faire un prog avec des plugins. En effet, J'ai un programme hote avec une listbox qui rexupère les noms de mes dll. Lorsque je click sur un des noms, il m'ouvre la dll qui contient une form et tout ce qui va avec à l'interieur de mon programme hote.

A l'époque ou je voulais faire ça, j'avais vu avec clorish (qui est a mon grand regret sur yahoo messenger que je ne prefere pas utiliser :( )
En gros, j'avais une fonction dans ma DLL qui m'ouvrait la form dans le parent window. Voici le principe :

Dll :
Code:

1 2 3 4 5 6 7 8 9 Procedure Launch(App : TApplication; MainForm : TForm); Begin App.CreateForm(Tmainppe, mainppe); // Remplacer par les types et variables adequates mainppe.ParentWindow := MainForm.Handle; mainppe.Show; End; Exports Launch;
Et voici le programme hote :
Code:

1 2 Procedure Launch(App : TApplication; MainForm : TForm); external '.\Project1.dll' name 'Launch';
Mais voila mon gros problème :

Je n'utilise pas forcement toujours les memes dll. Par contre elles ont toujours cette fonction à l'interieur. Donc comment pourrais-je faire pour ne pas avoir à forcement spécifier le nom de DLL dans la declaration sur mon programme hote (au niveau du external, c'est la ou ca me gene)?

Pour résumer : apres le external, il ne faut pas que je mette le nom du fichier DLL car je ne le connais pas à l'avance. Donc comment faire pour déclarer ma procédure launch ?

Merci d'avance
Z@X

11/04/2004, 20h24
Nono40

Il faut charger dynamiquement le librairie, fait une recherche dans le forum avec le mot LoadLibrary
11/04/2004, 21h28
zax-tfh

Salut NoNo

J'ai recherché sur le forum a propos de la fonction loadlibrary et j'ai fait l'essai. Ca ne marche pas car il me dit qu'il ne trouve pas ma procedure Launch qui fait partie de ma dll. Elle est pourtant déclarée en export. Je pense qu'il faut lui préciser dans le programme hote qu'il faut aller chercher cette fonction exportée mais comment faire vu que la dll est chargée avec loadlibrary ?
Merci d'avance
11/04/2004, 22h28
zax-tfh

En fait c'est bon j'ai récupéré un bout de code du forum et ca a l'air de fonctionner. Je n'aime pas trop ne pas comprendre ce qui est fait mais bon ca fonctionne donc c'est bien.

Merci :)
11/04/2004, 22h37
Nono40
C'est qu'il faut aussi donner l'adresse de la fonction en dynamique.

Voici la méthode : tu déclares la fonction comme suit :
Code:

1 2 3 4 Type TLaunch = Procedure (App : TApplication; MainForm : TForm); Var Launch :TLaunch;
ensuite tu cherches l'adresse de la fonction dans la librairie lue en dynamique :
Code:

1 2 3 @Launch := Nil; @Launch := GetProcAddress(HandleDll, 'Launch'); If @Launch=Nil Then AffErreur('Launch non trouvé');
Où HandleDll est le Handle retourné par la fonction LoadLibrary.

Tu utilises dans ton code la fonction Launch comme d'habitude, le compilateur va de lui-même gérer l'appel indirect dans ce cas.

[edit]10 minutes trop tard :lol: [/edit]
16/06/2005, 13h59
SubZero2

Citation:

Envoyé par zax-tfh

En fait c'est bon j'ai récupéré un bout de code du forum et ca a l'air de fonctionner. Je n'aime pas trop ne pas comprendre ce qui est fait mais bon ca fonctionne donc c'est bien.

Merci :)

Et il est ou ce bout de code !? :wink:

PAskeu que je suis dans le meme cas que toi et ca ne compile pas chez moi ... :roll:
16/06/2005, 14h14
zax-tfh

Salut subzero2

Euhhh, c'est a dire que depuis, de l'eau a coulé sous les ponts... lol
Ca fait quand meme un an, et là je viens de switcher vers le monde macintosh :D

Bon pour revenir sur le sujet, en gros je ne me souviens plus de ce qu'il fallait faire mais si tu me rafraichis la memoire en m'expliquant là ou ca coince, genre avec des bouts de codes et le probleme bien expliqué, ca devrait aller.

Sinon je te conseille de faire une recherche sur le forum des messages de Clorish.
Il a fait tout un topic tutoriel la dessus mais bon, c'est pas trop evident, enfin je sais que je n'avais po suivi car ca me paraissait trop compliqué pour debuter avec les dll.

Alors bon, fais comme tu veux, demandes moi ou mates les tutos, en tout cas je serais la si t'as besoin ^^

@++

Merci de te manifester ! :wink:

Le bout de code :

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
type
  Tata = procedure GetBmpFromRessource(var BmpD, BmpG, BmpUl, BmpL: TBitmap)
 
  TMenuDeroulant = class(TComponent)
  Panel: TPanel;
  BtnMenu: TSpeedButton;
  BtnLock: TSpeedButton;
  Timer: TTimer;
 
   private
      BmpD, BmpG, BmpUl, BmpL: TBitmap;
   public
      constructor Create(AOwner: TComponent); override;
      destructor Destroy; override;
 
      procedure Init(AParent: TWinControl; Pos: TPoint);
   published
 
   end;
 
implementation
 
{ TMenuDeroulant }
constructor TMenuDeroulant.Create(AOwner: TComponent);
var
   NomDll: String;
   HDll: DWORD;
begin
  inherited;
   NomDll:='MenuRes.dll';
   hDLL:=LoadLibrary(PChar(NomDll)); // chargement de la dll
   if hDLL=0 then ShowMessage('erreur au chargement de la DLL');
   GetBmpFromRessource:=GetProcAddress(hDLL,'GetBmpFromRessource');  // affectation de la fonction de la dll à la fonction du programme
 
   // Cree les 4 images dont on a besoin !
   BmpD := TBitmap.Create;
   BmpG := TBitmap.Create;
   BmpUl := TBitmap.Create;
   BmpL := TBitmap.Create;
   GetBmpFromRessource(BmpD, BmpG, BmpUl, BmpL);
 
   Panel := TPanel.Create(AOwner);
   BtnMenu := TSpeedButton.Create(AOwner);
   BtnLock := TSpeedButton.Create(AOwner);
   Timer := TTimer.Create(AOwner);
end;

Et la ou ca coince :

Code:

Tata = procedure GetBmpFromRessource

Il me dit "Directive inconnue 'GetBmpFromRessource' " :roll:
Je comprend pas bien le fait de declarer une variable de type procedure ... :oops:

17/06/2005, 15h48
SubZero2

Personne aurait une tite idée ?
Ne serait que tres petite ?
:arf:
17/06/2005, 21h38
Laurent Dardenne
Le prototype d'un type procédure ne nécessite pas de nom
Code:

1 2 type Tata = procedure (var BmpD, BmpG, BmpUl, BmpL: TBitmap);
La touche F1, en ayant cliqué au préalable sur l'erreur, pouvait t'orienter :

Citation:

La directive est probablement mal orthographiée ou un point-virgule est manquant.
18/06/2005, 00h35
SubZero2

je me doute qu'elle etait mal orthographiée :wink:
c'est bien pour ca qu'il y avait une erreur :roll:

Merci kan meme pour cette reponse, je test ca lundi.
Bon week end a tous !

Bon ca marche pas mal pour ce qui est des declarations par contre maintenant, j'ai une violation d'accés au moment ou j'appel cette fonction.

le code de la DLL:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
library MenuRes;
 
uses
   Graphics;
 
{$R Ressources.res}
procedure GetBmpFromRessource(var BmpD, BmpG, BmpUl, BmpL: TBitmap); export
begin
   BmpD.LoadFromResourceName(HInstance, 'DROITE');
   BmpG.LoadFromResourceName(HInstance, 'GAUCHE');
   BmpUl.LoadFromResourceName(HInstance, 'UNLOCK');
   BmpL.LoadFromResourceName(HInstance, 'LOCK');
end;
end.

et la ou je l'appel :

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
unit MyUnit;
 
interface
 
uses
   Classes, ExtCtrls, Buttons, Graphics, Controls, Types, Windows, Dialogs;
 
type
  TGetRes = procedure (var BmpD, BmpG, BmpUl, BmpL: Graphics.TBitmap);
 
  TMenuDeroulant = class(TComponent)
 
   private
      GetBmpFromRessource: TGetRes;
      BmpD, BmpG, BmpUl, BmpL: Graphics.TBitmap;
   public
   published
 
   end;
 
implementation
 
{ TMyUnit }
constructor TMenuDeroulant.Create(AOwner: TComponent);
var
   NomDll: String;
   HDll: DWORD;
begin
  inherited;
   NomDll:='MenuRes.dll';
   hDLL:=LoadLibrary(PChar(NomDll)); // chargement de la dll
   if hDLL=0 then ShowMessage('erreur au chargement de la DLL');
   GetBmpFromRessource := GetProcAddress(hDLL,'GetBmpFromRessource');  // Affecte la fonction de la dll au programme
 
   // Charge les 4 images dont on a besoin !
   BmpD := Graphics.TBitmap.Create;
   BmpG := Graphics.TBitmap.Create;
   BmpUl := Graphics.TBitmap.Create;
   BmpL := Graphics.TBitmap.Create;
   GetBmpFromRessource(BmpD, BmpG, BmpUl, BmpL); // et la ca plante ...

nb: La ressource existe bien

20/06/2005, 12h35
Pierre Castelain
Tu ne peux pas utiliser une méthode comme point d'entrée de la dll. Il faut utiliser une fonction "classique". Donc, sort la déclaration de GetBmpFromRessource de la classe TMenuDeroulant et tout devrait rentrer dans l'ordre.

Encore un truc :
Code:

1 2 @GetBmpFromRessource:=GetProcAddress(hDLL,'GetBmpFromRessource'); // affectation de la fonction de la dll à la fonciion du programme
C'est l'adresse de la fonction qu'on récupère par l'appel à GetProcAddress, il faut donc indiquer cela au compilateur en insérant le signe @ devant le nom de la variable.

Qu'entend tu par Fonction "classique" ??

Sinon j'ai fait ca mais rien ne change :

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
unit UnitMenuDeroulant;
 
interface
 
uses
   Classes, ExtCtrls, Buttons, Graphics, Controls, Types, Windows, Dialogs;
 
type
   TGetRes = procedure (var BmpD, BmpG, BmpUl, BmpL: Graphics.TBitmap);
 
  TMenuDeroulant = class(TComponent)
  Panel: TPanel;
  BtnMenu: TSpeedButton;
  BtnLock: TSpeedButton;
  Timer: TTimer;
 
   private
      BmpD, BmpG, BmpUl, BmpL: Graphics.TBitmap;
   public
      procedure LoadDll;
   published
 
   end;
 
var
   GetBmpFromRessource: TGetRes;
   NomDll: String;
   hDLL:THandle;
 
implementation
 
{ TMenuDeroulant }
procedure TMenuDeroulant.LoadDll;
begin
   NomDll:='MenuRes.dll';
   hDLL:=LoadLibrary(PChar(NomDll)); // chargement de la dll
   if hDLL=0 then ShowMessage('erreur au chargement de la DLL');
   @GetBmpFromRessource:=GetProcAddress(hDLL,'GetBmpFromRessource');  // affectation de la fonction somme de la dll à la fonction somme de notre programme
 
   if @GetBmpFromRessource = nil then
   begin
      MessageDlg('Fonction non chargée !', mtWarning, [mbOK], 0);
      FreeLibrary(hDLL);
      Exit;
   end;
end;