Bonjour !

Afin de savoir si je suis ou non connecté à ma base de données j'ai utilisé un Timer comme ceci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
procedure TfmMain.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval := 5000;
  if (DM <> nil) then
    if (DM.IBCConnection1.Connected) then RzStatusPane5.Caption := 'Etat : connecté'
    else RzStatusPane5.Caption := 'Etat : déconnecté'
end;
ma base de données et de type Firebird même si en terme de syntaxe ça parait juste, mais en terme d'exécution ça ne donne pas le résultat escompté.
Afin de tester ce bout de code, j'ai déconnecté la base de données manuellement, mais l'application n'a pas réagit ?! dois-je ajouter autre chose ?

Merci par avance.