Discussion :

[marghett]

Salut à tous,

Voila mon problème
J'ai créer un composant qui contient un TQuery. Tout marche très bien a l'execution. Le seul problème c'est à la conception: lorsque que je veux supprimer mon composant, delphi m'affiche le message d'erreur suivant:

Violation d'accès à l'adresse 40005A0C dans le module 'rtl70.bpl'. Lecture de l'adresse F28B562F.

Et ce qui est genant c que Delphi plante complètement et je suis obliger de l'arreter avec le gestionnaire des taches.

Le problème qui se pose c'est que comme mon composant contient un TQuery, il se créé automatiquement une Session lorsque je pose mon composant sur ma fiche et que je veux supprimer mon composant, il semble vouloir essayer de supprimer la Session. Et la ca plante !!!

Alors la je sais pas koi faire à par créer mon TQuery à l'exécution mais j'aurai plus l'avantage de le voir a la conception et ca c génant.

Merci de votre aide.

[JustMe]

Tu envoies la partie ton constructeur qui sème le doute ainsi que ton destructeur pour voir si on peut t'aider.

[marghett]

Mais j'ai pas de constructeur, en fait mon composant c'est une frame qui contient une DBGrid, un TQuery, un TDatasource reliés ensemble et quelques composant de saisie (TEdit, TComboBox). Et ma frame marche très bien, toute mon application est basée dessus tourne tres bien. Le truc c'est que je veux en faire un composant pour pouvoir mettre des propriété en published pour pouvoir les remplir à la conception plutot qu'a l'execution.

Et comme je l'ai di le probleme c'est le TQuery qui creer automatiquement une Session quand on le pose et qui essaye de la detruire quan on le supprime et la ca plante.

[marghett]

Pour etre sur que le problème vienne uniquement du TQuery, j'ai créer un composant descendant de TFrame et qui contient seulement un TQuery, je n'ai apporter aucune autre modification et ca aboutit au même problème, impossible de supprimer ce composant à la conception sans que delphi plante.

[JustMe]

Si c'est un composant que tu veux créer tu doit implémenter dans sa classe au mois un constructeur est un destructeur. Mais si c'est un modèle de composant c'est une autre paire de manche.

[marghett]

On est pas obliger de créer un constructeur, si on n'a pas besoin de faire plus de truc que ce que fait le constructeur du composant à partir duquel on part.

Et la mon composant descend de TFrame donc je ne créé pas de constructeur il y a déja celui du TFrame.

Et qu'est que tu entend par modèle de composant ? Une frame?

[JustMe]

OK

[marghett]

Et sinon t aurai pas une idée du problème tu TQuery? Parce que quand on pose un TQuery sur une fiche, on peut le supprimer comme on veux donc il doit y avoir un truc a ajouter pour que ca marche. J'ai regarder le code du TQuery et de ces ancêtres mais j'ai pas trouver ce qui pouvait faire que ca marche. Il doit pourtant bien y avoir un moyen de reproduire le meme fonctionnement.

[marghett]

Alors, personne n'aurais une idée sur le problème ? Je vais devoir abandonner l'idée de créer un composant qui contient un TQuery ?

[Amenofis]

Salut,

je ne vois pas d'où peut venir le problème... désolé...

juste, à ta place je poserais ma question sur le forum Delphi... certes le problème concerné un TQuery mais bon, c'est surtout un problème de destruction et de composant plus qu'un de SGBD...

bonne chance...

@+

[cadetill]

c'est que je n'arrive a voire est que pour faire un composant dérivée de TFrame tu dois faire quelque chose comme ça

Code :

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

1
2
3
4
5
6
7
8
 
type
  TMyFrame = class(TFrame)
  private
  protected
  public
  published
  end;

Alors, ça n'a aucun TQuery, tu dois le crée par code par exemple dans le constructeur (et le détruire dans le destructeur)

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
19
20
21
22
23
24
 
type
  TMyFrame = class(TFrame)
  private
    FQuery: TQuery;
  protected
  public
    constructor Create(aOwner: TComponent); override;
    destructor Destroy;
  published
    property Query: TQuery read FQuery write FQuery;
  end;
 
implementation
 
constructor TMyFrame.Create(aOwner: TComponent);
begin
  FQuery := TQuery.Create(Self);
end;
 
destructor TMyFrame.Destroy;
begin
  FreeAndNil(FQuery);
end;

Esite d'essayer ça.

J'ai fait le code de mémoire, peut être il y a quelques erreurs

[marghett]

Salut cadetill,

Tu a raison mais le simple fait de créer un TQuery à la création du TFrame ou peu être même le fait d'avoir une variable TQuery, il y a toujours une Session qui se créer et du coup le problème persiste.

Toi aussi Amenofis tu à raison, je vais aller voir sur le forum Delphi si qqun ne saurai pas.

Bon ben merci à tous, a+

[marghett]

Au fait pour ceux qui voudrai suivre le sujet voici le lien sur le forum Delphi: http://www.developpez.net/forums/vie...239740#1239740