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 :

indyTCPServer ne reçoit plus de data (perte de donnés)


Sujet :

Web & réseau Delphi

  1. #1
    Futur Membre du Club
    Homme Profil pro
    Architecte de système d'information
    Inscrit en
    octobre 2015
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Architecte de système d'information

    Informations forums :
    Inscription : octobre 2015
    Messages : 15
    Points : 5
    Points
    5
    Par défaut indyTCPServer ne reçoit plus de data (perte de donnés)
    Bonjour,
    J'ai un IdTCPServer avec plusieurs client connectés. La communication fonctionne normallement mais quand je depasse un certain nombre de readstream le serveur ne peut plus lire la data et ceci seulement dans l'événement OnExecute. Je n'arrive pas a trouver une solution .. Pouvez vous me suggerer une solution svp ? Merci .




    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
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    type TInfPacket  = record
           info1 : String[10];
           info2 : String[10];
           Password         : String[10];
           Type          : string[15];
           Authorized       : Boolean;
     
     
     
    function ReceiveStream(AContext: TIdContext; var AStream: TStream)
      : Boolean; overload;
    var
      LSize: LongInt;
    begin
      Result := True;
      try
         LSize := AContext.Connection.IOHandler.ReadLongInt();
         AContext.Connection.IOHandler.ReadStream(AStream,LSize, False)
         AStream.Seek(0,soFromBeginning);
      except
        Result := False;
      end;
    end;
     
     
     
    procedure TForm1.IdTCPServerExecute(AContext: TIdContext);
    var
       AStream: TmemoryStream;
    begin
     
     AStream:=TMemoryStream.Create;
     try
      AStream.Clear;
      ReceiveStream(AContext,TStream(AStream));
      AStream.Read(InfPacket,SizeOf(TInfoPacketDest));   // ===> Ca fonctionne ici
     
      if InfPacket.Type='Send'
       then 
         begin
          Astream.Clear;
          AStream.Write(InfPacket,SizeOf(TInfoPacketDest));
          SendStream(AContextClient1,TStream(AStream));            //ca fonctionne ici
     
          Astream.Clear;
          ReceiveStream(AContextClient2,TStream(AStream));  // ici ca ne fonctionne pas ! ( a noter que si j'utilise cette meme ligne dans l'événement OnConnect ca fonctionne trés bien 
          AStream.SaveToFile('test.bmp');     
     
    end;
    Finally
     Astream.free;
    end;

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

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Électronique et micro-électronique

    Informations forums :
    Inscription : juillet 2006
    Messages : 12 027
    Points : 21 115
    Points
    21 115
    Par défaut
    le var sur AStream n'est pas utile, modifier les propriétés de l'objet via la référence ne nécessite pas de var
    le var c'est pour modifier la référence elle-même

    Gérez-vous bien les divisions de buffer et reliquats ?
    le client envoie un paquet de 64Ko mais le serveur reçoit 8 paquet de 8Ko, faut bien reconstituer la donnée,
    même si avec le TInfPacket déclaré, je suppose que vous ne recevez pas de buffer splitté mais cela se compliquer de faire évoluer votre protocole si vous variez le "Type"

    Si j'ai utilisé le TIdHTTPServer, je préfère pour le TCP/IP, le bon vieux TServerSocket avec un Thread (ou Pool) par WinSocketStream
    De plus, je ne fais JAMAIS d'envoie dans le OnExecute de Indy ou dans le Execute du Thread

    La structure classique de mon programme
    Thread de Listen - invisible c'est TIdTCPServer qui le gère
    Threads de Read - ne fait que lire et gérer la fragmentation
    Thread(s) de Traitement - Reçoit un message défragmenté et génération de la réponse
    Thread d'Envoi - Tous les envois sont dans ce thread et uniquement celui-ci

    le Thread de Traitement et d'Envoi expose une méthode Add() pour ajouter à une ThreadList interne les éléments à traiter ou envoyer

    Ceci est important, lorsqu'un client envoie beaucoup de donnée, traiter la donnée dans le même thread que la lecture peut être trop lent, résultat, les paquets s'accumulent dans le tampon TCP et débordent, il est important de vider le tampon, le plus vite que possible pour recevoir les données.

    Il faut tout penser de façon asynchrone, ne pensez pas que cela sera un ping pong parfait, le client peut envoyer 2 requêtes de façon rapproché, du coup penser que dans le buffer contiendra le retour à votre réponse à la première requete est faux.

    Tient un exemple en code du principe ci-dessus
    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: 32
    Dernier message: 08/08/2013, 12h47
  2. Réponses: 4
    Dernier message: 23/04/2013, 15h47
  3. Cast vers un type plus grand et perte de precision
    Par Kaluza dans le forum Langage
    Réponses: 3
    Dernier message: 10/06/2012, 11h12
  4. doctrine:data-load et perte de données
    Par nikolaus dans le forum ORM
    Réponses: 5
    Dernier message: 10/06/2010, 09h50
  5. CSocket ne reçoit plus de notification de réception
    Par Roger_Rabbit dans le forum MFC
    Réponses: 8
    Dernier message: 14/05/2009, 11h05

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