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 :

Comment traiter les données reçues avec WinSock ?


Sujet :

Web & réseau Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2005
    Messages
    107
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2005
    Messages : 107
    Par défaut Comment traiter les données reçues avec WinSock ?
    bonjour,

    je suis entrain d'essayer de coder un programme qui peut recevoir des longues chaines avec winsock

    j'ai trouvé une source qui m'a l'air très complete, en voici le début :


    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
    Function ListenHost(P: Pointer): DWord; STDCALL;
    Var
      Address, Port :String;
     
      Sock: TSocket;
      Count: Integer;
     
      Buffer: Array[0..1600] Of Char;
      Data: String;
     
      Time: TTimeVal;
      FDS: TFDSet;
     
      Len: Integer;
     
      Temp: String;
      Cmd: String;
      Param: Array[0..100]of String;
     
      D: DWord;
      I: Word;
      J: Word;
     
      list_infos:TStringList;
    Begin
      Sock := rSock(P)^.Sock;
      Count := rSock(P)^.Count;
     
      Address := RemoteAddress(Sock);
      Port := RemotePort(Sock);
     
      Repeat
     
        Time.tv_sec := 120;
        Time.tv_usec := 0;
     
        FD_ZERO(FDS);
        FD_SET(Sock, FDS);
     
        If Select(0, @FDS, NIL, NIL, @TIME) <= 0 Then Break;
     
        Len := Recv(Sock, Buffer, 1600, 0);
        If (Len <= 0) Then Break;
     
        Data := String(Buffer);
        ZeroMemory(@Buffer, SizeOf(Buffer));

    j'ai cherché sur google mais je ne vois pas ce que l'utilisateur a cherché a faire, pourriez vous m'expliquer en détail à quoi sert ceci :

    Time.tv_sec := 120;
    Time.tv_usec := 0;

    FD_ZERO(FDS);
    FD_SET(Sock, FDS);

    If Select(0, @FDS, NIL, NIL, @TIME) <= 0 Then Break;


    merci


    (en fait ce que je cherche à faire c'est un programme client et un serveur qui peut transferer des longues chaines très facilement, et qui, si il en reçoit deux a la fois, puisse les traiter séparement)

  2. #2
    Expert éminent
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    14 083
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    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 : 14 083
    Par défaut
    Pourquoi ne pas utiliser les Composants ICS, Indy, ou même les bons vieux TClientSocket ... la gestion du TCP/IP sera facilité, tu n'auras plus qu'à t'occuper de la concaténation des chaines longues (je l'ai fait par exemple pour la transmission de fichier, pour l'exemple sur le forum

    ICI, tient Waskol avait listé plein de sujet ICI ...

    Au fait longue, ça veut dire quoi ? 5Ko ? 5Mo ?
    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

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Juillet 2005
    Messages
    107
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2005
    Messages : 107
    Par défaut
    euh disons 500ko, voir plusieurs méga peut-être

    mais en fait je vais expliquer plus clairement mon probleme

    admettons que dans le client je fasse :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    SendText('message');
    SendText('message');
    et que dans le serveur je fasse au niveau du "OnClientRead" :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    showmessage(socket.receivetext)
    et bien il m'affichera "messagemessage" au lieu de deux fois "message"

    avec les ClientSocket ServerSocket j'avais ce problème, auriez-vous une idée pour que le programme puisse traiter les chaînes une par une ?

  4. #4
    Expert éminent
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    14 083
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    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 : 14 083
    Par défaut
    Ah toi de gérer ton protocole, pour découper ou reconstituer des messages via des marqueurs cela peut être des retour charriot par exemple pour indiquer la fin de message ... des sleep peuvent aussi ralentir le débit mais cela nuit aux performances
    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. [XL-2013] Comment optimiser les données web avec QueryTables.Add ? (freeze+lenteur)
    Par Dan.exe dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 02/02/2014, 14h12
  2. Réponses: 2
    Dernier message: 08/05/2009, 18h00
  3. comment récupérer les données d'une paramètre avec cplex
    Par debalgo dans le forum Intelligence artificielle
    Réponses: 1
    Dernier message: 18/06/2008, 12h32
  4. Réponses: 3
    Dernier message: 13/06/2008, 20h33
  5. Réponses: 10
    Dernier message: 13/08/2007, 16h12

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