[求助]TCP 连接 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

需要读取串口服务器两路Socket的数据

服务器地址 192.168.0.254

一个端口是23 一个端口是24

这个需要怎么弄？

看看：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=28230&skin=0

开2个监听

[此贴子已经被作者于2019/12/25 14:07:16编辑过]

怎么开两个监听？我需要把监听到的数据显示到界面上的？开两个客户端吗？

有没有办法一个客户端开两个端口的监听只要能判断出来接收到的数据是那个端口的就好

必须要new两个Socket对象，但是可以绑定到同一个回调事件中

现在已经new两个Socket对象，也绑定到同一个回调事件中了但是怎么分辨是那个Socket返回的数据

Private Sub ReceiveMsg()

While True

Dim packet As Byte() = New Byte(1024) {}

Dim n As Integer = nStream.Read(packet, 0, packet.Length)

Dim byt As Byte() = New Byte(n - 1) {}

For i As Integer = 0 To n - 1

byt(i) = packet(i)

‘我想在这里能不能读取到是那个端口发送过来的数据

Functions.Execute("byte",byt)

End While

End Sub

改改源码

Public Sub New(ByVal ip As String, ByVal port As Integer, ByVal frm As Object)

mainfrm = frm

Dim server As IPAddress = IPAddress.Parse(ip)

Dim tcp As New TcpClient()

Try

tcp.Connect(ip, port)

Catch generatedExceptionName As Exception

tcp = Nothing

End Try

If tcp Is Nothing Then

MsgBox("无法连接服务器，请重试")

Else

Dim netStream As NetworkStream = tcp.GetStream()

Dim loginInfo As String = System.Guid.NewGuid.ToString() & "|" & System.Net.Dns.GetHostName() '唯一标识和机器码

Dim stream() As Byte = Encoding.Unicode.GetBytes(loginInfo)

netStream.Write(stream, 0, stream.Length) '往服务器发送登录信息

Dim buffer As Byte() = New Byte(50) {}

netStream.Read(buffer, 0, buffer.Length) '得到回发的信息

Dim connResult As String = Encoding.Unicode.GetString(buffer).Substring(0, 2)

If connResult.Equals("OK") Then '登录成功

nStream = netStream

receiveThread = New Thread(New ParameterizedThreadStart(AddressOf ReceiveMsg))

receiveThread.Start(某端口号如24)

Else

MsgBox("登录失败……")

Return

End If

End Sub

''' <summary>

''' 接受消息的线程执行体

''' </summary>

Private Sub ReceiveMsg(port As Integer)

msgbox(port)

While True

Dim packet As Byte() = New Byte(2) {}

nStream.Read(packet, 0, packet.Length)

Dim _cmd As String = String.Concat(packet(0), packet(1))

Select Case _cmd

'11状态，关闭客户端

Case "11"

mainfrm.Close()

If receiveThread IsNot Nothing Then

receiveThread.Abort()

End If

nStream.Close()

End Select

End While

End Sub

主题：[求助]TCP 连接