Discussion :

[soft_balade]

Bonjour mes amis,
J'ai une application MDI, et un certain nombre de fiche MDIChild, J'appelle une fiche MDICHILD ex Mafiche comme suit :

Code :

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

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

sur ma fiche je gère des tables de base de donnée donc des TTable, TClientDataset ...
Le problème c'est que lorsque j'instancie deux Fiche de MaFiche et que je modifie les données sur l'une d'elle, qd je ferme la première ca passe, mais si j'essaie de fermer la deuxième un message d'erreur du genre : Violation d'accés .... merci de m'éclairer mes amis sur la manière de gérer les Forms MdiChild !!...

[djeckelle]

Salut,

Pourrais tu détailler le message d'erreur?
Sinon as tu vérifier comment étaient aloués et libérés tes objets de base de donnée?

[Yurck]

Probablement du au fait que tu utilises deux fois la même instance d'objet.

Code :

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

1
2
3
 
  MaFiche:=TMaFiche.Create(Application);
  Mafiche.show;

Recherche l'utilisation dans ton code de l'instance MaFiche en particulier dans
le formclose ou le formdestroy

[soft_balade]

Oui je veux instancier deux objets, et dans la procedure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TMafiche.FormClose(Sender: TObject;var Action: TCloseAction);
begin
 IF IS_MODIFIED(cds) THEN // CDS un tableau contenant les noms des TCLIENTDATASET
begin
   SHOWMESSAGE (' Veuillez Enregistrer ou Annuler les modifications !! ');
   else
begin  
  CLOSE_DATA(CDS);
   Table1.Close;
   table2.Close; //Table1, Table2 des TTable 
 
Action := caFree;
end;
end;

voila les deux instances donc execute ce morceau de code, mais à la fermeture de la deuxième fiche un message d'erreur : Le projet MDTEST.exe à provoqué une classe d'exception EAccessVioolation à l'adresse 00000000 ...

[Yurck]

Je ne vois pas d'erreur dans ta procédure Formclose.

Pourtant compte tenu de l'erreur énoncée il semble que tu libère un objet qui est partagé par les deux fiches.

Alors où est déclaré la variable "CDS".

Ton débogueur ne te permet-il pas de localiser l'erreur ?

[soft_balade]

Bonjour;
Voila j'ai réduit le code de manière à ne laisser qque ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
// La procedure relative au bouton de fermeture de la fiche :
 
  procedure TMaFiche.BitBtn3Click(Sender: TObject);
begin
 Mafiche.Close;
end;
 
et 
procedure TMafiche.FormClose(Sender: TObject;var Action: TCloseAction);
 begin
  Action := caFree;
  end;
end;

mais toujours le même problème le comble c'est que si j'utilise le bouton de fermeture systeme de la faiche c'est reussi mais si jutilise le bouton fermer ça plante !!

[Yurck]

Code :

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

1
2
3
4
5
6
// La procedure relative au bouton de fermeture de la fiche :
 
  procedure TMaFiche.BitBtn3Click(Sender: TObject);
begin
 Mafiche.Close;
end;

Ah là on le voit bien le bogue.

"Mafiche" est une instance de ta seconde fiche.

tu devrais faire

Code :

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

1
2
3
4
5
6
7
8
// La procedure relative au bouton de fermeture de la fiche :
 
procedure TMaFiche.BitBtn3Click(Sender: TObject);
begin
  {Mafiche.}Close;
  // ce qui revient à faire
  // Self.Close;
end;

Apprend à utiliser le débogueur c'est essentiel tu aurais sans doute trouver seul (avec l'aide du dégogueur) ou tu nous aurais donner la ligne en erreur plus tôt.

a+

[soft_balade]

Merci beaucoup YURCK ta proposition de ne mettre que CLOSE à la place de MaFiche.CLOSE, règle le problème de Violation d'accés.
Encore une fois thank's !!

[aityahia]

Salut.

si vous voulez que vous données soit synchronisé en temps réelle aide toi d'un data module, ton souci disparaitra avec.