Discussion :

[Rayek]

Mon logiciel fait appel à des packages dynamiquement en utilisant les interfaces.

Code Delphi :

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
 
procedure TfrmMain.LoadPackages(iNum: integer; sName: String);
type
  TMenuPluginFunc = function : TMenuPlugin;stdcall;
  TCreatePluginFunc = function : IPlugin; stdcall;
var
  PackageHandle,Flags : integer;
  MenuPlugin : TMenuPluginFunc;
  CreatePlugin : TCreatePluginFunc;
//  lst : TStringList;
//  i : integer;
begin
   SetLength(Plugin, iNum + 1);
   try
    Memo1.Lines.Add('Chargement du Package : ' + sName);
    PackageHandle := LoadPackage(sName);
   Except on E:Exception do
     begin
       memo1.Lines.Add('Load error : ' + E.Message);
       Exit;
     end;
   end;
   Memo1.Lines.Add('Information du Package :');
   GetPackageInfo(PackageHandle,nil,Flags,ShowInfoProc);
    // récupération des informations pour la création d'un bouton dans la barre
   MenuPlugIn := GetProcAddress(PackageHandle,'GetVersionMenu');
   Memo1.Lines.SaveToFile(GAPPPATH + 'LoadLog.txt');
   Plugin[iNum].Name := sName;
   Plugin[iNum].Handle := PackageHandle;
   Plugin[iNum].Menu := MenuPlugIn;
   Plugin[iNum].Created := False;
   Plugin[iNum].FrameLoaded := False;
  // récupération du plugin
   CreatePlugin := GetProcAddress(PackageHandle,'CreatePlugin');
   if assigned(CreatePlugin) then
     Plugin[iNum].Plug := CreatePlugin;
end;

Pas de problème à ce niveau, les multiples plugins se chargent correctement, en pas à pas, je ne rencontre aucun soucis et je vois même en passant le curseur sur Plugin[].Menu le contenu de cette structure.

Le problème ce passe plus loin lorsque je veux créer les boutons dans l'objet TCategorieButton

Dès que je fais appel dans ma procédure

Code delphi :

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
 
  // création des boutons
  j := 0;
  for i := low(plugin) to high(plugin) do
  begin
    sTextTemp := Plugin[i].Menu.Categorie.Caption;
  // L'erreur à la ligne en dessous
    if  CategoryButtons1.Categories.Count > 0 then
    begin
      if CategoryButtons1.Categories.IndexOf(PlugIn[i].Menu.Categorie.Caption) <> -1 then
        Categ := CategoryButtons1.Categories.Items[j]
      else begin
        Categ := CategoryButtons1.Categories.Insert(0);
      end;
    end else
      Categ := CategoryButtons1.Categories.Insert(0);

J'ai essayé plusieurs choses et dès que j'utilise un objet dans cette procedure j'ai une violation d'accès (J'ai mis un simple mémo.lines.add d'un valeur du Plugin[].Menu et ca plante ) et les objets existent bien dans ma form

Si quelqu'un voit pourquoi il y a cette violation.

Merci.

[Aka Guymelef]

Mmmmh est-ce que le fait que tu passes par des variables locales pour stocker les pointeurs vers tes méthodes ne poserait-il pas problème ? Du genre à la sortie de la procédure les variables sont détruites et du coup les valeurs dans le tableau deviennent inconsistantes ?

Par ailleurs dans ton second morceau de code tu as mis que l'erreur se produit à l'erreur en-dessous, or auparavant tu as récupéré le nom du Menu.Categorie ce qui est en contradiction avec le fait que tu dises que rien ne fonctionne dès que tu fais appel à la méthode normalement (peut-être une erreur de recopie du code ici).

[Rayek]

Mmmmh est-ce que le fait que tu passes par des variables locales pour stocker les pointeurs vers tes méthodes ne poserait-il pas problème ? Du genre à la sortie de la procédure les variables sont détruites et du coup les valeurs dans le tableau deviennent inconsistantes ?

Par ailleurs dans ton second morceau de code tu as mis que l'erreur se produit à l'erreur en-dessous, or auparavant tu as récupéré le nom du Menu.Categorie ce qui est en contradiction avec le fait que tu dises que rien ne fonctionne dès que tu fais appel à la méthode normalement (peut-être une erreur de recopie du code ici).

Je me suis peut être mal exprimé

Plugin est un tableau de structure global

Code :

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

1
2
3
4
5
6
7
8
9
10
 
type TPlugInsStruct = record
  Handle : integer;
  Plug : IPlugin;
  PlugCfg : IPluginCFG;
  Name : string;
  Menu : TMenuPlugin;
  Created : Boolean;
  FrameLoaded : Boolean;
end;

Et toutes les variables locales sont transférés vers la structure, il n'y a pas de problème avec cela.
J'arrive parfaitement à charger tout mes plugins.
Le problème survient à chaque fois que je fais appel au CategorieButton, qui me génère une violation d'accès pour je ne sais quel raison

A la place du CategorieButton, j'ai mis un mémo pour voir si le bug ne venait pas en fait des variables de Plugin[].Menu et j'ai eu aussi une violation d'accès.

Puis j'ai testé avec ShowMessage et la pas de problème

En fait toute la partie plugin fonctionne parfaitement, mais c'est la partie création de boutons qui plante dès que je fais appel à CategoryButtons1.

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
procedure TfrmMain.CreateButton;
var
  i,j : integer;
  bSwap : Boolean;
  PlugTemp : TPlugInsStruct;
  Categ : TButtonCategory;
  Button : TButtonItem;
begin
  // tri du tableau
  bSwap := True;
  While bSwap do
  begin
    bSwap := False;
    for i := low(plugin) to high(plugin) - 1 do
    begin
      if (Plugin[i].Menu.Categorie.Position < Plugin[i + 1].Menu.Categorie.Position) or
      ((Plugin[i].Menu.Categorie.Position = Plugin[i + 1].Menu.Categorie.Position) and
      (Plugin[i].Menu.button.position > Plugin[i + 1].Menu.Button.Position)) then
      begin
        PlugTemp := Plugin[i];
        Plugin[i] := Plugin[i+1];
        Plugin[i+1] := PlugTemp;
        bSwap := true;
      end;
    end; // for
  end; // while
 
  // création des boutons
  j := 0;
  for i := low(plugin) to high(plugin) do
  begin
    // Création de la catagorie
    if  CategoryButtons1.Categories.Count > 0 then
    begin
      if CategoryButtons1.Categories.IndexOf(PlugIn[i].Menu.Categorie.Caption) <> -1 then
        Categ := CategoryButtons1.Categories.Items[j]
      else begin
        Categ := CategoryButtons1.Categories.Insert(0);
      end;
    end else
      Categ := CategoryButtons1.Categories.Insert(0);
 
 
    With Categ do
    begin
      Color := PlugIn[i].Menu.Categorie.Color;
      GradientColor := PlugIn[i].Menu.Categorie.GradientColor;
      TextColor := PlugIn[i].Menu.Categorie.TextColor;
      Caption := PlugIn[i].Menu.Categorie.Caption;
    end;
 
    if Plugin[i].Menu.Bitmap <> nil then
      With ilMain do
      begin
        Masked := True;
        AddMasked(Plugin[i].Menu.Bitmap, Plugin[i].Menu.Bitmap.canvas.Pixels[0,0]);
        Plugin[i].Menu.ImageIndex := Count -1;
      end;
    // Création du bouton dans la catégorie
    Button := Categ.Items.Add;
    Button.Caption := Plugin[i].Menu.Button.caption;
    Button.Hint := IntToStr(i);
    Button.ImageIndex := Plugin[i].Menu.ImageIndex;
  end;

[Aka Guymelef]

Donc si je comprends bien, l'erreur se produit sur l'instruction "CategoryButtons1.Categories.Count" n'est-ce pas ? Néanmoins la question qui reste entière pour moi : CategoryButtons1 Kézaco

Par ailleurs tu parles CategorieButton mais ce n'est pas une classe de base de Delphi. Du coup j'imagine que c'est ta propre classe, et si l'erreur était dedans ou comment CategoryButtons1 est instancié (j'ai l'impression que c'est déposé sur une fiche vu le nom mais bon...)

[Rayek]

Donc si je comprends bien, l'erreur se produit sur l'instruction "CategoryButtons1.Categories.Count" n'est-ce pas ? Néanmoins la question qui reste entière pour moi : CategoryButtons1 Kézaco

Par ailleurs tu parles CategorieButton mais ce n'est pas une classe de base de Delphi. Du coup j'imagine que c'est ta propre classe, et si l'erreur était dedans ou comment CategoryButtons1 est instancié (j'ai l'impression que c'est déposé sur une fiche vu le nom mais bon...)

Le CategorieButton est un objet rajouté avec Delphi 2005 (Celui qui permet de gérer la palette d'outils) et c'est une classe de base à partir de D2005
De toutes façon que j'utilise un CategorieButton , un TMemo, une TListBox ou tout autres objets déposés sur ma form principale j'ai une violation d'accès.

[Aka Guymelef]

Ha d'accord moi je suis encore qu'un rétrograde sous Delphi 7, c'est pour ça que l'aide ne m'en apprenait pas plus sur cette classe

Sinon quand tu exécutes en mode débug et que tu inspecte CategoryButton1, ça donne quoi ? Par ailleurs à quel moment est appelé la méthode CreateButton ?

EDIT : je viens de revoir le tuto ici et dedans l'affectation de la variable contenant la procédure extraite de la librairie se fait en utilisant l'opérateur @ devant la variable. Alors peut-être qu'en D2005 ça ne se fait plus comme ça mais ça a peut-être une importance ?