Discussion :

[Rocket2005]

Bonjour
j'ai un problem sur le code si dessous enfete je veux que quand je clique sur le bouton du client command2 il me r'envoye la variable a de chaque case du serveur dans le text1.text du client
je pense que le probleme vien de la

Code :

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

1
2
3
4
5
Private Sub Command2_Click()
Text1.Text = ""
winsock1 .senddata (0)
winsock1.senddata (1)
End Sub

j'ai aussi essayer sa

Code :

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

1
2
3
4
Private Sub Command2_Click()
Text1.Text = ""
winsock1 .senddata (0 & 1)
end Sub

mais rien ne marche est ce que quel qu'un peu me dire ce ki ne va pas dans mon code. merci d'avance


serveur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Wck_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim a As String
Wck.GetData a
Select Case a
Case 0
a = "salut"
Wck.SendData (1 & a)
Case 1
doc = "bonjour"
Wck.SendData (2 & a)
end select
end sub

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
Private Sub Command2_Click()
Text1.Text = ""
winsock1 .senddata (0)
winsock1.senddata (1)
End Sub
 
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim p As String
Winsock1.GetData p
Select Case Left(p, 1)
Case 1
Text1.Text = Text1.Text & Mid(p, 2) & vbCrLf
Case 2
Text1.Text = Text1.Text & Mid(p, 2) & vbCrLf
End Select
End Sub

[Balises "Code" ajoutées par AlainTech]
[Pensez-y vous-même à l'avenir. Merci.]

[SfJ5Rpw8]

tu devrai aller faire un tour la .
http://grafikm.developpez.com/vbreseau/Lecon1/
je voudrai pas être désagréable ... mais je crois qu'il n'y as pas grand chose qui va dans ton code ...
révise aussi les bases du VB ... SendData réclame une string en paramétre...

aller bon courage ...

[Rocket2005]

non tout marche le reste de mon code le probleme c ke je lles changer et jé pas reverifier si il marcher

[SfJ5Rpw8]

ce qui frappe surtout c'est les SendData...... qui sont à revoir...

[Rocket2005]

tu peux m'expliquer pourquoi il son a revoir

[nairolf_]

Sans le On Error Resume Next tu as quoi comme erreur ? et a quel niveau ?

Dans l'appel de la methode SendData de ton Winsock tu concatènes un entier à une chaine utilise des " pour que ton entier sois considere comme une chaine

@++ nairolf