Frame et composants "embarqués"

**qi130** · 11/12/2009, 11h11

Bonjour,

J'ai un souci concernant des composants non visuels inclus dans une frame...

Dans le principe, ma fiche principale contient un TPageControle initialement dépourvu de TTabSheet.

Lors d'une demande de connexion à une DB, j'ajoute un TTabSheet alimenté par ma Frame.
Cette Frame contient des compos visuels et des composants UIB gérant la connexion à la base choisie.

Lorsque j'ai 2 DB en ligne (donc 2 TTabsheet), il y a comme un problème d'étanchéité entre les compos UIB, notamment les Metadata...alors que les autres compos sembles ok (pas d'effet de bord constaté)

Ainsi, par exemple, la liste des tables de la 1ère DB (1er TTabsheet) est écrasée par celle de la 2ème DB.

D'où mon interrogation concernant le fonctionnement de ces Frames et des compos UIB contenus...
Comment tout ceci est géré ? Les frames sont-elles bien indépendantes ?
Qu'est-ce qui peut expliquer l'anomalie constatée ?

Merci par avance.

TurboExplorer Pro updaté/ XP Pro SP2

**ShaiLeTroll** · 11/12/2009, 12h26

Est-ce que le Onwer des Composants UIB est la Form ou la Frame ?

Si c'est la Form, peut-être isoler ces composants dans un TDataModule (tu auras autant d'instance de DataModule que de Frame) ou alors faire une instanciation par code (ce que je préfère, on peut mieux gérer l'architecture de son code avec les bonnes Pattern), on peut penser à un problème de nommage des composants et des références de ces derniers dans leur Owner

Si c'est la Frame, cela serait plus surprenant, cela voudrait dire qu'il y aurait de la mémoire partagée entre les instances ??? Très peu probable !!!

**Cl@udius** · 11/12/2009, 15h26

Salut

Envoyé par qi130

Ainsi, par exemple, la liste des tables de la 1ère DB (1er TTabsheet) est écrasée par celle de la 2ème DB.

Je viens de construire un mini-projet et je ne suis pas confronté à ce problème.

Donc le problème est certainement ailleurs que dans le couple Frame/UIB, puisque les frames sont bien indépendantes.

Ton composant UIBDatabase est bien posé sur ta Frame ?

@+ Claudius

**qi130** · 11/12/2009, 15h58

Merci pour vos réponses.

Envoyé par Cl@udius

Ton composant UIBDatabase est bien posé sur ta Frame ?

@+ Claudius

Les compos UIB ne sont directement posés dessus.

En fait, la frame comporte 3 panels, disposés en

1|2
x|-
x|3

avec des splitter, et c'est le n°2 qui détient les compos UIB.

Je peux cependant tenter de les raccrocher à la frame...

**Cl@udius** · 11/12/2009, 16h18

Ta notion de panel "conteneur" m'échappe un peu (

), les UIB n'étant pas des composants visuels.

As-tu la possibilité, simplement, de créer un mini-projet reproduisant ce comportement ? Si oui mets le en PJ, on pourra y jeter un coup d'oeil. Car ça m'intrique c't'affaire !!

@+ Claudius

**Nono40** · 11/12/2009, 17h49

Ou alors c'est un bug des composants UIB quand il sont créés à la volée.

C'est assez étrange tout de même.

**Cl@udius** · 11/12/2009, 18h01

Envoyé par Nono40

Ou alors c'est un bug des composants UIB quand il sont créés à la volée.

C'est assez étrange tout de même.

A priori non, puisque j'ai également fait le test en créant le TUIBDatabase dynamiquement.

**qi130** · 11/12/2009, 21h38

Bon, avec le projet sous le nez, c'est plus concret...

Alors, les UIB apparaissent en fils directs de la frame.

J'ai fait 1 essai avec un

Code :

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

MetaData.LoadFromDatabase(FBMTr);

systématique lors du changement de frame. Le pb ne se produit plus, mais ça ne me parait pas être LA solution; et en + c'est pas gratuit à l'exécution

Je vais tacher de reproduire la chose dans 1 projet réduit...

**qi130** · 17/12/2009, 22h45

Bon, je reviens vers vous avec un projet expurgé des compos exotiques.

Cependant, l'erreur est toujours là

N'hésitez pas à m'interpeler pour un complément d'info (ou autre).

Merci par avance.

NB: il vous faudra 2 DB et commencer par les référencer dans le prog.

**Cl@udius** · 18/12/2009, 10h17

Salut

Zip téléchargé.

Tu ne travailles pas avec les derniers UIB ? (dépôt SVN). Bon Je vais me débrouiller.
A suivre...

**ShaiLeTroll** · 18/12/2009, 11h07

Est-ce que vous avez vérifier leur propriété Name et Owner ... c'est typiquement un problème de référence ...

**Cl@udius** · 18/12/2009, 12h44

Envoyé par ShaiLeTroll

Est-ce que vous avez vérifier leur propriété Name et Owner ... c'est typiquement un problème de référence ...

Name, Owner (et Parent) sont correctement renseignés.
Ce n'est visiblement pas un problème de création dynamique de frame ou de leur gestion, mais plutôt une mauvaise utilisation de l'acquisition des MetaData via les composants UIB.

@qi130

Code :

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

1
2
3
4
5
6
7
8
9
10
 
unit FBMframeDB;
  // ...
initialization
  RegisterClass(TAncestorFrame0);
  MetaData := TMetaDataBase.Create(nil, 0);
 
finalization
  MetaData.Free;
end.

C'est la création dynamique de MetaData qui me dérange. J'obtiens d'ailleurs une belle AV sur le bpl des UIB lors des mes tests.

Il faut utiliser la fonction GetMetaData de TUIBDataBase qui créé une instance de TMetaDatabase. A savoir que cette instance perdure jusqu'à la déconnexion de cette base.

Je fais de plus amples tests et te tiens au courant.

@+ Claudius

**Cl@udius** · 18/12/2009, 17h22

Voici un petit projet présentant une autre façon d'accéder aux Metadata en utilisant les UIB.

Attention:
J'utilise la dernière version des UIB (compatible D2009/Unicode

). Classes TUIBxxx et non TJvUIBxxx

**qi130** · 18/12/2009, 22h07

Tu aurais l'url pour le dernier jus des UIB ?

Sinon, je jette un oeil à ton projet

**qi130** · 18/12/2009, 23h47

Bon, je pense avoir trouvé, surtout grâce aux posts ci-dessus...

C'est la création dynamique de MetaData qui me dérange.

En fait, il s'agissait d'un

Code :

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

var MetaData: TMetaDataBase;

ce qui portait à confusion.

Je l'ai rebaptisé myMetadata, déclaré dans Private et créé dans TAncestorFrame0.InitConnexion.
Dès lors, je n'ai plus le problème

Heu... dois-je libérer myMetaData explicitement ? Je suppose que oui, hein ?