TCP 客户端到服务器通信

Question

我正在寻找的只是 Windows Form VB.Net 上的一个简单的 TCPClient/Listner 示例。 我是新手，Microsoft TCPClient/Listner 类示例不是我要找的。 我所寻找的只是让 TCPClient 发送消息，让 TCPListener 获取消息并发回消息“我收到了你的消息”？

一点帮助会很棒。 我有一些代码，但只是将消息发送到服务器而不是从服务器返回到客户端.. 任何帮助将不胜感激..

Answer 1

TCP 通信是基于流的，这意味着它不处理任何数据包。 因此，您收到的消息可能是部分或混在一起的。

例如，您可以发送：

Hello!

How are you?

但您可能会收到：

Hello!How are you?

或者：

Hello!How ar

e you?

（或类似的东西）

要解决此问题，您必须应用称为"length-prefixing" 的东西。 长度前缀（或长度前缀）意味着在您发送消息之前，您将其长度（字符/字节的数量）放在它的开头。 通过这样做，端点将确切知道每条消息要读取多少字节。 因此，不存在部分或混在一起的消息问题。

作为初学者，这不是最直接的事情，因为要使其在双方正常工作，您必须正确构建代码。 所以我创建了两个类来为你处理这个问题。 请参阅下面的示例，了解如何将它们用于简单的基于文本消息的通信。

源链接： http : //www.mydoomsite.com/sourcecodes/ExtendedTcpClient.zip

链接到 C# 源代码： http : //www.mydoomsite.com/sourcecodes/ExtendedTcpClient%20CSharp.zip

编辑 (2019-11-08)

前段时间我做了一个升级版，代码结构和错误处理更好一些。 对于那些感兴趣的人，可以在此处下载新代码（仅限 VB.NET）：

https://www.mydoomsite.com/sourcecodes/ExtendedTcpClient%202.0.zip

示例用法

请注意，在这些示例中Client不是指客户端，而是指TcpClient 。

服务器端

1. 首先为ExtendedTcpClient声明一个新变量，并确保在WithEvents中包含WithEvents 。

    Dim WithEvents Client As ExtendedTcpClient

2. 然后你需要一个TcpListener和一个Timer来检查传入的连接。

    Dim Listener As New TcpListener("0.0.0.0", 5555) 'Listen for any connection on port 5555. Dim WithEvents Tmr As New System.Windows.Forms.Timer

3. 然后你需要订阅定时器的Tick事件。

    Private Sub Tmr_Tick(sender As System.Object, e As System.EventArgs) Handles Tmr.Tick End Sub

   在那里你通过Listener.Pending()方法检查传入的连接。 当您要接受连接时，您首先声明ExtendedTcpClient一个新实例。 该类需要有一个表单作为其所有者，在此应用程序中Me是当前表单。
   然后，您使用ExtendedTcpClient.SetNewClient()方法和Listener.AcceptTcpClient()作为其参数来应用来自侦听器的TcpClient 。 将此代码放在Tmr_Tick子中：

    If Listener.Pending() = True Then Client = New ExtendedTcpClient(Me) Client.SetNewClient(Listener.AcceptTcpClient()) End If

   现在客户端和服务器相互连接。

4. 现在您需要订阅客户端的PacketReceived事件。 像这样创建一个子：

    Private Sub Client_PacketReceived(sender As Object, e As ExtendedTcpClient.PacketReceivedEventArgs) Handles Client.PacketReceived End Sub

   所有接收到的数据都以字节数组的形式呈现。 在PacketReceived子中，您可以将接收到的数据包作为文本输出到TextBox 。 只是检查数据包报头是PlainText ，然后你可以将接收到的数据包的内容（这是一个字节数组，通过访问e.Packet.Contents ）为字符串，并把它在TextBox 。

    If e.Packet.Header = TcpMessagePacket.PacketHeader.PlainText Then TextBox1.AppendText("Message recieved: " & System.Text.Encoding.Default.GetString(e.Packet.Contents) & Environment.NewLine) End If

   System.Text.Encoding.Default.GetString()将字节数组转换为普通文本。

5. 在PacketReceived子中，您还可以让它向客户端发送“收到的消息”。

    Dim ResponsePacket As New TcpMessagePacket(System.Text.Encoding.Default.GetBytes("Message received."), TcpMessagePacket.PacketHeader.PlainText) ResponsePacket.Send(Client.Client) 'Get the ExtendedTcpClient's underlying TcpClient.

6. 最后，关闭表单时，您只需要断开客户端连接。

    Private Sub ServerWindow_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing If Client IsNot Nothing Then Client.Disconnect() End Sub

这就是服务器端。

---

客户端

1. 对于客户端，您将执行与服务器端几乎相同的操作，尽管您不需要TcpListener或Timer 。

    Dim WithEvents Client As New ExtendedTcpClient(Me) 'The current form as its owner.

2. 通过您为侦听器提供的 IP 和端口连接到服务器。

    Client.Connect("127.0.0.1", 5555) 'Connects to localhost (your computer) at port 5555.

3. 现在，如果您想向服务器发送文本，您可以执行以下操作（例如在按钮中）：

    Dim MessagePacket As New TcpMessagePacket(System.Text.Encoding.Default.GetBytes(TextBox2.Text), TcpMessagePacket.PacketHeader.PlainText) MessagePacket.Send(Client.Client)

   TextBox2包含您要发送的文本。

4. 最后，您还需要在此处订阅PacketReceived事件以检查来自服务器的响应。 在那里你会像服务器一样接收文本。

    Private Sub Client_PacketReceived(sender As Object, e As ExtendedTcpClient.PacketReceivedEventArgs) Handles Client.PacketReceived If e.Packet.Header = TcpMessagePacket.PacketHeader.PlainText Then TextBox1.AppendText(System.Text.Encoding.Default.GetString(e.Packet.Contents) & Environment.NewLine) 'Prints for example "Message received." from the server. End If End Sub

现在一切都应该正常了！

链接到完整的示例项目（仅客户端到服务器）： http : //www.mydoomsite.com/sourcecodes/TCP%20Messaging%20System.zip

链接到 C# 示例： http : //www.mydoomsite.com/sourcecodes/CSharp%20TCP%20Messaging%20System.zip

如果要向类添加更多标头（标头向您指示每个数据包包含的数据类型），请打开TcpMessagePacket.vb并在PacketHeader枚举（位于名为Constants的区域中）添加更多值。

希望这可以帮助！

---

示例项目的屏幕截图

（单击图像以获得更大的分辨率）