Problème avec SendnetworkString

[Torp]

Salut,

j'ai fais un truc du genre (j'ai pas mis tout mon code):

Coté serveur :

Code : Tout sélectionner

for i=1 to 9
  sendnetworkstring(connectionID,str(i))
next i

et coté client ca :

Code : Tout sélectionner

Repeat
    Net_Event=NetworkClientEvent(ConnectionID)
    Select Net_Event 
      Case 2
        ReceiveNetworkData(ConnectionID,Buffer,500)
        Transfert$=PeekS(Buffer)
        Buffer=ClearMemory(Buffer,500)
        debug Transfert$
    EndSelect
Forever

Procedure ClearMemory(Memory,Taille)
  FreeMemory(Memory)
  ProcedureReturn AllocateMemory(Taille)
EndProcedure

Et bien à le place de recevoir :
1
2
..
8
9

etc...

Je recois :

123456789

En gros je ne recois qu'un seul paquet avec tout dedans, au lieu d'en recevoir 9...

Il y a une explication ou c'est un bug?

[Crystal Noir]

Je pense que côté client tu dois tester combien de packets sont envoyés. Une fois que tu as fait ce test tu fais une boucle avec recievenetworkdata

C'est juste une idée, je dis ca car en fait les paqket arrivent très rapidement avec la boucle repeat , le test select n'a pas le temps de se faire que tous les packets sont déjà arrivés de plus le select teste la réception de packet suivant la connexionID, les packets provenant de la meme id....

Je dis ca comme car je dois avouer que je me suis jamais penché sur le réseau avec Pure. C'est une idée juste, si elle est idiote ben....tant pis j'aurais l'air d'un con une fois de plus

[Oliv]

Moi j'ai toujours vu ça aussi , alors je sépare par un zoli Eol : chr(13) + chr(10)

[Crystal Noir]

N'oubliez pas les noeuds colorés sur les paquets

[Torp]

En fait je pense que c'est un problème de rapidité de la commande SendNetworkString. On dirait que son buffer se rempli dans la boucle, avant meme qu'elle ai eu le temps d'envoyer quoi que ce soit. Et quand elle se decide, ben elle envoie tout d'un coup. Si par exemple je mets un delay(10) dans la boucle, elle m'envoie le 1 puis un autre paquet avec 23456789...

Je pense qu'il y a un truc à synchroniser mais alors la ...

Si quelqu'un a une soluce...

Oliv: Avec Chr(13)+Chr(10), celà permet de découper les paquets? Ou c'est des repères pour redécouper coté client?

[djes]

C'est tout à fait normal, c'est comme ça que tcp/ip gère le transfert de paquets. La seule façon est d'utiliser l'udp, mais faudra chercher par vous-même.

[Torp]

Houlà, Ca se complique...

[Oliv]

Oliv: Avec Chr(13)+Chr(10), celà permet de découper les paquets? Ou c'est des repères pour redécouper coté client?

C'est pour les découper, en fait j'ai surtout pris l'habitude de les utiliser avec les protocoles POP/SMTP/IRC.
Pour l'UDP il y a des exemples sur le forum anglais : ça a l'air un peu compliqué

[Crystal Noir]

ou le tcp ip le gère ainsi mais il y a toujours moyen de découepr. Le pb c que c un peu la galère et c'est long.

[Torp]

Ben finalement j'ai pris l'option découpage... J'ai pris comme séparateur ":" et j'utilise la fonction StringField.

Ensuite j'ai fait 2 procedures et j'utilise l'une ou l'autre suivant si c'est du texte ou des valeurs numeriques que je recois :

Code : Tout sélectionner

Procedure.s DecodStr(Donnee.s,i.l)
  ProcedureReturn  StringField(Donnee,i,":")
EndProcedure

Procedure.l DecodVal(Donnee.s,i.l)
  ProcedureReturn Val(StringField(Donnee,i,":"))
EndProcedure

Je me demerde avec ce que je comprends..

[Oliv]

Ben finalement j'ai pris l'option découpage... J'ai pris comme séparateur ":" et j'utilise la fonction StringField.

Ensuite j'ai fait 2 procedures et j'utilise l'une ou l'autre suivant si c'est du texte ou des valeurs numeriques que je recois :

Code : Tout sélectionner

Procedure.s DecodStr(Donnee.s,i.l)
  ProcedureReturn  StringField(Donnee,i,":")
EndProcedure

Procedure.l DecodVal(Donnee.s,i.l)
  ProcedureReturn Val(StringField(Donnee,i,":"))
EndProcedure

Si tu as des questions pose Le forum est fait pour ça

Je me demerde avec ce que je comprends..