[VB]TCP/IP

Version imprimable

[VB]TCP/IP

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

Mon code server :

Code:

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:

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 :)

07/02/2006, 15h09
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:

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
07/02/2006, 16h30
passicon

Actuellement tcpClient.State me renvoit toujours 9 :(
07/02/2006, 18h19
mat.M

D'accord mais que contient cette procédure State ?
07/02/2006, 23h54
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! :)
08/02/2006, 01h33
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?
08/02/2006, 18h25
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 :)
08/02/2006, 21h10
AlainTech

Citation:

Envoyé par passicon

Citation:

Envoyé par 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.