Discussion :

[richard038]

Bonjour,

Je me connecte à une base de données firebird via un TSQLConnection.
Je voulais savoir s'il était possible de savoir si une connexion est toujours active. exemple, mon seveur de DB s'arrête, je voudais afficher un message d'information clair à l'utilisateur.
Actuellement j'intercepte l'erreur pour éviter d'avoir des violations.

Merci

[sofiane1111]

pour quoi tu ne rajoute pas une procedure de connexion à la base de données et que tu fait appelle à chaque fois quand tu click dans un boutton de n' import qu'elle forme
je sais que sais un peut long comme solution mais ça marche
procedure de connexion

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
begin
database1.disconnect;
try
      database1.connect;
    except
      on E: Exception do
      begin
        showmessage('connection failed with message [' + E.Message + ']');
        database1.disconnect;
        Exit;
      end;
end;

à toit de revoir le contenue que tu veut mettre à l'interieur du message

[Giovanny Temgoua]

Sofiane,

Je pense que son problème est d'être avertit que la connexion n'est plus ouverte, dans le cas par exemple d'un plantage du serveur.
C'est vrai qu'essayer d'établir une connexion qui se solderai par un échec pourrait instruire l'utilisateur qu'il y'a un problème au niveau du serveur mais comme tu le dis cà consiste à réunir des ressources pour une nouvelle connexion (je ne sais pas si le concept de connexion pooling est implicitement utilisé ici...)

J'ai déjà donné une approche qui me semble plus adaptée il y'a quelque temps.

Utiliser TClientSocket/TServerSocket.

Lorsque la connexion entre le client et le serveur est rompue par exemple si la machine serveur plante, un évènement sera déclenché aussitôt.

Enfin, à vous de voir...

[Andry]

Je suis d'accord pour l'utilisation des Socket mais dans le cas ou c'est le serveur Firebird qui plante, aucun evenement ne sera pas declanché au niveau des socket.

A+