Delphi7 et firebird2.5 - Problème : "unable to complete network request to host"

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?

Bonjour,

Citation:

---

Envoyé par mina24

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 :faq: ?
http://firebird.developpez.com/faq/?...-chemin-reseau

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 :roll: lentes
ma solution pour ces tests à été d'utiliser ICMP de Francois Piette et un timer toujours actif (toutes les 2 secondes)

Code:

---

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é

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)