Discussion :

[FeaR]

Bonjour,

Je fais un petit programme. J'aimerais envoyer deux requete de ce type, pour obtenir deux réponses de mon serveur.

Quelqu'un a une idée?

Code :

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

1
2
3
4
5
6
7
8
9
        Dim client As New TcpClient(OV_Server, port)
        Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes("GETUNIWELCOMEMSG")
        Dim stream As NetworkStream = client.GetStream()
        stream.Write(data, 0, data.Length)
        data = New [Byte](256) {}
        Dim responseData As [String] = [String].Empty
        Dim bytes As Int32 = stream.Read(data, 0, data.Length)
        responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
        TextBox1.Text = "Immigration:	" + responseData

Quand je le fais deux fois, mon programme gèle

[FeaR]

En passant, c'est les objets Sockets du Framework 2.0

[JauB]

une boucle ça donne pas :

[FeaR]

Comment je pourrais la faire. Ta un exemple?

[FeaR]

Voilà j'ai retoucher mon code un petit peu.

Dim connexion As New TcpClient(OV_Server, port)
Dim MsgToTranslateinByte As String = "Connection avec le build " + Browser_Build
Dim byteformat As [Byte]() = Encoding.UTF8.GetBytes(MsgToTranslateinByte)
Dim stream As NetworkStream = connexion.GetStream()
stream.Write(byteformat, 0, byteformat.Length)

MsgToTranslateinByte = "Test"
byteformat = Encoding.UTF8.GetBytes(MsgToTranslateinByte)
stream.Write(byteformat, 0, byteformat.Length)

Ce qui est en rouge, c'est le Socket qui ne se rend pas a mon serveur