Discussion :

[Orionos]

Bonjour à tous,

<EDIT>(Voir prochain message pour les précisions)<EDIT>

Je suis confronté à un bug très gênant et ... étrange.
Le but c'est d'ouvrir une requête (TFDQuery), puis de mettre un message à l'utilisateur.

La procedure qui pose problème :

Code :

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

1
2
3
FDQuery.SQL.Text := 'select user mdp from utilisateur where user = ''robert'' and mdp = ''plant''';
FDQuery.Open;
MessageDlg('OK !', mtWarning, [mbOK], 0);

En effet, la fenêtre 'OK !' pop, mais se ferme quasi-instantanément.

Alors que

Code :

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

1
2
3
FDQuery.SQL.Text := 'select user mdp from utilisateur where user = ''robert'' and mdp = ''plant''';
// FDQuery.Open;
MessageDlg('OK !', mtWarning, [mbOK], 0);

Fonctionne normalement.

J'aimerais quand même pouvoir faire le Open puis le MessageDlg (peut importe le résultat de la requête) sans que le MessageDlg ne disparaisse. Je vois absolument pas le lien entre les deux !

Problème présent en Debug et en Release avec Delphi XE7, une TFDQuery, et MessageDlg provenant de Vcl.Dialogs.

[SergioMaster]

Bonsoir,

j'ai vérifié, mais non je n'ai pas ce problème (ouf!)
J'ai repris ce point à partir d'un code test et fait plusieurs essais différents (pas de changement du SQL texte, changement, disable/Enablecontrols etc...) et toujours pas de

Code :

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

1
2
3
4
5
6
7
 
// fdquery.disablecontrols;
fdQuery1.Close;
fdquery1.SQL.text:='SELECT * FROM BRANDS ORDER BY CODE';
fdquery1.Open();
showmessage('test');
//fdquery1.enablecontrols;

un problème avec le fdGUIxWaitcusor peut être ? (bien vérifier le provider)

juste une question il s'agit d'un programme VCL ou FMX (même si je vois MessageDlg provenant de Vcl.Dialogs)

[Orionos]

En effet SergioMaster, le bug n'est pas reproductible si facilement. J'ai tenté de mettre le cas le plus simple possible sans avoir testé. Désolé.

Après une analyse plus approfondie, j'ai réussi à localiser assez précisément d’où venait ce comportement.
Avant d'ouvrir ma query, j'écris dans un fichier texte. Cette écriture est threadé. Le code date de Delphi 7. Cette portion (que je n'ai pas écrite) utilise des TEvent, un TCriticalSection, un dérivé de TThread.
Le suspect numéro 1 est le TMyThread.Execute.

Dans ce thread je fais notamment des choses comme :

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
while not Terminated do
  try
     case MyEventArret.WaitFor(250) of
       wrSignaled :
          begin
            MyEventArret.ResetEvent;
            LockEtatThread.Acquire;
            try
              EtatThread := ARRET_EN_COURS;
            finally
              LockEtatThread.Release;
            end;
            {* on attend au plus 100 ms *}
            MyEventAnnulation.WaitFor(250);
 
            MyEventAnnulation.ResetEvent;
            {...}

Je vois pas ce qui pourrait faire que mon MessageDlg disparaisse, mais ça vient de la (ou pas loin).

Ce qui me fait croire ça :
- Le bug disparait quand je met un point d’arrêt sur Query.Open
- Le bug disparait quand je thread l'affichage du message comme suit

Code :

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

1
2
3
4
5
6
7
8
9
var
  task : ITask;
begin
  SaprrQuery1.Open;
  task := TTask.Create(procedure() begin 
    MessageDlg('salut', mtWarning, [mbOK], 0);
    end);
  task.ExecuteWork;
end;

Il n'est pas possible de faire ça pour tous les MessageDlg de mes programmes. J'imagine que je vais devoir réécrire la partie qui pose problème sur XE7, en utilisant des choses comme TParallel ou TTask.

Si quelqu'un à une idée sur ce qui se passe, c'est bienvenue !

PS : Je n'ai pas précisé, mais d'une part la MessageDlg disparait quasi instantanement, mais ma fenetre appelante passe en dernier plan (derrière toutes mes autres fenêtres).