Discussion :

[weberick]

Bonjour,

Comme on dit souvent tout est dans le titre ....
Donc j'ai maintenant un datamodule en plus dans mon appli.
Il convient donc de réaffecter mes composants et modifier mon code en conséquence...
Pour les composants pas de problème le dbgrid accepte la nouvelle architecture les DBText et DBEdit pareillement.
Par contre pour le code il faut que je rajoute le préfixe de la "form DataModule" à savoir d_m
Avant

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
///////////////////////////////////////////
// Initialisation du SGBD
///////////////////////////////////////////
procedure Tf_princ.FormShow(Sender: TObject);
begin
     try
      bd_SPF.connected:=True;
     except
      showmessage('Problème de serveur MySQL');
     End;
     If bd_SPF.connected
     Then v_connected:=bd_SPF.connected
     Else v_connected:=False;
 
end;

Après

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
///////////////////////////////////////////
// Initialisation du SGBD
///////////////////////////////////////////
procedure Tf_princ.FormShow(Sender: TObject);
begin
     try
      d_m.bd_SPF.connected:=True;
     except
      showmessage('Problème de serveur MySQL');
     End;
     If bd_SPF.connected
     Then v_connected:=bd_SPF.connected
     Else v_connected:=False;

end;

Impossible d'utiliser mon sql50connection ... tout est active:=False
Peut pas avancer sans mon sql50connection !!!!

BUG Répertorié : http://62.166.198.202/view.php?id=8952
Comment faire pour le contourner ???
Eric

[chris37]

Bonjour Eric,

J'ai un petit projet de test avec une form et un datamodule
Sur le datamodule, il y a un composant TSQLConnection

Depuis la form, je fais

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 DataModule1.MySQL50Connection1.Connected:=true;
 if DataModule1.MySQL50Connection1.Connected then
   ShowMessage('Connected')
 else
   ShowMessage('Error !');
 
end;

Et...CA MARCHE
Par contre j'ai fais le test avec une version 0.9.27 SVN: 17610 FCP 2.2.3 du 28/11/2008 (celle que j'ai au bureau)

@+

[weberick]

Chris,


L'architecture est similaire à la mienne et ça ne marche pas V0.9.26.
J'ai vu que le bug est répertorié mais pas de solution alternative.
Vu qu'apparemment c'est la complétion de code qui n,e fonctionne pas je vais retravailler mon code sous VIM !!! hé hé hé les années 80 reviennent !!!

Eric

[chris37]

Oui c'est du à un problème d'architecture des fichier.inc de la classe Tmysql...;
ça date et est un peu casse bonbon mais ce n'est pas bloquant

D'après ton explication j'ai cru que c'est au lancement de la connexion que ça faisait BOOM. oops...

Par contre avec ma version je n'ai pas ce problème de complétion...

@+ la broussailleuse de code

[weberick]

Chris

D'après ton explication j'ai cru que c'est au lancement de la connexion que ça faisait BOOM. oops...

non en fait c'est lors de la complétion du code (CTRL bare espace) que j'ai le problème et je me rends compte que dans VIM ça va être "coton" à faire.

Je vais tenter une MAJ de Lazarus.

A plus tard


Eric

[chris37]

En effet,


Comme l'a dit Wile64, je te recommande aussi d'utiliser FPC 2.2.3 en lieu et place de la 2.2.2 car au niveau BDD, il y a un peu (beaucoup) d'amélioration.

Il bossent bien les petits gars

@+