Discussion :

[JerryMouse]

Dans le Unit de mon package FilssP, J'ai une class TMonFils auquel je voudrais acceder à partir de mon programme principal.
pour cela, dans le Unit, je recense la classe

Code :

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

1
2
initialization
  RegisterClass(TMonFils);

Et Dans mon programme principal je fais

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
Var
  TLaClass: TClass;
  LaClass: TForm;
  HHandle: THandle;
begin
  HHandle := LoadPackage('FilssP.bpl');
  TLaClass := GetClass('TMonFils');
  MessageDlg('La Classe est:'+TLaClass.ClassName, mtInformation,[mbOk], 0);
End;

Il ya generation d'erreur parcequ'il n'a pas acces à la classe
ce qui signifie que classe recensée n'a pas pue être récupérée par la methode GetClass.
Je ne sais pas pourquoi ??????

[Bloon]

Sous D6, j'ai déjà eu ce problème lorsque le projet n'est pas construit avec les paquets d'execution (menu Projet/Options, onglet Paquets)

Bloon

[JerryMouse]

Ah Oui, Merçi.
Effectivement ça marche.
Aussi je constate que l'EXE qui en résulte est moins lourd: 15 Ko au lieu de 300 Ko.
Cela n'exigera-t-il pas de fichiers suplémentaires lors du déploiement?
si oui lesquels?

[Bloon]

Cela n'exigera-t-il pas de fichiers suplémentaires lors du déploiement?

Oui, les bpl indiqués dans la zone en-dessous de la case à cocher. Pas tous, ça dépend de ce que tu utilises dans ton application.

Bloon

[JerryMouse]

Je vois.
Merçi bien.