Discussion :

[Guimbtz]

Bonjour a tous
j'aimerai confectionnez un petit programme simple
mais j'ai besoin, pour cela
un petit bout de code qui me permetrai d'ouvrir les ports de ma machine et a chaque packet recu, inscrit la valeur dans une richtextbox puis de renvoyer un packet

du genre :

- Ouvre le port ( ex : IP :127.0.0.1,port :635 )
- reception de packetid : 1 ( valeur : conection:guimbtz;test )
- sa le marque dans le richtexbox
- puis sa renvoie un packet : id:2 ( valeur : conection OK )

c'est un exemple

esceque vous sauriez faire sa ?
merci d'avance

[Nathanael Marchand]

Pourquoi se préoccuper des couches de bas niveau? Utiliser WCF permet de s'affranchir de ca et de se concentrer sur le code métier. Je te suggère de chercher des tutoriels sur cette technologie.

[anonymousse]

bonsoir,

As-tu parcouru ce tuto http://vb.net-informations.com/commu...s_tutorial.htm

[Guimbtz]

merci a toi je regarde tous sa et je te dis quoi !

[Guimbtz]

Je capte rien personne aurez un code simple svp ?

[anonymousse]

bonsoir,

tu n'as pas donné beaucoup de détails, je suppose que tu veux effectuer un dialogue client / serveur.

dans l'exemple copié sur les tutos que je t'ai donnés, on considère le client et le serveur sur la même machine, il faut lancer le serveur puis le client, essaies de terminer l'adaptation de ce code en fonction de ton besoin (je n'ai pas tout traduit !).

pour le serveur tu créés :

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
39
40
41
42
43
44
45
46
Imports System.Net.Sockets
Imports System.Text
Module Module1
    Sub Main()
        Dim serverSocket As New TcpListener(635)
        Dim requestCount As Integer
        Dim clientSocket As TcpClient
        ' démarrage serveur
        serverSocket.Start()
        msg("Server Started")
        clientSocket = serverSocket.AcceptTcpClient()
        msg("Accept connection from client")
        requestCount = 0
        ' lecture données client
        ' réponse serveur
        While (True)
            Try
                requestCount = requestCount + 1
                Dim networkStream As NetworkStream = clientSocket.GetStream()
                Dim bytesFrom(10024) As Byte
                networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))
                Dim dataFromClient As String = System.Text.Encoding.ASCII.GetString(bytesFrom)                
                dataFromClient = dataFromClient.Substring(0, dataFromClient.IndexOf("$")) ' recherche du $ qui délimite la fin du message
                msg("Data from client -  " + dataFromClient)
                Dim serverResponse As String = "Server response " + Convert.ToString(requestCount)
                Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)                
                networkStream.Write(sendBytes, 0, sendBytes.Length)
                networkStream.Flush()
                msg(serverResponse)
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End While
 
        clientSocket.Close()
        serverSocket.Stop()
        msg("exit")
        Console.ReadLine()
    End Sub
 
    ' gestion affichage messages sur console
    Sub msg(ByVal mesg As String)
        mesg.Trim()
        Console.WriteLine(" >> " + mesg)
    End Sub
End Module

pour le client :

dans une fenêtre Form1 tu place un textbox1 et un button1

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
Imports System.Net.Sockets
Imports System.Text
Public Class Form1
    Dim clientSocket As New System.Net.Sockets.TcpClient()
    Dim serverStream As NetworkStream
 
    ' envoi message vers serveur
    ' réception message provenant du serveur
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim serverStream As NetworkStream = clientSocket.GetStream()
        Dim outStream As Byte() =     System.Text.Encoding.ASCII.GetBytes("valeur : conection:guimbtz;test$") ' ne pas oublier le $ (choisi comme délimiteur de fin des messages)
        serverStream.Write(outStream, 0, outStream.Length)
        serverStream.Flush()
 
        Dim inStream(10024) As Byte
        serverStream.Read(inStream, 0, CInt(clientSocket.ReceiveBufferSize))
        Dim returndata As String =        System.Text.Encoding.ASCII.GetString(inStream)
        msg("Data from Server : " + returndata)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        msg("Client Started")
        clientSocket.Connect("127.0.0.1", 635)
    End Sub
 
    ' gestion affichage des message dans la textbox
    Sub msg(ByVal mesg As String)
        TextBox1.Text = TextBox1.Text + Environment.NewLine + " >> " + mesg
    End Sub
End Class

bon j'espère que ça fonctionne, je ne peux pas te le tester.

bon code ...