IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Web & réseau Delphi Discussion :

KeepAlive avec Delphi 2007 et Indy i10 ntégré


Sujet :

Web & réseau Delphi

  1. #1
    Membre à l'essai
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Octobre 2011
    Messages
    18
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Octobre 2011
    Messages : 18
    Points : 13
    Points
    13
    Par défaut KeepAlive avec Delphi 2007 et Indy i10 ntégré
    Bonjour,

    J'ai développé depuis plusieurs années un logiciel client - serveur avec Delphi 2007 et le Indy 10 intégré comme protocole de communication.
    Les composants sont de type IndCs:TIdTcpClient; sur le logiciel client et IndSrv: TIdTCPServer;

    Depuis quelque temps je constate une déconnexion intempestive et aléatoire (Connexion reset by peer) sur un client alors que sur le serveur correspondant il ne se passe rien, pas de message d'erreur, le serveur n'est pas planté.
    Cela concerne une trentaine de postes sur 6000 postes connectés et, les serveurs étant hébergés, il y a de multiples firewall entre le client et le serveur.

    Il semblerait que le paramètre keepalive soit à false sur les sockets client (mais c'est vrai depuis toujours) et ma question est la suivante :
    Comment faire pour le mettre à true au moment de la connexion ?

    Voici la création du composant client :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
      IndCs:=TIdTcpClient.Create(Nil);
      WITH IndCs DO
       BEGIN
        OnConnected:=IndCsConnected;
        OnDisconnected:=IndCsDisconnected;
       END;
    et son initialisation (ServerPort et ServerName) sont des paramètres choisis par l'utilisateur selon le serveur auquel il se connecte)


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
      IF Length(ServerName)>0 THEN WITH IndCs DO
        BEGIN
          Port:=ServerPort;
          Host:=ServerName; 
          Connect;
           Application.ProcessMessages;
           EXCEPT Ok:=False;Alerte(MtWarning,MsgConnexion+ServerName+MsgImpossible,False);END;
          Ok:=Connected;
        END
        ELSE Ok:=False;
       END;
      ConnecteAuServeur:=Ok;                                           
     END;

  2. #2
    Expert éminent sénior
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    13 459
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 13 459
    Points : 24 873
    Points
    24 873
    Par défaut
    TIdTCPConnection.Socket.Binding.SetKeepAliveValues() du TIdSocketHandle si j'ai bon souvenir, voir le sujet https://www.developpez.net/forums/d1...e/#post7010436

    Voir aussi pour Winapi : l'API setsockopt \ SO_KEEPALIVE ou l'API
    WSAIoctl \ SIO_KEEPALIVE_VALS
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

Discussions similaires

  1. Réponses: 6
    Dernier message: 22/01/2008, 14h16
  2. Envoyé un mail avec Delphi 2007 et Windows Mail
    Par rivierebruno22 dans le forum Web & réseau
    Réponses: 3
    Dernier message: 03/08/2007, 10h08
  3. prblm rtl100.bpl n'est pas trouve avec delphi 2007
    Par alateemo dans le forum Delphi
    Réponses: 1
    Dernier message: 27/06/2007, 00h04
  4. Réponses: 1
    Dernier message: 17/06/2007, 11h34
  5. Pb avec delphi 2007
    Par TiEw34 dans le forum Delphi
    Réponses: 4
    Dernier message: 14/05/2007, 19h40

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo