Bonjour !
Afin de savoir si je suis ou non connecté à ma base de données j'ai utilisé un Timer comme ceci :
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é.
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;
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.
Partager