VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 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
 
?
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
47
48
49
50
51
52
53
54
55
56
57
   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 前向对方发一条空消息来处理，还有没有其他办法呢


相关教程