Problème avec la "Gestion des bibliothèques dynamiques"

**GoustiFruit** · 25/05/2006, 17h35

Bonjour,

J'ai un soucis avec le PDF "Gestion des bibliothèques dynamiques", extrait du bouquin Delphi Studio 7 qui est en téléchargement sur votre site (et ici je crois: http://www.eyrolles.com/Chapitres/9782212111439/19.pdf): j'ai recopié tout le code du paragraphe "Réalisation de plug-ins" mais il doit y avoir une erreur parce que pour "l'application hôte" il y a une procédure PluginClick qui n'est détaillée nul part et qui est utilisée lors de la création d'un menuitem, je n'arrive pas à trouver à quoi ça correspond ?
Est-ce que quelqu'un pourrait m'expliquer, ou m'envoyer le code corrigé pour que j'essaye d'analyser et de comprendre.

Merci d'avance

**GoustiFruit** · 25/05/2006, 21h27

J'ai modifié quelques lignes et ça marche maintenant, mais j'aimerais savoir si c'est correct ou pas ?

Dans l'unité "Plugins"...

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
TPlugin = class
  private
    fHandle: THandle;
    fInit: TInitPlugin;
    fOptions: TPluginOptions;
  public
    constructor Create(FileName: string);
    destructor Destroy; override;
    procedure DoClick;
    property Caption: PChar read fOptions.Caption;
    property ShortCut: TShortCut read fOptions.ShortCut;
    property Bitmap: THandle read fOptions.Bitmap;
  end;

(...)

procedure TPlugin.DoClick;
begin
  if @fOptions.OnClick <> nil then fOptions.OnClick;
end;

devient...

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
TPlugin = class
  private
    fHandle: THandle;
    fInit: TInitPlugin;
    fOptions: TPluginOptions;
  public
    constructor Create(FileName: string);
    destructor Destroy; override;
    procedure DoClick(Sender: TObject);
    property Caption: PChar read fOptions.Caption;
    property ShortCut: TShortCut read fOptions.ShortCut;
    property Bitmap: THandle read fOptions.Bitmap;
  end;

(...)

procedure TPlugin.DoClick(Sender: TObject);
begin
  if @fOptions.OnClick <> nil then fOptions.OnClick;
end;

Dans l'unité de l'application hôte...

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
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    PluginsMenu: TMenuItem;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    PlugList: TList;
    procedure PluginClick(Sender: TObject);
  public
    { Public declarations }
  end;

(...)

procedure TForm1.FormCreate(Sender: TObject);
var
  Path: string;
  SearchRec: TSearchRec;
  PlugIn: TPlugIn;
  Menu: TMenuItem;
begin
  // La liste des plugins chargés
  PlugList := TList.Create;
  // Le répertoire contenant les plugins
  Path := ExtractFilePath(Application.ExeName);
  // Recherche toutes les DLL
  if FindFirst(Path + '*.dll', faAnyFile, SearchRec) = 0 then begin
    repeat
      ListBox1.Items.Add(SearchRec.Name);
      try
        // On essaye d'en faire un plugin
        Plugin := TPlugin.Create(SearchRec.Name);
        Menu := NewItem(PlugIn.Caption, PlugIn.ShortCut, false, true, PluginClick, 0, '');
        // Faire le lien entre le TMenuItem et le TPlugIn
        Menu.Tag := PlugList.Add(PlugIn);
        Menu.Bitmap.Handle := PlugIn.Bitmap;
        PlugInsMenu.Add(Menu);
      except
        on e: Exception do ListBox1.Items.Add(e.Message);
      end;
    until FindNext(SearchRec) <> 0;
  end;
  FindClose(SearchRec);
end;

devient...

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
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    PluginsMenu: TMenuItem;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    PlugList: TList;
    (*procedure PluginClick(Sender: TObject);*)
  public
    { Public declarations }
  end;

(...)

procedure TForm1.FormCreate(Sender: TObject);
var
  Path: string;
  SearchRec: TSearchRec;
  PlugIn: TPlugIn;
  Menu: TMenuItem;
begin
  // La liste des plugins chargés
  PlugList := TList.Create;
  // Le répertoire contenant les plugins
  Path := ExtractFilePath(Application.ExeName);
  // Recherche toutes les DLL
  if FindFirst(Path + '*.dll', faAnyFile, SearchRec) = 0 then begin
    repeat
      ListBox1.Items.Add(SearchRec.Name);
      try
        // On essaye d'en faire un plugin
        Plugin := TPlugin.Create(SearchRec.Name);
        Menu := NewItem(PlugIn.Caption, PlugIn.ShortCut, false, true, PlugIn.DoClick, 0, '');
        // Faire le lien entre le TMenuItem et le TPlugIn
        Menu.Tag := PlugList.Add(PlugIn);
        Menu.Bitmap.Handle := PlugIn.Bitmap;
        PlugInsMenu.Add(Menu);
      except
        on e: Exception do ListBox1.Items.Add(e.Message);
      end;
    until FindNext(SearchRec) <> 0;
  end;
  FindClose(SearchRec);
end;

Est-ce que c'est bien ce qu'il fallait faire ou est-ce que j'ai raté quelque chose dans le code de Paul Toth ?

**GoustiFruit** · 26/05/2006, 09h29

Personne n'a essayé le code fourni dans le PDF avant moi ? Il est quand même là depuis des années ?

Edit: non vraiment, il n'y a pas un spécialiste des systèmes de plugins pour jeter un coup d'oeil rapide ? Ainsi je pourrais marquer le sujet comme résolu...

**sjrd** · 26/05/2006, 13h12

Tu t'y es très bien pris

C'est exactement comme cela qu'il fallait faire.

Dans l'esprit de Paul Toth et Olivier Dahan, j'imagine que la procédure PluginClick devait se charger de retrouver le plug-in correspondant au menu item Sender et appeler sa méthode DoClick. Mais ta méthodes est plus rapide : il faut juste veiller à correctement détruire les menu item avant de décharger les DLL, sinon tu te heurteras à des violations d'accès dont tu demandras d'où elles sortent (j'ai pas mal d'expérience sur le sujet

)

**GoustiFruit** · 26/05/2006, 13h57

Ah, ouf, je commençais à désespérer

N'ayant aucune connaissance dans ce domaine et essayant de m'y mettre, c'est pas évident si le peu de code que je trouve est incorrect, et si personne ne peut venir à mon secours !

Merci pour cette confirmation, je marque le sujet comme résolu et je te dis à bientôt puisqu'apparemment c'est à toi ou à clorish que je risque d'avoir à faire si je continue sur cette voie (plugins) ;-)

**GoustiFruit** · 29/05/2006, 13h49

Bonjour, c'est re-moi !

Est-ce que quelqu'un aurait le code du sous-chapitre "Utilisation des interfaces" ? Le code est fourni sans indication de sa destination (dans quels fichiers, dans quelles unités ?) et j'ai du mal à comprendre si ça remplace le code du sous chapitre précédent, si ça le complète ou si ça n'a rien à voir !

sjrd, si tu passes par là...

**anapurna** · 29/05/2006, 15h41

salut

les interface sont une autre possibilite

@+ Phil

**GoustiFruit** · 29/05/2006, 17h24

Ben oui, c'est justement la possibilité que je voudrais essayer !
Le chapitre donne du code mais n'explique pas où il va, donc si quelqu'un a déjà essayé et peut m'envoyer un zip, ça serait sympa. Ou si les sources du bouquin sont disponibles quelque part (je parle des parties autorisées à la publication)...

**anapurna** · 29/05/2006, 22h51

salut

regarde le code dans le fichier joint

@+ phil

**GoustiFruit** · 30/05/2006, 13h49

Merci !
Mais... le code du projet "Project1" ne correspond pas à la méthode avec utilisation des interfaces, c'est le code qui correspond à la méthode classique

J'aimerais savoir comment je peux créer et gérer mon plugin depuis le programme principal !?

**anapurna** · 30/05/2006, 15h24

salut

Tu n'as pas du bien lire le code source
l'interface c'est bien le plugin (la dll)
en fait l'unité uiplug tu peut la separé en 2
avec la parti interface uniquement et la parti objet Utilisant l'interface

@+ Phil

**GoustiFruit** · 30/05/2006, 15h56

Je suis vraiment paumé: pas de problème pour compiler la DLL, mais le projet lui-même n'est pas "compatible" ? (As-tu essayé de compiler ?)

**anapurna** · 30/05/2006, 16h07

salut

j'ai oublier une unite je l'envoi ce soir

@+ Phil

**GoustiFruit** · 30/05/2006, 16h44

Ah, ça expliquerait certaines choses :-p

En attendant de voir ça, merci quand même pour tous tes efforts !

**anapurna** · 30/05/2006, 21h12

salut

voici l'unité manquante

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
unit UGestPlug;
interface
 uses UIPlug,SysUtils;
type
  TCreatePlugin=function:IPlugin; stdcall;
 
  TPlugin=class
  private
    fHandle :THandle;
    fCreate :TCreatePlugin;
    fPlugin :IPlugin;
  public
    Constructor Create(FileName:string);
    Destructor Destroy; override;
    property Instance:IPlugin read fPlugin;
  end;
implementation
 Uses Windows;
Constructor TPlugin.Create(FileName:string);
begin
  // Chargement de la DLL
  fHandle:=LoadLibrary(PChar(FileName));
  if fHandle=0 then
    raise Exception.Create('Impossible de charger la DLL');
  // Recherche de la fonction d'init
  fCreate:=GetProcAddress(fHandle,'CreatePlugin');
  if @fCreate=nil then
    raise Exception.Create('Ce n''est pas un i-plugin');
  // Création du plugin
  fPlugin:=fCreate;
end;
 
Destructor TPlugin.Destroy;
begin
  // Libérer l'interface
  fPlugin:=nil;
  // Libération de la DLL
  if fHandle<>0 then
    FreeLibrary(fHandle);
  inherited;
end;
end.

comme tu peut le voir elle gere l'interface

@+ Phil

**GoustiFruit** · 31/05/2006, 09h54

Hop, je remets l'étiquette "résolu" :-)

Problème avec la "Gestion des bibliothèques dynamiques"

Delphi

Discussions similaires

Partager

Partager