帮助聊天程序. [英] Help with chat program.

问题描述

如何声明客户端套接字和服务器套接字变量?

How do I declare the client socket and server socket variables?

客户:
    '****与服务器的设置通信*******
       IPA ="192.168.0.15"
      端口="7777"


       '*****创建客户端套接字*****

       '****连接到服务器********
      将clientSocket设为新的System.Net.Sockets.TcpClient
       clientSocket.Connect(IPA，CInt(端口))



伺服器:

将clientSocket设为新的System.Net.Sockets.TcpClient
‘等待连接...
           serverSocket.Start()
‘阻止，直到出现连接请求
           clientSocket = serverSocket.AcceptTcpClient
‘已连接！


发送数据

     昏暗的serverStream为System.Net.Sockets.NetworkStream = clientSocket.GetStream()
昏暗的OutStream为Byte()= System.Text.Encoding.ASCII.GetBytes(query)
                    serverStream.Write(outStream，0，outStream.Length)
                    serverStream.Flush()

接收数据

                   昏暗的响应，响应1作为字符串
                   布尔式暗淡成功
                   昏暗的inStream(10024)作为字节

        '**** this while循环正在等待服务器发回对已发送查询的响应
                   做
               b serverStream.Read(inStream，0，CInt(clientSocket.ReceiveBufferSize))
               b respon1 = System.Text.Encoding.ASCII.GetString(inStream)
                   循环直到respon1.Length> 40

CLIENT:
     '****setup communications with server*******
        IPA = "192.168.0.15"
        port = "7777"


        '*****create client socket*****

        '****connect to server********
        Dim clientSocket As New System.Net.Sockets.TcpClient
        clientSocket.Connect(IPA, CInt(port))



SERVER:

Dim clientSocket As New System.Net.Sockets.TcpClient
‘ Waiting for connection...
            serverSocket.Start()
‘ Blocked until a connection request comes in
            clientSocket = serverSocket.AcceptTcpClient
‘ Connected!


SEND DATA

       Dim serverStream As System.Net.Sockets.NetworkStream = clientSocket.GetStream()
Dim outStream As Byte() = System.Text.Encoding.ASCII.GetBytes(query)
                    serverStream.Write(outStream, 0, outStream.Length)
                    serverStream.Flush()

RECEIVE DATA

                    Dim respon, respon1 As String
                    Dim success As Boolean
                    Dim inStream(10024) As Byte

         '****this while loop is waiting for the server to send back the response to query that was sent
                    Do
                        serverStream.Read(inStream, 0, CInt(clientSocket.ReceiveBufferSize))
                        respon1 = System.Text.Encoding.ASCII.GetString(inStream)
                    Loop Until respon1.Length > 40

推荐答案

这是很好的例子.

这篇关于帮助聊天程序.的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！