Bonjour, dans le cadre de stage, je dois réaliser une application client et une serveur qui peuvent se communiquer en TCP/IP et/ou UDP/IP ; le tout en langage VB. Pour ce qui est de TCP tout est sous contrôle. Mon erreur est avec le protocole UDP. Exemple :
(chiffre entre paranthèse égal le numéro du port du client, donc le port où est retourné l’information, le localPort est toujours 4005 disons)
CLIENT est ouvert (1507) | SERVEUR est ouvert (1507) --> la connexion marche, le serveur recoit les données et les renvoit au client
Je ferme le CLIENT seulement et l’ouvre de nouveau
CLIENT est ouvert (1508) | SERVEUR est ouvert (1508) --> la connexion marche, le serveur reçoit les données, MAIS NE LES RENVOIT PAS AU CLIENT
Je ferme le SERVEUR seulement et l’ouvre de nouveau
CLIENT est ouvert (1508) | SERVEUR est ouvert (1508) --> la connexion marche, le serveur recoit les données et les renvoit au client
J’ai vérifier mes ports et ils concordent tous comme ont peut le voir dans l’exemple.
J'ai mis du code au cas ou.... mon but premier est de comprendre le protocole UDP.
Je peux vous envoyer plus le code si vous désirez.
[code Client]
Private Sub ConnectionUDP()
Static intCpt As Integer
udpClient.RemoteHost = strRemoteHost 'Nom du serveur ou IP"
udpClient.RemotePort = intRemotePort 'Port auquel on se connecte
If intCpt = 0 Then
udpClient.Close 'Ferme la connection pour jouer safe
udpClient.Bind 'Établit le lien avec le port local
intCpt = intCpt + 1
End If
End Sub
[code Serveur]
If intPortUDP <> CSng(Val(txtPortUDP.text)) Then
intPortUDP = CSng(Val(txtPortUDP.text))
Call ConnectionUDP
End If
Private Sub ConnectionUDP()
udpServeur.Close
udpServeur.Bind intPortUDP 'Établi le lien avec le port local
End Sub
[/code]
Merci beaucoup
eflamme@hotmail.com
Partager