[R] Limites du TCP.

[Kinsuke]

Bonsoir, j'aimerais comprendre pourquoi lorsque je lance les scriptes suivants la fonction permettant d'afficher la liste des fichiers ne fonctionne pas quand la liste est trop volumineuse. (J'ai remarqué qu'après avoir changé la valeur 4096 par une valeur plus élevé le script fonctionnait de manière aléatoire).

► Afficher le texteServeur

Code : Tout sélectionner

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
Global $Fenetre = GUICreate("Serveur", 625, 200, 192, 124)
Global $Zone_De_Texte = GUICtrlCreateEdit("", 0, 0, 617, 193)
GUICtrlSetLimit(-1,100000000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $IP_SERVEUR = @IPAddress1
Global $port = 14523
Global $MainSocket, $Socket_receptrice

_InitTCP()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

        Case Else
            Local $Texte = GUICtrlRead($Zone_De_Texte)
            Local $Socket_receptrice = TCPAccept($MainSocket)
            If $Socket_receptrice <> -1 Then
                Local $Data = TCPRecv($Socket_receptrice, 4096)
                Local $Message = StringSplit($Data, "²")
                If $Message <> "" Then
            if $message[1] = "TexteFileSend" Then
                GUICtrlSetData($Zone_De_Texte, ">>>>>FileListe "&"à "&@HOUR&":"&@MIN&":"&@SEC&" :"&@CRLF&$Message[2]&@CRLF& $Texte&@CRLF)

           ElseIf $message[1] = "WinGetTitle" Then
                GUICtrlSetData($Zone_De_Texte, ">>>>>WinGetTitle "&"à "&@HOUR&":"&@MIN&":"&@SEC&" :"&@CRLF&$Message[2]&@CRLF& $Texte&@CRLF)

                EndIf
                EndIf
                TCPShutdown()
                _InitTCP()
            EndIf
    EndSwitch
WEnd


Func _InitTCP()
    TCPStartup()
    $MainSocket = TCPlisten($IP_SERVEUR,$Port,10000)
    $Socket_receptrice = -1
EndFunc

► Afficher le texteClient

Code : Tout sélectionner

#include <WindowsConstants.au3>
#include <Inet.au3>
Sleep(5000)
$IP_P=_GetIP()
$IP_SERVEUR = "XXX.XXX.X.XXX"
Local $SocketEnvoi , $port=14523
$SocketEnvoi =  TCPConnect($IP_SERVEUR,$port)
$Fonction = "TexteFileSend"
$FileOpen = FileOpen("Liste.txt")
$FileRead = FileRead($FileOpen)
TCPSend($SocketEnvoi, $Fonction&"²"&$FileRead)
ShellExecute("DelList.exe")
 

J'ai réutilisé le script de que Tlem m'avait donné pour la base du serveur (il fonctionne j'ai testé).

[TommyDDR]

"ne fonctionne pas" -> je n'arrive pas à avoir ce que je veux.

En faite, quand vous envoyez votre grosse liste de fichiers, celle-ci est découpé en plusieurs bouts (de 4096 surement) l'astuce est de créer un buffer et de mettre une chaine de caractère spéciale à la fin de votre liste (exemple : "FiN$De$Trame") et tant que vous n'avez pas cette chaine, vous faites un

$Buffer &= TCPRecv()

de cette manière, votre buffer contiendra toute votre liste.

[Kinsuke]

Merci d'avoir répondu mais je ne comprend pas ce que vous voulez dire. (qu'est-ce qu'un buffer ?)

[Iste]

Remplacez

Code : Tout sélectionner

Local $Data = TCPRecv($Socket_receptrice, 4096)

par

Code : Tout sélectionner

Local $recv, $Data
Do
    $recv  = TCPRecv($Socket_receptrice, 4096)
    $Data &= $recv
Until $recv = ""

le problème est que TCPRecv() ne prend que les 4096 1er caractère..
Je vous laisse lire la doc pour plus d'info.

[Kinsuke]

Merci , j'ai compris la théorie et j'ai remarqué que ça fonctionne sur des listes plus conséquentes mais sur certaines ça fonctionne de manière aléatoire ( à peu près 1 fois sur 5).

EDIT: J'ai trouvé une alternative. Etant donné que le script doit permettre de se balader à travers les dossiers/fichiers il est plus judicieux de n'afficher que les dossiers/fichiers et non tous les sous-dossier et tout les fichiers.(A la manière du terminale de Linux)

Enfin bref je passe en résolue car les liste ne seront jamais aussi grade avec cette méthode.