Discussion :

[passicon]

Bonjour,
je cherche à faire une connection client - server avec le protocole tcp/ip mais je n'y arrive pas.

Mon code server :

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
Private Sub Form_Load()
tcpServer.LocalPort = 1001
tcpServer.Listen
End Sub
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then tcpServer.Close
tcpServer.Accept requestID
End Sub
Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpServer.GetData strData
TxtOutput.Text = strData
End Sub
Private Sub TxtSendData_Change()
tcpServer.SendData TxtSendData.Text
End Sub

Mon code client :

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
Private Sub Form_Load()
tcpClient.RemoteHost = "82.233.252.53"
tcpClient.RemotePort = 1001
End Sub
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
TxtOutput.Text = strData
End Sub
Private Sub Timer1_Timer()
Label1 = tcpClient.State
End Sub
Private Sub TxtSend_Change()
tcpClient.SendData TxtSend.Text
End Sub
Private Sub btn_connect_Click()
tcpClient.Connect
End Sub

je ne comprend pas pourquoi ça ne marche pas
merci

[mat.M]

Pour programmer TCP/IP il faut et c'est inévitable passer par la programmation multiprocessus ( multithreading ).
Simplement mettre un timer au départ et à chaque seconde scruter si le socket reçoit des données ( ce qui est fait dans le code présent )

Code :

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

tcpServer.Listen

mettre cet appel dans un événement timer.
Parce que au chargement du formulaire le programme passe dessus mais n'attend pas.

Le mieux est de créer une dll Active X serveur.
Sinon aller sur www.planet-source-code.com il ya des exemples programmation multithreading avec l'API CreateThread

[passicon]

Actuellement tcpClient.State me renvoit toujours 9

[mat.M]

D'accord mais que contient cette procédure State ?

[passicon]

en faite quand je remplace mon ip par localhost tout marche bien, mais quand je mets mon ip freebox ça ne ce connect plus!
je ne comprend pas pourquoi!

[AlainTech]

Tu as un Firewall sur le serveur?

Y en a-t-il un dans la FreeBox (désolé, je ne connais pas le matériel français)?

Encore une question, tu fais le test avec Client et Serveur sur la même machine?

[passicon]

Tu as un Firewall sur le serveur?
non

Y en a-t-il un dans la FreeBox (désolé, je ne connais pas le matériel français)?
non je ne croit pas

Encore une question, tu fais le test avec Client et Serveur sur la même machine?
oui je fait le test sur la meme machine

[AlainTech]

Encore une question, tu fais le test avec Client et Serveur sur la même machine?

oui je fait le test sur la meme machine

Dans ce cas, je pense que le routeur (de la FreeBox) doit se demander quoi faire de ces paquets qui lui viennent du Lan et qu'il doit renvoyer au Lan.

Essaye de demander à quelqu'un d'autre de se connecter (depuis Internet) sur ton serveur avec ton application client.