[..] Serveur TCP Multi-Clients (envoi/récéption)

[DJSIR]

Bonjour.

Je me suis relancé dans un projet TCP et comme à mon habitude, je vais prendre les deux codes de cette page : http://www.autoitscript.fr/forum/viewto ... 6&start=60

Cette fois ci, j'aimerais faire une sorte d'IRC ou je serais le serveur, et les clients se connecterais a moi.

Le problème c'est que ce code n'est pas multi-clients et j'aimerais bien que quelqu'un me l'adapte si possible.

Merci Bcp; DJSIR

[Voodoo]

Il y a peut-être mieux, mais quelque chose comme ceci me semble à premiére vue raisonnable:

► Afficher le textecode

Code : Tout sélectionner

TCPStartup()

Call("main", $CmdLine[0])

Func main($argc)
    Local $sock_clients[20]
    Local $main_socket

    $main_socket = TCPListen("127.0.0.1", 24000)
    initTab($sock_clients)

    While 1
        $nbClient = UBound($sock_clients) - 1

        For $i = 0 To $nbClient
            If $sock_clients[$i] = -1 Then
                $sock_clients[$i] = TCPAccept($main_socket)
            Else
                $data = TCPRecv($sock_clients[$i], 512)
                If @error Then
                    $sock_clients[$i] = -1
                    ContinueLoop
                EndIf
                if ($data <> "") Then MsgBox(0, "Server:", "- Client : " & $i & @CRLF _
                         & "- Send: " & $data)
            EndIf
        Next

    WEnd

EndFunc   ;==>main


Func initTab(ByRef $arr_sock)
    Local $i = 0
    For $i = 0 to (UBound($arr_sock) - 1)
        $arr_sock[$i] = -1
    Next
EndFunc   ;==>initTab
 

[matwachich]

Je suis certains que tu trouveras ton bonheur ici http://www.autoitscript.com/forum/index ... l=tcp&st=0

[berthozero]

Si tu veut j'ai créer ses 2 prog un serveur et un multi-client, ils sont fonctionnel et utilise l'include TCP.au3, pour plus d'info envoi moi un MP pour mon MSN ...