IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Delphi Discussion :

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


Sujet :

Delphi

  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    707
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2002
    Messages : 707
    Points : 777
    Points
    777
    Par défaut Problème avec la "Gestion des bibliothèques dynamiques"
    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

  2. #2
    Membre éclairé
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    707
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2002
    Messages : 707
    Points : 777
    Points
    777
    Par défaut
    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 ?

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    707
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2002
    Messages : 707
    Points : 777
    Points
    777
    Par défaut
    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...

  4. #4
    Expert éminent sénior

    Avatar de sjrd
    Homme Profil pro
    Directeur de projet
    Inscrit en
    Juin 2004
    Messages
    4 517
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : Suisse

    Informations professionnelles :
    Activité : Directeur de projet
    Secteur : Enseignement

    Informations forums :
    Inscription : Juin 2004
    Messages : 4 517
    Points : 10 152
    Points
    10 152
    Par défaut
    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 )
    sjrd, ancien rédacteur/modérateur Delphi.
    Auteur de Scala.js, le compilateur de Scala vers JavaScript, et directeur technique du Scala Center à l'EPFL.
    Découvrez Mes tutoriels.

  5. #5
    Membre éclairé
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    707
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2002
    Messages : 707
    Points : 777
    Points
    777
    Par défaut
    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) ;-)

  6. #6
    Membre éclairé
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    707
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2002
    Messages : 707
    Points : 777
    Points
    777
    Par défaut
    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à...

  7. #7
    Expert confirmé
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    3 404
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Mai 2002
    Messages : 3 404
    Points : 5 790
    Points
    5 790
    Par défaut
    salut

    les interface sont une autre possibilite

    @+ Phil
    Nous souhaitons la vérité et nous trouvons qu'incertitude. [...]
    Nous sommes incapables de ne pas souhaiter la vérité et le bonheur, et sommes incapables ni de certitude ni de bonheur.
    Blaise Pascal
    PS : n'oubliez pas le tag

  8. #8
    Membre éclairé
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    707
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2002
    Messages : 707
    Points : 777
    Points
    777
    Par défaut
    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)...

  9. #9
    Expert confirmé
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    3 404
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Mai 2002
    Messages : 3 404
    Points : 5 790
    Points
    5 790
    Par défaut
    salut

    regarde le code dans le fichier joint

    @+ phil
    Fichiers attachés Fichiers attachés
    Nous souhaitons la vérité et nous trouvons qu'incertitude. [...]
    Nous sommes incapables de ne pas souhaiter la vérité et le bonheur, et sommes incapables ni de certitude ni de bonheur.
    Blaise Pascal
    PS : n'oubliez pas le tag

  10. #10
    Membre éclairé
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    707
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2002
    Messages : 707
    Points : 777
    Points
    777
    Par défaut
    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 !?

  11. #11
    Expert confirmé
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    3 404
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Mai 2002
    Messages : 3 404
    Points : 5 790
    Points
    5 790
    Par défaut
    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
    Nous souhaitons la vérité et nous trouvons qu'incertitude. [...]
    Nous sommes incapables de ne pas souhaiter la vérité et le bonheur, et sommes incapables ni de certitude ni de bonheur.
    Blaise Pascal
    PS : n'oubliez pas le tag

  12. #12
    Membre éclairé
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    707
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2002
    Messages : 707
    Points : 777
    Points
    777
    Par défaut
    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 ?)

  13. #13
    Expert confirmé
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    3 404
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Mai 2002
    Messages : 3 404
    Points : 5 790
    Points
    5 790
    Par défaut
    salut

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

    @+ Phil
    Nous souhaitons la vérité et nous trouvons qu'incertitude. [...]
    Nous sommes incapables de ne pas souhaiter la vérité et le bonheur, et sommes incapables ni de certitude ni de bonheur.
    Blaise Pascal
    PS : n'oubliez pas le tag

  14. #14
    Membre éclairé
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    707
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2002
    Messages : 707
    Points : 777
    Points
    777
    Par défaut
    Ah, ça expliquerait certaines choses :-p

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

  15. #15
    Expert confirmé
    Avatar de anapurna
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mai 2002
    Messages
    3 404
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Mai 2002
    Messages : 3 404
    Points : 5 790
    Points
    5 790
    Par défaut
    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
    Nous souhaitons la vérité et nous trouvons qu'incertitude. [...]
    Nous sommes incapables de ne pas souhaiter la vérité et le bonheur, et sommes incapables ni de certitude ni de bonheur.
    Blaise Pascal
    PS : n'oubliez pas le tag

  16. #16
    Membre éclairé
    Profil pro
    Inscrit en
    Octobre 2002
    Messages
    707
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2002
    Messages : 707
    Points : 777
    Points
    777
    Par défaut
    Hop, je remets l'étiquette "résolu" :-)

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 22/01/2014, 18h39
  2. Gestion des sprites dynamiques avec liste chaînée
    Par Mokona dans le forum Contribuez
    Réponses: 0
    Dernier message: 21/12/2010, 15h55
  3. Problème avec str_sub et gestion des pointeurs
    Par toine44 dans le forum Débuter
    Réponses: 4
    Dernier message: 11/06/2008, 16h30
  4. Problème avec un tween sur des clips crées dynamiquement
    Par Invité dans le forum ActionScript 3
    Réponses: 1
    Dernier message: 21/05/2008, 18h43
  5. Problème avec une TImageList contenant des grandes images
    Par Manopower dans le forum Composants VCL
    Réponses: 8
    Dernier message: 17/11/2005, 16h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo