vb.net TCP/IP Socket 服务端接收数据问题

当前位置:

首页 > 编程开发 > VB.net教程 >

vb.net TCP/IP Socket 服务端接收数据问题

我用TCP/IP Socket 进行异步通信，代码从网上拷的，如下

线程
Private Sub Listen()
        Dim strSend As String
        Dim sTime As String
        'Dim sMessage As String = Nothing
        Try
            tlTcpListen = New TcpListener(MyIPAdress, iPort)
            tlTcpListen.Start()
            tcClient = New TcpClient
            tcClient = tlTcpListen.AcceptTcpClient()
            Service_nsStream = tcClient.GetStream()
            srRead = New StreamReader(Service_nsStream)
            swWriter = New StreamWriter(Service_nsStream)

            While True
                Try
                    Dim sMessage As String = srRead.ReadLine 问题出在这一行，单步调试，首次srRead.ReadLine 为nothing，下面的语句不执行，客户端发来的消息收不到，当从服务端向对方发送消息后，就能正常通信了，这个地方srRead.ReadLine 一直在等待中，导致阻塞了吗？还是什么原因？如果在这行之前向客户端任意发条消息也可以正常通信，但是总觉得这个方法不喜欢，有好的解决方案吗？

                    If Not sMessage Is Nothing Then
                        处理
                    End If
                Catch ex As Exception

                Finally
                End Try
            End While
        Catch ex As System.Security.SecurityException
        End Try
    End Sub

推荐解决方案

Visual Basic code
						 
?

										   Private Sub LoadListen()

										      Dim rd As New INIClass.clsReader(gPath & "\Config.Ini")

										      Dim port As Integer = rd.GetInteger("TCPIP", "ListenPort")

										      rd = Nothing

										      sckLis = New TcpListener(IPAddress.Any, port)

										      port = Nothing

										      StopLis = False

										      LisThread = New Threading.Thread(AddressOf StartListen)

										      LisThread.Name = "侦听进程"

										      LisThread.Start()

										   End Sub

										   Private Sub StartListen()

										      sckLis.Start()

										      Try

										         AddMsg("TCP/IP侦听器已启动.")

										         Do

										            Dim sckTmp As Socket = sckLis.AcceptSocket

										            Threading.ThreadPool.QueueUserWorkItem(New Threading.WaitCallback(AddressOf Receive), sckTmp)

										            Next

										            If I >= Const_MaxClient Then sckTmp.Close()

										            sckTmp = Nothing

										         Loop Until StopLis = True

										      Catch e As Exception

										         If Not StopLis Then

										            AddMsg("[侦听线程出错]" & e.Message, KnownColor.Red)

										            RestartListen()

										         Else

										            CloseListen()

										         End If

										      End Try

										   End Sub

										   Public Function Receive(ByVal Sock As Socket) As Boolean

										      Dim ns As New NetworkStream(Sock)

										      Dim blnRtn As Boolean = False

										      Dim intRcv As Integer

										      Dim byteLen(1023) As Byte

										      Try

										         intRcv = ns.Read(byteLen, 0, byteLen.Length)

										         If intRcv = 0 Then

										            AddMsg("连接故障或通讯超时", KnownColor.Red)

										         Else

										            '对接收的Byte数组进行处理

										            blnRtn = True

										         End If

										      Catch e As Exception

										         AddMsg(e.Message, KnownColor.Red)

										      End Try

										      ns = Nothing

										      intRcv = Nothing

										      byteLen = Nothing

										      Return blnRtn

										   End Function

因为涉及单位的一些资料和流程，我做了一些删除和修改处理，你参考一下吧。

其他解决方案

只要使用同步通讯方式，接受连接后如果没收到数据，阻塞是肯定会的，一直到超时时间到了才跳出来

关注 !

其他建议

没人理啊。。。

目前在While True 前向对方发一条空消息来处理，还有没有其他办法呢

栏目列表