Discussion :

[ChPr]

Bonjour à toutes et à tous,

Continuant sur mon projet, je tombe sur un nouvel os.

Les échanges avec mes DLL fonctionne bien, mais dans certaines, j'ouvre une fenêtre de dialogue. Pour ce faire, dans l'initialisation de la fiche je place l'instruction :

Code :

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

1
2
initialization
  MaFiche:= TMaFiche.Create(Application);

et dans le corps de ma DLL je fais un

Code :

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

MaFiche.ShoModal;

Cela fonctionnait à merveille dans ma version DELPHI 6, cela fonctionne dans ma version Lazarus sous Ubuntu 11.04, mais refuse de fonctionner sous WIndows XP : il n'y a pas de plantage, mais la fenêtre refuse obstinément de s'afficher.

Si je remplace l'instruction d'initialisation par :

Code :

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

Application.CreateForm(TMaFiche, MaFiche);

ça plante,

Si je mets cette instruction entre le begin et le end de l'unité "Library", ça plante aussi.

Bref, je ne sais plus quoi faire.

Si vous avez des idées.

Je vous en remercie par avance.

Pïerre

[tourlourou]

si tu gères toi-même la création/destruction des fiches, ne vaut-il pas mieux passer nil que Application comme Owner ?

sinon, il y a peut-être problème lié à l'ordre des initialisations ?

solution bâtarde à tester : faire dans l'appli une CallBack qui encapsule le ShowModal, et sera appelée par la librairie

[ChPr]

si tu gères toi-même la création/destruction des fiches, ne vaut-il pas mieux passer nil que Application comme Owner ? ...

J'avais déjà essayé, pas mieux.

... sinon, il y a peut-être problème lié à l'ordre des initialisations ? ...

J'avais aussi essayé à différents endroits dont juste avant l'appel à ShowModal : pas mieux.

... solution bâtarde à tester : faire dans l'appli une CallBack qui encapsule le ShowModal, et sera appelée par la librairie

Je ne sais pas faire !

NOTA : du fait que cela fonctionnait avec DELPHI, que cela fonctionne avec Lazarus sous Linux, peut-on considérer le dysfonctionnement sous Windows comme un bug ?

Merci de votre aide.

Pierre

[tourlourou]

une question bête : se passe-t-il qqch de particulier dans le OnShow ou le OnActivate ?

sinon, pour une fiche Form2 crée par la fiche principale de l'appli, son Form2.ShowModal dans la fiche principale se passe-t-il bien ?

si c'est le cas, l'idée de la CallBack est de passer une fonction à la librairie :
dans la librairie. schématiquement :

Code :

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

1
2
3
4
5
6
7
8
var
  LibShowForm: TMyShowFunction;
 
exports LibShowForm; // on peut exporter des variables
 
begin
  i:=LibShowForm; // appellera la fonction de la fiche principale
end;

dans la fiche principale :

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
type
  TMyShowFunction: function(): integer;
 
function MyShowModal: integer;
begin
  Form2.ShowModal;
  Result:=Form2.ModalResult;
end;
 
begin
  // je ne sais pas de tête comment récupérer une variable exportée d'une dll, mais je pense que c'est aussi avec 
  VarLib:=GetProcAddress(H, 'LibShowForm');
  // puis on lui affecte la procédure de la fiche principale 
  VarLib:=MyShowModal; // ou @MyShowModal en FPC !
end;

[ChPr]

une question bête : se passe-t-il qqch de particulier dans le OnShow ou le OnActivate ?

Rien, aucun des deux évènements n'est appelé, ça plante avant.

... sinon, pour une fiche Form2 crée par la fiche principale de l'appli, son Form2.ShowModal dans la fiche principale se passe-t-il bien ? ...

Une Form2 dans l'appli principale, qu'elle soit créée automatiquement ou bien par un Form2:= TForm2.Create(Application) dans la clause initialization de la fiche de Form2 s'affiche sans problème à l'appel de Form2.ShoModal.

... si c'est le cas, l'idée de la CallBack est de passer une fonction à la librairie :

Je n'ai rien compris. A qui appartient la Form2 dans ton exemple ? A l'appli principale ou à la DLL ?

Merci de votre aide.

Pierre

[tourlourou]

l'idée de la callback est de faire exécuter le code du côté qui le peut, qui fonctionne, ou bien où c'est le plus facile.

tu as confirmé qu'une Form2 créée et appelée en ShowModal par Form1 (fiche principale) ne pose pas de problème.

du côté Form1 (fiche principale), tu auras donc toute la "mécanique"
qui gère le ShowModal de la Form2 dans une fonction qui sera appelée depuis la librairie (finalement, on exporte vers la dll une fonction de l'appli : c'est un juste retour des choses...)

c'est pê plus clair dans ma tête que dans ma prose !