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

[nek_kro_kvlt]

Le poste qui me pose le problème est le poste qui compile le paquet :s
Sinon, j'ai essayé de débugger un packet, je n'arrive pas, pourtant je procède de la même manière qu'un DLL

[Clorish]

a tout hasard ...... t'aurais pas plusieurs version de delphi ? dont une vielle version demo ou perso dont les residu traineraient encore en memoire ....

Edit : Il est possible aussi que le probleme viens du poste qui compile l'exe !!
car en fait c'est lui qui utilise le paquet .....

[nek_kro_kvlt]

en fait je penses que c'est du au fait que j'ai copier les BPL et le dossier lib d'une ancienne installation de BDS, pour pas avoir à recompiler et installer tout les packages que j'utilise, dont les JvUIB... Je vais essayer de faire une install clean demain pour voir si ça vient de la ...

[Clorish]

Oui ca sera mieux
En general ... faut eviter ce genre de choses et etre sur que les paquets sont bien du meme editeur.

D'ailleur la plupart du temps, les paquets sont fournis sous forme de code source a recompiler/Isntaller ... c'ets plus sur

[Ben_Le_Cool]

Je remonte ce topic car j'ai exactement le meme probleme. J'ai le code source du package, j'ai refait un Build et j'ai reinstallé, mais j'ai toujours le meme message d'erreur.

PS: Je travaille sur D2010.

[nek_kro_kvlt]

Je suis désolé, mais 4 ans après, je me souviens plus comment j'avais fait

[Ben_Le_Cool]

EN faisant des tests par elimination, j'ai pu trouver ce qui causait ce probleme: Le TDataSource. En effet, en eliminant tous les TDataset, je package se charge convenablement, mais il suffit d'en remettre un pour avoir le message d'erreur.

Par contre, je dois fouiller pour trouver pourquoi ca cause un probleme et surtout trouver une solution. Pourtant j'utilise ce meme compsant dans mon programme principal sans aucun probleme.

[ShaiLeTroll]

On ne remonte pas un sujet !
Mieux vaut en créer un nouveau et mettre l'ancien comme référence en insérant un lien avec la balise [ URL ]

Sans code difficile de comprendre !
Tu es l'auteur du Package ?
Tu as une version Pro ou plus de D2010 ?

[Ben_Le_Cool]

On ne remonte pas un sujet !
Mieux vaut en créer un nouveau et mettre l'ancien comme référence en insérant un lien avec la balise [ URL ]

Sans code difficile de comprendre !
Tu es l'auteur du Package ?
Tu as une version Pro ou plus de D2010 ?

Oops, je crois que les moeurs ont changé depuis mes dernieres visites, je pensais qu'il vallait mieux remonter un topic que d'en creer un qui porte sur le meme sujet.

Anyway, je viens de me rendre compte d'autre chose, le probleme reside précisement si on rajoute un TDataSource dans un Datamodule (ou descendant), si je rajoute le meme composant sur une forme ordinaire, ca ne donne aucune erreur.

Non, je ne suis pas l'auteur du package, c'est un code qu'un autre developpeur a laissé.

J'ai une version Pro.

EDIT: J'ai le meme probleme en rajoutant un TDataSet dans mon DataModule.

[ShaiLeTroll]

Oops, je crois que les moeurs ont changé depuis mes dernieres visites, je pensais qu'il vallait mieux remonter un topic que d'en creer un qui porte sur le meme sujet.

Pas quand le sujet est vieux de 4 ans ou qu'il est résolu
ça passe quand ça date d'un petit mois
Je confirme qu'il est bien de chercher AVANT de poster ! c'est tout à ton honneur !
D'ailleurs, c'est pour cela que mettre en lien un autre sujet indique que tu as eu l'idée de chercher avant, c'est souvent cela que l'on reproche à des sujets récurrent comme "Affecter un event en execution" ou "Lire une Image dans une Table", ce n'est pas le post en double mais l'absence de recherche !

Tu as une version Pro ! Donc la DB est bien fourni !
Tu as vérifié les "requires" du Package, sont-il en phase avec la version actuelle ?
Tu n'a aucun mélange de BPL entre Pro et Entreprise ?
Tu n'a pas des DCU sans source utilisée par le Package ?

[Ben_Le_Cool]

Pas quand le sujet est vieux de 4 ans ou qu'il est résolu
ça passe quand ça date d'un petit mois
Je confirme qu'il est bien de chercher AVANT de poster ! c'est tout à ton honneur !
D'ailleurs, c'est pour cela que mettre en lien un autre sujet indique que tu as eu l'idée de chercher avant, c'est souvent cela que l'on reproche à des sujets récurrent comme "Affecter un event en execution" ou "Lire une Image dans une Table", ce n'est pas le post en double mais l'absence de recherche !

Tu as une version Pro ! Donc la DB est bien fourni !
Tu as vérifié les "requires" du Package, sont-il en phase avec la version actuelle ?
Tu n'a aucun mélange de BPL entre Pro et Entreprise ?
Tu n'a pas des DCU sans source utilisée par le Package ?

J'ai fait des tests avec un tout nouveau package: une forme + un DataModule. Il suffit de rajouter un TDataset, un TDatasource ou une TVirtualTable dans le Datamodule pour que l'erreur apparaisse. Des que j'enleve le composant, je n'ai plus d'erreur.

Si c'était un probleme avec un fichier dans les requires, j'aurai eu la meme erreur, peu importe si j'ai un composant dans le Datamodule ou non.