Salut à tous, lorsque j'éssaie d'accéder à une fonctions de mon paquets j'obtiens cette erreur:
application is not licensed to use this feature
Voici le code
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
 
  procedure initModule(infos: CModuleInitInfos);stdcall;
  begin
     showmessage('toto');
     if Form1 = Nil Then
     Form1 := TForm1.Create(infos.parent);
     showmessage('toto2');
     Form1.ParentWindow := infos.parent.Handle;
     Form1.Top:=0;
     Form1.left:=0;
     Form1.Width:=infos.parent.Width;
     Form1.Height:=infos.parent.Height;
     showmessage('toto3');
     Form1.Show;
     Form1.UIBDatabase:=Form1.minfos.UIBDatabase;
     showmessage('toto4');
 
  end;
j'ai le message toto, puis juste après une erreur 'application is not licensed to use this feature:s
Les autres fonctions de mon package semblent marcher :s

Quelqu'un aurait une idée?
J'ai cru voir qu'il pouvait s'agir d'une erreur si le package et le programme était compilés avec des compileurs de différentes éditions, mais j'ai recompilé les 2 sans succès :s.

Merci d'avance !