Discussion :

[mina24]

Bonjour,
j'ai une application développée avec delphi7 utilisant les composants zeos pour la connexion à firebird . L'application fonctionne tres bien en monopost seulement en réseau apres un certain temps d’inactivités (sur le poste client)j'ai une erreur unable to complete network request to host. Je suis obligé de forcer l'arret et de redemarer l’application pour me connecter au serveur. Comment puis je y remédier?

[Ph. B.]

Bonjour,

j'ai une application développée avec delphi7 utilisant les composants zeos pour la connexion à firebird . L'application fonctionne tres bien en monopost seulement en réseau apres un certain temps d’inactivités (sur le poste client)j'ai une erreur unable to complete network request to host. Je suis obligé de forcer l'arret et de redemarer l’application pour me connecter au serveur. Comment puis je y remédier?

Vous auriez pu indiquer la chaine de connexion que vous utilisez...
En attendant, avez vous lu cette ?
http://firebird.developpez.com/faq/?...-chemin-reseau

[SergioMaster]

Bonjour,

premièrement cela peut être du à votre réseau lui-même (micro coupures/ perturbations sur câbles mal protégés etc...)
ensuite comme l'indique la FAQ citée par Philippe cela peut venir de la chaine de connexion et donc d'un problème Windows de résolution DNS
Enfin cela peut être du au poste client lui-même : vous parlez de temps d'inactivité long peut être que la carte réseau est alors désactivée (économie d'énergie)

cela étant posé, il reste des choses à tenter : gérer l'évènement ondisconnect de la connexion pour voir si cette déconnexion est captée serait un pas en avant
lire ce qui a été écrit au sujet des pertes de réseau WIFI pourrait servir également (chercher dans le forum firebird au moins une discussion à ce sujet, dans le forum Delphi je suis sur d'y avoir déjà fait des interventions à ce sujet)

[Edit]
après avoir revu mes essais à ce sujet le onDisconnect ne fonctionne pas (ou plus exactement fonctionne lorsque l'on demande la déconnexion explicitement) , il existe bien des fonctions Ping et PingServer pour le composant mais lentes
ma solution pour ces tests à été d'utiliser ICMP de Francois Piette et un timer toujours actif (toutes les 2 secondes)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
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'; // la box mais ça peut être le serveur 
    TestIP.Ping;
    if TestIP.ErrorCode<>0 then Showmessage('Connexion perdue '+testip.errorstring);
  finally
    TestIP.Free;
  end;
end;

sur ce bout de code il y a plusieurs critiques à faire, le composant TestIP devrait être créé une seule fois pour le programme et libéré à la fin (donc hors de la procédure)
et il n'y a pas la tentative de reconnexion par la suite ni tout ce qui doit en découler : réouverture des tables, repositionnements etc.... ou plus simplement fermeture du programme
mais il s'agit d'un bout de code test retrouvé

[mina24]

Merci pour votre reponse ,je vais voir le lien cité. Pour ma connexion j'utilise adresse ip: chemin (192.168.1.250:c\mabase.fdb)