PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV Mobile (earlier versions) → [WM12] Relance une connexion Socket
[WM12] Relance une connexion Socket
Started by Julie, Mar., 13 2012 5:04 PM - No answer
#1
Posted on March, 13 2012 - 5:04 PM
Bonjour,

j'ai une application cliente développée en WM12 et une appli serveur développée en delphi 7 elles communiquent via socket.
Cependant, si mon serveur plante (fermeture intempestive comme un redémarrage). Je tente de relancer une connexion de cette manière :

POUR i = 1 A 5
SI gbReconnexionOk = Faux ALORS
LIB_SuppressionSiArret = "Tentative de connexion au serveur.. n°"+i
ConnexionSocket(csNomSocket,CnPortCnx, gfsServeur)
Multitâche()
SINON
gbReconnexionOk = Vrai
FENAccueil.LIB_User = gsStockeNomUser
LIB_SuppressionSiArret = "Reconnexion au serveur validée"
FENAccueil.IMG_Connect..Valeur = fRepExe() +"\Connect.gif"
gbConnexionActive = Vrai
ThreadExecute("ThreadReception", threadNormal, Reception)
DélaiAvantFermeture(300)
Ferme(PopupPbConnexion)
FIN
FIN
SI gbReconnexionOk = Faux ALORS
LIB_SuppressionSiArret = "Echec de la reconnexion, voulez vous retenter ?"
FIN


Cependant cette phase de ConnexionSocket est longue, trop longue elle met environ 1minute par tentative (j'ai 5 tentatives)...

Est ce normal ? Comment puis-je y remédier ?

Merci d'avance pour votre aide.
→ Go back to WINDEV Mobile (earlier versions)