Discussion :

[nek_kro_kvlt]

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 !

[Clorish]

Juste une simple question :
Ton paquet a ete compilé sur une version superieure a celle que tu utilise ? (Compilation sur Enterprise, execution sur Pro, etc ...)

PAr exemple, les edition perso de borland, ne proposaient pas de gestion de BdD. LEs editions pro oui.
Une idee serait de compiler un paquet utilisant les compos BdD sous une version pro pour les utilsier sur N Versions perso et ainsi gagner sur l'achat de licences.

A mon avis Borland a du penser a ca, ce qui expliquerais que le paquet que tu utilise renvoie cette erreur car possede des fonctionnalitées non accessible sous ta version

[Clorish]

Finalement apres avoir lu le code j'ai trouve ceci :

Code :

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

 Form1.UIBDatabase:=Form1.minfos.UIBDatabase;

Ceci confirme ce que je dit car les composants BdD ne sont pas preseent dans toutes les licences.

L'erreur venant juste pares "toto" (donc lors de la creation de la form) est du au fait que ces composants sont crees dans le constructeur de la form ....

[nek_kro_kvlt]

Deux choses:
L'erreur est sur la ligne
Form1 := TForm1.Create(infos.parent);
vu que je n'ai pas toto2. Sinon, j'ai compilé mon paquet avec la même version de delphi, j'ai recompilé tout. Par contre j'ai sauvegardé mes anciens paquets, alors je vais éssayer de refaire une installation propre :s.
Meric !

[Clorish]

Form1 := TForm1.Create(infos.parent);

Justement c'est a ce moment que la form cree les composants BdD utilisés plus loin.

Tout semble converger .....
en fait le plus simpe est deja de savoir si oui ou non ta licence (sur le poste qui pose probleme) permet d'utiliser les composants BdD Utilisé dans le paquet ....

[Qwazerty]

SAlut
Juste un petit truc, tu peux faire une execution pas a pas de ton appli et mettre des point d'arret, tu devrais les utiliser c plus efficace que les message box
A++
Qwaz