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 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 As Exception
         AddMsg(e.Message, KnownColor.Red)
      End Try
      ns = Nothing
      intRcv = Nothing
      byteLen = Nothing
      Return blnRtn
   End Function


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

其他解决方案

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

其他建议

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


相关教程