Discussion :

[Just-Soft]

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.

[JustMe]

Vérifie la création de ton Datamodule, et de l'activation de ton timer

[ShaiLeTroll]

Pense effectivement à mettre quelque part, comme le signale JustMe
à la création du DM par exemple

Code :

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

Timer1.Enabled := True;

Si ton time-out de connexion est plus long que 5 secondes, le timer va se déclencher trop de fois et émettre le message WM_TIMER inutilement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TfmMain.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval := 5000;
  Timer1.Enabled := False;
  try
    if (DM <> nil) then
      if (DM.IBCConnection1.Connected) then
        RzStatusPane5.Caption := 'Etat : connecté'
      else
        RzStatusPane5.Caption := 'Etat : déconnecté';
  finally
    Timer1.Enabled := True;
  end;   
end;

Ensuite, est que Connected vérifie vraiment l'état de la connexion ou ne fait que lire un membre privé FConnected !
Il faut peut-être faire une action comme par exemple lancé une requete pour forcer la détection de la perte de connection !

As-tu pensé à utiliser plutôt TCustomDAConnection.OnConnectionLost Event

Code :

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

TIBCConnection = class(TCustomDAConnection);

This event occurs when connection was lost.

Class TCustomDAConnection

Syntax property OnConnectionLost: TConnectionLostEvent;

Remarks

Write the OnConnectionLost event handler to process fatal errors and perform failover.

Note: you should explicitly add the T:Devart.Dac.Units.MemData unit to the 'uses' list to use the OnConnectionLost event handler.

[Just-Soft]

Ensuite, est que Connected vérifie vraiment l'état de la connexion ou ne fait que lire un membre privé FConnected !
Il faut peut-être faire une action comme par exemple lancé une requete pour forcer la détection de la perte de connection !
[/URL]

c'est ce que je pense car j'ai fais tout ce que vous avez suggérer mais l'étant ne change guère comme si il le lit en établissant la connexion puis il ne le remet jamais à jour !

[Just-Soft]

Re-bonjour tout le monde
comme suggéré et puisque j'utilise les composants DEVART, j'ai fais appelle à l'événement OnConnectionLost comme ceci

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
18
19
20
21
22
23
24
25
26
procedure TDM.IBCConnection1ConnectionLost(Sender: TObject;
  Component: TComponent; ConnLostCause: TConnLostCause;
  var RetryMode: TRetryMode);
var
  Msg : string;
begin
   case ConnLostCause of
    clUnknown:
      Msg := 'suiet à une erreur inconnue';
    clExecute:
      Msg := 'une exécution SQL';
    clOpen:
      Msg := 'l''ouverture d''une requête';
    clApply:
      Msg := 'une MAJ du cache';
    clServiceQuery:
      Msg := 'la demande d''informations de service';
    clTransStart:
      Msg := 'un démarrage de la transaction';
    clConnectionApply:
      Msg := 'une connexion au cache';
    clConnect:
      Msg := 'l''établissement de la connexion';
  end;
  ShowMessage(Component.Name + ' - Connecxion perdue durant ' + Msg);
end;

et puisque j'ai rien comme retour même si je déconnecte ma BD depuis le serveur où elle est hébergé je me demande si je dois faire un appel explicite à cet événement qui me semble, d'après DEVART, doit se faire d'une façon implicite ?!

[Linkin]

Il y a de fortes chances (n'utilisant pas Devart), que l'évènement soit déclenché lors de la prochaine requête adressée au serveur. Tant que tu ne fais rien, il considère que tu es connecté (DBExpress fonctionne sur ce principe).

Pour tester la connexion au serveur lance une requête régulièrement sur le serveur (genre un select current_timestamp from RDB$DATABASE. Par contre, faire attention, cela bloque l'application lors de l'attente de connexion au serveur.

[SergioMaster]

Bonjour,

Comme linkin je n'utilise pas devart, mais ....

la perte de liasion peut avoir deux causes (enfin au moins)
1- la perte du réseau local
2- le shutdown de la SGBD

dans les deux cas

Pour tester la connexion au serveur lance une requête régulièrement sur le serveur (genre un select current_timestamp from RDB$DATABASE. Par contre, faire attention, cela bloque l'application lors de l'attente de connexion au serveur.

il y aura un délai , pour obtenir finalement une réponse négative

la première cause , il vaut mieux la tester en testant l'adresse réseau (dans ce cas je conseille plutôt icp à Indy)

la seconde , il faudrait envoyer un événement (Event Firebird) avant de fermer la base Firebird et donc gérer cet événement (via un Tibevent ou autre du même accabit)

[Just-Soft]

Bonjour,

Comme linkin je n'utilise pas devart, mais ....

la perte de liasion peut avoir deux causes (enfin au moins)
1- la perte du réseau local
2- le shutdown de la SGBD

Ok Serge, je vais explorer ces deux pistes, pour le moment voilà ce que j'ai pu faire suite à la proposition de linkin :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
procedure TfmMain.Timer1Timer(Sender: TObject);
const
  msg_sql = 'Select current_timestamp from RDB$DATABASE';
begin
  Timer1.Interval := 2000;
  Timer1.Enabled := False;
  try
    if (DM <> nil) then
      try
        ibc_q_test_connect.SQL.Clear;
        ibc_q_test_connect.SQL.Text := msg_sql;
        ibc_q_test_connect.Active := True;
      except
        ibc_q_test_connect.Active := False;
      end;
      DM.IBCConnection1.Connected := ibc_q_test_connect.Active;
      if (DM.IBCConnection1.Connected) then
      begin
        RzStatusPane5.Font.Color := clBlack;
        RzStatusPane5.Caption := 'Etat : connecté'
      end
      else
      begin
        RzStatusPane5.Font.Color := clRed;
        RzStatusPane5.Caption := 'Etat : déconnecté';
        try
          Application.CreateForm(Tfm_msg_connexion, fm_msg_connexion);
          fm_msg_connexion.ShowModal;
          // que dois-je mettre ici afin d'essayer de me reconnecter sans quitter l'appli
        finally
          fm_msg_connexion.Free;
        end;
      end;
  finally
     Timer1.Enabled := True;
  end;
end;

ce qui me reste dans ce fragment de cas c'est d'essayer de me reconnecter à la bd sans quitter l'application. Mais sincèrement là je sèche

[SergioMaster]

re,

j'ai bien un bout de code pour la partie "perte réseau" mais hélas pas sur ce PC , dès que je l'aborde ...

[Edit]
Bonjour ,
j'utilise icmp plutôt que indy , j'ai un réseau hétérogène et indy était plus lents sur les tests réseaux (voir je ne sais plus quel post à ce sujet).
icmp.pas est récupéré dans la suite de François Piette ICS
tout d'abord , un bout de code qui m'a servi de test, dans un timer je vérifiais la présence de mon routeur (liaison wifi)

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
 
uses ... icmp;
 
procedure TForm22.Timer1Timer(Sender: TObject);
var testIP : TICMP;
begin
  TestIP:=TICMP.Create;
  try
    TestIP.Timeout:=1000; // defaut 1s (1000)
    TestIP.Address:='192.168.1.1';
    TestIP.Ping;
    if TestIP.ErrorCode<>0 then Showmessage('Connexion perdue '+testip.errorstring);
  finally
    TestIP.Free;
  end;
end;

ce petit programme ayant donné satisfaction , j'ai procédé de la manière suivante, dans un datamodule

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
uses
...  icmp;
 
type
  TDataM = class(TDataModule)
 ...
 private
    { Déclarations privées }
    testIP : TICMP;
  public
    { Déclarations publiques }
    function Connecte : Boolean;
  end;
 
var
  DataM: TDataM;
 
 
implementation
 
{$R *.dfm}
 
function TDataM.Connecte: Boolean;
begin
Result:=TestIP.Ping=0;
end;
 
procedure TDataM.DataModuleCreate(Sender: TObject);
begin
TestIP:=TICMP.Create;
TestIP.Timeout:=1000; // defaut 1s (1000)
TestIP.Address:=Base.HostName;   // adresse serveur BDD
end;

et donc , avant de lancer une requête , il me suffit de faire :
if DataM.Connecte then <ExecSQL>

ce n'est pas la panacée :
1- pas de détection du shutdown (à gérer à part)
2- les antivirus détecte le ping et lève une alerte
3- il y a toujours un temps de réponse (on peut diminuer le time-out)
4- le faire dans un timer (comme dans la partie test) est no comment , réglage délicat entre déclenchement du timer et timeout

il doit y avoir d'autres solutions en tout cas celle-ci semble plus rapide que de lancer une requête sur la BDD (je n'ai vu nulle part un moyen de changer le time out d'une requête ? enfin cela doit dépendre de la suite de composants)