[VB6] tester winsock en mode local

**windob** · 11/12/2003, 19h41

[Merci d'utiliser un titre clair et cohérent avec le contenu - edité par elifqaoui]
Lisez les REGLES DU FORUM
question : comment tester un prog avec winsock vu qu'il faut se connecter a une ip , pour faire des sendata et autre...

memesila quest. est con, si qq1 repondait, ça serait sympa ...

**besco** · 11/12/2003, 20h30

tu peux tester en local en mode client/serveur. ça doit se faire.

**windob** · 11/12/2003, 21h40

et je peux faire comment, parceque, qaund je met en adresse 127.0.0.1 ( localhost), il me renvoie une erreur

**WOLO Laurent** · 12/12/2003, 08h34

Voir le sujet Utilisation du contrôle WinSock dans la MSDN. Il y'a même un exemple très clair la dessus.

**bhaal76** · 12/12/2003, 09h02

je dirai que c'est un problème de configuration des ports coté client et serveur

moi je les configure comme ça

coté client, dans les propriétés :
LocalPort : un nombre x (chez moi 1200, a priori assez elevé pour ne pas tomber sur un port déjà utiliser par windows)
RemotePort : 0 (mais ici, c'est parceque je n'envoie jamais rien au serveur, je ne fais que recevoir !!!, peut être que chez toi c'est différent)

coté serveur
LocalPort : 0
RemotePort : x (le même que le client)

je pense que ton problème vient du fais que ton client et ton serveur on le même LocalPort ou le même RemotePort !

**windob** · 12/12/2003, 15h58

y a pas besoin de faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

RemoteHost = machin

ou qqchose dans le genre ???

PS mon appli doit envoyer des données, tu connais une solution ???

**bhaal76** · 15/12/2003, 10h53

a ben si ...

, scuse

pour le client, RemoteHost doit être égale au nom du serveur (le nom du poste sur le réseau)

pour le serveur, c'est plus chaud car en fonction du poste a qui tu veux envoyer des données, il te faut modifié RemoteHost !!!

**sylverio** · 15/12/2003, 11h02

si ton pc fais à la fois client et serveur le RemoteHost sera égal à Winsock1.LocalIP

**windob** · 16/12/2003, 18h47

ok, donc si j'ai bien compris, je dois faire mon connect avec comme remotehost localip et la je pourrait avoir deux appli qui tournent sur le meme ordi pour pouvaor tester mon winsock ???

**sylverio** · 17/12/2003, 08h59

oui si tu te plantes pas ailleurs!!!!

**WOLO Laurent** · 17/12/2003, 09h34

Essaie de tester ceci :

Pour créer un serveur TCP
Créez un nouveau projet EXE Standard.
Changez le nom de la feuille par défaut en frmServer.
Changez le titre de la feuille en « Serveur TCP ».
Dessinez un contrôle Winsock sur la feuille et changez son nom en tcpServer.
Ajoutez deux contrôles TextBox sur la feuille. Nommez le premier txtSendaDta et le second txtOutput.

Ajoutez à la feuille le code ci-dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Form_Load()
' Donne à la propriété LocalPort une valeur
' entière. Puis invoque la méthode Listen.
tcpServer.LocalPort = 1001
tcpServer.Listen 
' Affiche la feuille client.
frmClient.Show
End Sub
 
Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
' Vérifie que le contrôle est fermé. Sinon, ferme
' la connexion en cours avant d'accepter la
' nouvelle.
If tcpServer.State <> sckClosed Then _
tcpServer.Close
' Accepte la demande avec le paramètre requestID.
tcpServer.Accept requestID
End Sub
 
Private Sub txtSendData_Change()
' Le contrôle TextBox nommé txtSendData contient
' les données à envoyer. Chaque fois que l'utilisateur entre du 
' texte dans le contrôle textbox, la chaîne est envoyée en 
' utilisant la méthode SendData.
tcpServer.SendData txtSendData.Text
End Sub
 
Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
' Déclare une variable pour les données reçues.
' Invoque la méthode GetData et paramètre pour
' ces données la propriété Text d'un contrôle
' TextBox nommé txtOutput.
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub

Pour créer un client TCP

Ajoutez une nouvelle feuille au projet et nommez-la frmClient.
Changez le titre de la feuille en TCP Client.
Ajoutez un contrôle Winsock à la feuille et nommez-le tcpClient.
Ajoutez deux contrôles TextBox à frmClient. Nommez le premier txtSend et le second txtOutput.
Dessinez un contrôle CommandButton sur la feuille et nommez-le cmdConnect.
Changez la légende du contrôle CommandButton en Connexion.
Ajoutez à la feuille le code ci-dessous.
Important Assurez-vous de remplacer la valeur de la propriété RemoteHost par le nom complet de votre ordinateur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Form_Load()
' Le nom du contrôle Winsock est tcpClient.
' Note : pour spécifier un hôte distant, vous pouvez utiliser soit 
' l'adresse IP (ex: "127.0.0.1"), soit le nom complet de
' l'ordinateur, comme ci-dessous.
tcpClient.RemoteHost = "LeNomDeTaMachine"
tcpClient.RemotePort = 1001
End Sub
 
Private Sub cmdConnect_Click()
' Invoque la méthode Connect pour établir une
' connexion.
tcpClient.Connect
End Sub
 
Private Sub txtSendData_Change()
tcpClient.SendData txtSend.Text
End Sub
 
Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData
End Sub

Le fameux exemple de la MSDN