Pb classique : intégrer une form ou un frame d'une DLL dans la fiche de l'application

Version imprimable

27/03/2009, 11h35
Colloc

Pb classique : intégrer une form ou un frame d'une DLL dans la fiche de l'application

Bonjour,

Question archi classique mais ttes les réponses trouvées sur le forum ou sur le net ne fonctionne pas !

Je cherche à inclure dans une zone de mon appli (un groupbox ou un panel) une fiche ou un cadre (TFrame) d'une DLL.

Cette fiche (ou ce cadre) contenant des boutons, affichages, contrôles divers.

Comment faire ? Dois-je utiliser une fiche ou un cadre ?

Merci de votre réponse par avance !

Colloc
27/03/2009, 12h02
totoche76

Hello,

Perso dans la dll je crée une fiche (BorderStyle = none, BorderIcons = vide), et je lui mets comme ParentWindow le handle du parent voulu dans l'appli (handle passé à la fonction de la dll qui crée la fenêtre). Le parent peut être un TPanel, un TForm, un TTabSheet ...

Par contre, dans cette fonction de création, je sauvegarde le Application->Handle de la DLL, et je le remplace par celui de l'appli appelante.
La fonction de destruction de la fenêtre repositionne le Application->Handle de la DLL à son ancienne valeur.

Et ça marche très bien (avec Builder 2007) !

Je n'y arrive pas !!

Voilà mon code de création dans la DLL :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
extern "C" __stdcall __declspec(dllexport,dllimport) int Show(TWinControl* parentForm, TApplication* Appli)
 
{     TForm1 *MyForm=new TForm1(parentForm);
      if (MyForm)
                {
                if  (parentForm) MyForm->Parent=parentForm;
                Application->Handle=Appli->Handle;
 
                MyForm->Show();
                }
 
 
}

Et mon appel en dynamique dans l'appli principal :

Code:

1
2
3
4
5
6
7
8
9
10
 HINSTANCE hinstDLL;
    MYDLLFUNC ImpFuncDLL;
  int iRet;
        if ((hinstDLL=LoadLibrary("DLLFonction.dll"))) {
                   ImpFuncDLL = (MYDLLFUNC)GetProcAddress(hinstDLL, "Show");
 
                    if (ImpFuncDLL) {
                                          iRet = ImpFuncDLL(FichePrincipale,Application);
                                           }
                   }

Bref, rien de bien compliqué !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
extern "C" __stdcall __declspec(dllexport,dllimport) int Show(TWinControl* parentForm, TApplication* Appli)
 
{     TForm1 *MyForm=new TForm1(parentForm);
      MyForm->Left = 0;
      MyForm->Top = 0;
      if (MyForm)
                {
                if  (parentForm) MyForm->ParentWindow=parentForm->Handle;
                Application->Handle=Appli->Handle;
 
                MyForm->Show();
                }
}

Mais je ferais ceci:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
extern "C" __stdcall __declspec(dllexport,dllimport) int Show(HWND parentForm, HWND Appli, HWND* oldAppli, TForm** fenetre)
 
{
     *oldAppli = Application->Handle;
     Application->Handle=Appli;
 
     TForm1 *MyForm=new TForm1(NULL);
     *fenetre = MyForm;
 
     MyForm->Left = 0;
     MyForm->Top = 0;
     if  (parentForm) MyForm->ParentWindow=parentForm;
 
     MyForm->Show();
}
 
extern "C" __stdcall __declspec(dllexport,dllimport) int Fermer(HWND oldAppli, TForm* fenetre)
 
{     
        Application->Handle = oldAppli;
        delete fenetre;
}

Puis

Code:

1
2
3
4
5
TForm* fenetre;
HWND appli;
iRet = ImpFuncDLL_Show(FichePrincipale,Application, &fenetre, &appli);
...
ImpFuncDLL_Fermer(fenetre, appli);

Ok, c'est crado, mais c'est pour l'idée...

27/03/2009, 15h06
Colloc

J'ai testé ton code, fais qq correction (qq petites erreurs a priori :oops: de ta part)...

Mais il n'en veut pas !

Je tourne en rond depuis 2 jours là dessus ! Alors que cela parait si simple !

Quand tu mets un point d'arrêt sur MyForm->Show(), est-ce que derrière les propriétés de MyForm te paraissent correctes ? (pas facile d'être crétif, là...)

Pour info, sur mon form, j'ai Position à poDesigned.

Dans le constructeur de ma fenêtre, j'ai ceci:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 if (mHandleParent != NULL) // mHandlePent : ->Handle d'un TWinControl { BorderStyle = bsNone; BorderIcons = TBorderIcons(); ParentWindow = mHandleParent; // On prend toute la place dispo dans le parent TRect rect; ::GetClientRect(mHandleParent, &rect); Width = rect.Width(); Height = rect.Height(); }
La 1ère fonction (celle juste avec ParentWindow) m'a permis d'afficher ma fenêtre dans un TPanel contenu dans un TTabSheet....

20/04/2009, 11h47
Colloc

De retour après un mois à faire d'autres choses ...

Je reviens vers vous pour avoir la solution, je tourne en rond.

Je n'arrive toujours pas à afficher ma form de la DLL dans la form de l'appli principale. Je vois bien qu'il se passe qq chose, mais je ne la vois pas !

Help please !!!
20/04/2009, 12h17
totoche76

Hello,

Citation:

... Je vois bien qu'il se passe qq chose ... !

Ben c'est déjà pas mal ;)
A part regarder en débugage les propriétés de la fenêtre créée... ou essayer de voir avec Spy++... :(
20/04/2009, 14h17
Colloc

Citation:

Envoyé par totoche76

Hello,

Ben c'est déjà pas mal ;)
A part regarder en débugage les propriétés de la fenêtre créée... ou essayer de voir avec Spy++... :(

Sans abuser, peux-tu remettre le code que tu as fait pour le mettre dans le TPanel ?
20/04/2009, 15h26
totoche76
Citation:

Envoyé par Colloc

Sans abuser, peux-tu remettre le code que tu as fait pour le mettre dans le TPanel ?

Si FichePrincipale contient un TPanel nommé Panel1, ça donne quelque chose comme:
Code:

1 2 3 4 5 TForm* fenetre; HWND appli; iRet = ImpFuncDLL_Show(FichePrincipale->Panel1->Handle, Application->Handle, &fenetre, &appli); ... ImpFuncDLL_Fermer(fenetre, appli);
22/04/2009, 08h54
Patrick Seuret

J'ai aussi eu des trucs bizarres. J'ai essayé d'afficher une fenêtre C++ dans une fenêtre Access et tout fonctionnait très bien en utilisant une méthode similaire. Mais par contre toutes les frames de mes fenêtres C++ disparaissait (alors qu'elles s'affichent très bien dans un projet VCL).

J'ai pas mal cherché mais n'ai rien trouvé. C'est comme si les TFrame n'étaient simplement plus affichés lorsque le parent est en dehors de la DLL.

Pour précision: j'avais fait des tests avec une fenêtre très simple (en dehors d'Access) et effectivement la frame n'apparaissait plus dès que le parent (ou peut-être l'application) est en dehors de la DLL.

Bon, j'arrive désormais à afficher une fenêtre dans un panel :

Le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//---------------------------------------------------------------------------
extern "C" int __stdcall __declspec(dllexport)  Show(TApplication* Appli,TForm** Fiche)
{
 
Application=Appli;
*Fiche=new TForm1(NULL);
Application->Handle=Appli->Handle;
return 1;
}
 
extern "C" int __stdcall __declspec(dllexport)  Close(TForm** Fiche)
{
(*Fiche)->Close();
delete(*Fiche);
return 1;
}

Et le code dans mon appli :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
if (hinstDLL=LoadLibrary("DLLFonction.dll"))
        {
        AccesFiche = (AccesFicheDLL)GetProcAddress(hinstDLL, "Show");
        FermetureFiche = (FermetureFicheDLL)GetProcAddress(hinstDLL, "Close");
 
        if (AccesFiche)
                        {
                        AccesFiche(Application, &FicheDLL);
                        FicheDLL->Parent=PanelDLL;
                        FicheDLL->Show();
                        FicheDLL->Left=0;
                        FicheDLL->Top=0;
                        FicheDLL->FormStyle=fsStayOnTop;
                        FicheDLL->Align=alClient;
                        }     
 
 
        }

Comme on le voit, je suis obligé de mettre la fenêtre à StayOnTop, c'est la seule méthode pour me permettre de la voir dans ma fiche (mon panel). Mystère....

et

Code:

1
2
3
4
if (FermetureFiche)
                        {
                        FermetureFiche(&FicheDLL);
                        }

Cependant, désormais, je n'arrive pas à libérer la librairie, ça me plante complètement tout, et si je ne le fais pas ça me plante aussi !

Des idées ?

Bon, j'ai trouvé, j'ai bien sauvegardé l'appli et son handle puis remis lors de la femeture, ça fonctionne....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//---------------------------------------------------------------------------
extern "C" int __stdcall __declspec(dllexport)  Show(TApplication* Appli,TForm** Fiche, TApplication** OldAppli)
{
*OldAppli=Application;
Application=Appli;
*Fiche=new TForm1(NULL);
Application->Handle=Appli->Handle;
 
 
//return MyForm;
}
 
extern "C" int __stdcall __declspec(dllexport)  Close(TForm** Fiche,TApplication* OldAppli)
{
(*Fiche)->Close();
delete(*Fiche);
Application=OldAppli;
Application->Handle=OldAppli->Handle;
 
}