[R] Probleme connection TCP

[Drave]

Salut a tous j'ai un petit problème avec mon programme de messagerie : quand je dit au client de se connecter a l'adresse ip 192.168.1.20 ( mon ip sur mon réseau local ) TCPConnect me revoie -1
Alors que si je mets l'adresse ip 127.0.0.1 sa marche !
Voila le code pour que vous compreniez mieux
Serveur :

Code : Tout sélectionner

;SERVER!! Start Me First !!!!!!!!!!!!!!!
$g_IP = "127.0.0.1"

; Start The TCP Services
;==============================================
TCPStartUp()

; Create a Listening "SOCKET"
;==============================================
$MainSocket = TCPListen($g_IP,1456,100)
If $MainSocket = -1 Then Exit

;  look for client connection
;--------------------
While 1
$ConnectedSocket = TCPAccept( $MainSocket)
If $ConnectedSocket >= 0 Then
MsgBox(0, '', 'Client Connecté')
    exitloop
EndIf
Wend


While 1
$recv = tcprecv($ConnectedSocket, 9999) ; Receptions des données
if $recv = -1 Then
Msgbox(0, 'Error', 'Client disconnect')
Exit
endif
$recu = StringSplit ($recv,"/")

If $recu[1] = "msg" Then
    Msgbox (64,"Message recu !!","Vous vener de recevoir le message suivant de la part de " & $recu[2] & " : " & $recu[3])
    TCPSend ($ConnectedSocket,"ok")
EndIf
WEnd


 

Et le client

Code : Tout sélectionner

While 1
TCPStartup()
$Connect = TCPConnect ("192.168.1.20",1456)
If @error Then MsgBox (64,"",$Connect)

$pseudo = InputBox ("Messenger local by drave","Veuillez entrer un pseudo")
$toSend = InputBox ("Messenger local by Drave","Veuillez entrer le message a faire passer : ")
TCPSend($Connect, "msg/" & $pseudo&"/" &$toSend)
While 1
    $recv = TCPRecv($Connect,5)
    If $recv = "ok" Then ExitLoop
    Sleep(1000)
WEnd

WEnd


 

Merci pas avance de votre aide !

[GELDROC]

commence par vérifier que tu a bien ouvert le port TCP vers le l’adresse local de ton Server ; dans la configuration de ton modem

[Iste]

En local cela ne devrait pas poser de problème.
Vérifiez votre IP.
Sinon testez avec un autre logiciel client/server (un server web, une appli avec interface web ou autre)

[GELDROC]

sur ma live-box cela ne fonctionnerai même pas en local car je ment sert en routeur

[Iste]

On se sert tous (ou presque) de nos "box" en routeur.
La redirection de port ne sert que pour l'acces de client extèrieur a une application se trouvant dans votre réseau local
Sur un meme reseau local, meme composé de disaines de routeurs, il n'y a pas besoin de configurer la moindre redirection de port.
Encore plus si l'application est testée depuis le meme ordi pour client/server

[Drave]

Je viens de me rentre compte de mon erreur : il ne faut pas mettre 127.0.0.1 pour le serveur et 192.168.1.20 pour le client mais 192.168.1.20 pour les deux !
Sinon merci quand même de votre aide !