Appel de deux méthodes consécutivement dans un gestionnaire d'événement

**guiga** · 19/08/2007, 22h27

Bonjour,

Je déclare deux méthodes dans Unit2.h (section public):

Code :

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

1
2
 void __fastcall calcul1 (int, int);
void __fastcall calcul2 (int, int);

J'implémente ces deux méthodes dans Unit2.cpp:

Code :

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

1
2
3
4
5
6
7
8
9
 void __fastcall TForm2::calcul1(int x, int y)
{
//
}
 
void __fastcall TForm2::calcul2(int x, int y)
{
//
}

Quand j'appelle ces deux méthodes consécutivement dans un gestionnaire d'événement:

Code :

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

1
2
3
4
5
6
7
 void __fastcall TForm2::MyButtonClick(TObject *Sender)
{
Form1->variable1 = a; // variable1 est déclarée dans la classe Form1
Form1->variable2 = b;
calcul1(Form1->variable1, Form1->variable2);
calcul2(Form1->variable1, Form1->variable2);
}

la première est exécutée normalement, mais au début de l'éxécution de la seconde il y a un problème (Message Violation d'accès à l'adresse XXXXXX dans le module Project1.exe. Lecture à l'adresse XXXXXXX).

Quand j'appelle ces deux méthodes séparémment dans deux gestionnaires d'événements différents, il n'y a pas de problème.

Merci de m'expliquer mon erreur.

**pottiez** · 19/08/2007, 22h47

C'est un problème d'adressage, donc de pointeur, tu dois avoir un pointeur, une variable ou une fonction qui est mal déclaré. Une question, qui ne doit pas avoir de rapport avec ton erreur, mais pourquoi mettre __fastcall devant tes fonction, a priori, seul les fonctions d'objet builder l'utilisent et en on besoin

**Neilos** · 20/08/2007, 08h07

Envoyé par pottiez

Une question, qui ne doit pas avoir de rapport avec ton erreur, mais pourquoi mettre __fastcall devant tes fonction, a priori, seul les fonctions d'objet builder l'utilisent et en on besoin

Tu es sur de ca ?
Il me semblait que __fastcall te permet t'utiliser les registres processeur plutot que la pile pour passer tes parametres tant que leur nombre n'excede pas 5.

**guiga** · 20/08/2007, 09h58

C'est un problème d'adressage, donc de pointeur, tu dois avoir un pointeur, une variable ou une fonction qui est mal déclaré.

Mais pourquoi alors ce problème ne survient pas quand j'appelle ces deux méthodes séparémment dans deux gestionnaires d'événements différents?

**Neilos** · 20/08/2007, 10h10

Hmmm bonne question, la comme cea je ne vois aucune reponse.
Active toutes les options de codeguard et recompile ton programme. Lance le et regarde ce que CodeGuard t'indique...

**pottiez** · 20/08/2007, 13h46

Envoyé par guiga

Mais pourquoi alors ce problème ne survient pas quand j'appelle ces deux méthodes séparémment dans deux gestionnaires d'événements différents?

Simplement parce que ce n'est plus le même programme, et que, du coup, lorsque le programme se lance, les variable ne sont pas forcément enregistrer au même endroit de la mémoire, et donc, si cette mémoire n'est pas initialisé au début de ton programme, il va prendre la valeur qui y été avant, et qui peut donc, ne pas avoir de rapport avec ce programme, si cette valeur et définit un adresse système ou une adresse null, alors ton programme plante et te dis qu'il y a un problème sur l'adresse, cela peut aussi provoqué des bug sur le système si l'adresse en question est une adresse du système.

J'ai peut être pas été très clair la

**Neilos** · 20/08/2007, 18h18

Envoyé par pottiez

Simplement parce que ce n'est plus le même programme, et que, du coup, lorsque le programme se lance, les variable ne sont pas forcément enregistrer au même endroit de la mémoire, et donc, si cette mémoire n'est pas initialisé au début de ton programme, il va prendre la valeur qui y été avant, et qui peut donc, ne pas avoir de rapport avec ce programme, si cette valeur et définit un adresse système ou une adresse null, alors ton programme plante et te dis qu'il y a un problème sur l'adresse, cela peut aussi provoqué des bug sur le système si l'adresse en question est une adresse du système.

J'ai peut être pas été très clair la

110 mots => 1 phrase.
Einstein: "Make is as easy as possible but not easier"

**rtg57** · 21/08/2007, 08h30

Bonjour,

est-ce qu'un petit

Code :

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

Application->ProcessMessages

entre les 2 appels calme le jeu ?

Je ne comprends pas d'ou vient cette erreur car le code doit s'exécuter séquentiellement. Donc la procédure "Calcule1" doit être physiquement terminée lorsque "Calcule2" commence. Il ne peut donc pas y avoir d'embrouille au niveau des accès aux emplacements mémoire de ces variables. Et pourtant... D'ou l'idée de temporiser avec "ProcessMessages".

Autre idée:
Pourquoi ne pas mettre "Calcule1" et "Calcule2" dans la même procédure "CalculeGénéral", avec passage d'un drapeau qui indiquerait s'il faut exécuter "Calcule1", ou "Calcule2" ou les deux consécutivement ?

**Neilos** · 21/08/2007, 08h35

Une bonne idee serait peut etre de nous poster le code de tes deux fonctions (si ca ne fait pas 150 000 lignes ^^).

**guiga** · 24/08/2007, 12h45

J'ai compris que le problème ne vient pas de l'appel successif des deux fonctions, mais sans doute de leur implémentation. En effet, j'ai mis les deux fonctions ensemble: void __fastcall calculNoteMatiere(int etudiant, int matiere). Mais après l'appel de la fonction, il y a violation d'accès. Je n'ai pas compris mon erreur dans l'implémentation. La fonction effectue un calcul de moyenne en utilisant des tables (Interbase ou MySQL, le problème persiste). La moyenne d'une matière est calculée à partir des notes d'examens (controles) ayant chacun une pondération.

La table controles (tb_controles) est détail de la table matières (tb_mat).
La table notes des controles (tb_notes_controles) est détail de la table controles (tb_controles).
La table notes des matières (tb_notes_mat) est détail de la table matières (tb_mat).

Voici le code de la fonction (j'ai essayé de mettre des commentaires pour clarifier):

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
 
void __fastcall TDM::calculNoteMatiere(int etudiant, int matiere)
{
// CALCUL DE LA NOTE DE LA MATIERE POUR LA SESSION NORMALE
 
// Locate dans la table Etudiants
fctLocate (tb_etud, "ID_ETUDIANT", IntToStr(etudiant));
// Locate dans la table Matieres
fctLocate (tb_mat, "ID_MATIERE", IntToStr(matiere));
 
float noteMatiere = 0;
float sommePonderation = 0;
tb_controles->First();
while (!tb_controles->Eof)
{
 if(tb_controlesTYPE_CONTROLE->Value == "RATTRAPAGE") {tb_controles->Next(); continue;}
// Locate dans la table tb_note_controle détail de la table controles
fctLocate (tb_notes_controles, "ID_ETUDIANT_FK", IntToStr(etudiant));
noteMatiere += tb_notes_controlesNOTE_CONTROLE->Value * tb_controlesPONDERATION->Value;
sommePonderation += tb_controlesPONDERATION->Value;
tb_controles->Next();
}
if( sommePonderation != 1.0)
{
   ShowMessage("ATTENTION ! La somme des pondérations des contrôles pour cette matière est différente de 1");
   return ;
}
 
noteMatiere = noteMatiere/sommePonderation;
 
 
// Stocker la note de la matière dans la table tb_note_mat
 
  // Vérifier d'abord si la note existe dèjà (modification)
 
  TLocateOptions Opts;
 
  Opts.Clear();
  Opts << loPartialKey;
  Variant locvalues[2];
  locvalues[0] = Variant(IntToStr(matiere));
  locvalues[1] = Variant(IntToStr(etudiant));
  locvalues[2] = Variant("NORMALE");
 
  bool LocateSuccess = tb_notes_mat->Locate("ID_MATIERE_FK;ID_ETUDIANT_FK;SESSION", VarArrayOf(locvalues, 2), Opts);
 
  if(LocateSuccess)
  {
   tb_notes_mat->Edit();
   tb_notes_mat->FieldByName("NOTE_MAT")->Value = noteMatiere;
   tb_notes_mat->Post();
  }
  else
  {
   tb_notes_mat->Append();
   tb_notes_mat->FieldByName("NOTE_MAT")->Value = noteMatiere;
   tb_notes_mat->FieldByName("SESSION")->Value = "NORMALE";
   tb_notes_mat->Post();
  }
 
// CALCUL DE LA NOTE DE LA MATIERE POUR LA SESSION DE RATTRAPAGE
 
 
// Vérifier que l'étudiant a bien une note dans la session de rattrapage dans cette matière
 
// Locate dans la table tb_controle
if(!fctLocate (tb_controles, "TYPE_CONTROLE", "RATTRAPAGE"))
{
ShowMessage("Examen de rattrapage inexistant dans la liste des contrôles pour cette matière. La moyenne a été calculée pour la session normale uniquement.");
return; // Sortir de la fonction
}
else
{
    // Locate dans la table tb_note_controle
    fctLocate (tb_notes_controles, "ID_ETUDIANT_FK", IntToStr(etudiant));
    if(tb_notes_controlesNOTE_CONTROLE->Value == NULL)
    {
           // Effacer l'enregistrement correspondant dans la table notes_etudiants_matières
           TLocateOptions Opts;
 
           Opts.Clear();
           Opts << loPartialKey;
           Variant locvalues[2];
           locvalues[0] = Variant(IntToStr(matiere));
           locvalues[1] = Variant(IntToStr(etudiant));
           locvalues[2] = Variant("RATTRAPAGE");
 
            bool LocateSuccess = tb_notes_mat->Locate("ID_MATIERE_FK;ID_ETUDIANT_FK;SESSION", VarArrayOf(locvalues, 2), Opts);
 
           if(LocateSuccess)
           {
             tb_notes_mat->Edit();
             tb_notes_mat->Delete();
           }
        return; // Sortir de la fonction
    }
}
 
// Commencer le CALCUL DE LA NOTE DE LA MATIERE POUR LA SESSION DE RATTRAPAGE
 
noteMatiere = 0;
sommePonderation = 0;
tb_controles->First();
while (!tb_controles->Eof)
{
 if(tb_controlesTYPE_CONTROLE->Value == "FINAL") {tb_controles->Next(); continue; }
// Locate dans la table tb_note_controle
fctLocate (tb_notes_controles, "ID_ETUDIANT_FK", IntToStr(etudiant));
noteMatiere += tb_notes_controlesNOTE_CONTROLE->Value * tb_controlesPONDERATION->Value;
sommePonderation += tb_controlesPONDERATION->Value;
tb_controles->Next();
}
if( sommePonderation != 1.0)
{
   ShowMessage("ATTENTION ! La somme des pondérations des contrôles pour cette matière est différente de 1");
   return ;
}
 
noteMatiere = noteMatiere/sommePonderation;
 
 
// Stocker la note de la matière dans la table tb_note_mat
 
  // Vérifier d'abord si la note existe dèjà (modification)
 
  Opts.Clear();
  Opts << loPartialKey;
  locvalues[2];
  locvalues[0] = Variant(IntToStr(matiere));
  locvalues[1] = Variant(IntToStr(etudiant));
  locvalues[2] = Variant("RATTRAPAGE");
 
  LocateSuccess = tb_notes_mat->Locate("ID_MATIERE_FK;ID_ETUDIANT_FK;SESSION", VarArrayOf(locvalues, 2), Opts);
 
  if(LocateSuccess)
  {
   tb_notes_mat->Edit();
   tb_notes_mat->FieldByName("note_mat")->Value = noteMatiere;
   tb_notes_mat->Post();
   tb_notes_mat->Refresh();
  }
  else
  {
   tb_notes_mat->Append();
   tb_notes_mat->FieldByName("NOTE_MAT")->Value = noteMatiere;
   tb_notes_mat->FieldByName("SESSION")->Value = "RATTRAPAGE";
   tb_notes_mat->Post();
  }
}

Quand la fonction est appelée à la fin d'un gestionnaire d'évènement, il n' y a pas de problème. Mais dès qu'on rajoute une instruction quelconque après son appel, même du type ShowMessage("Tout est OK"); il y a violation d'accès à ce niveau.
Je suis à votre disposition pour donner des clarifications sur le code.