关于UDP异步接收的问题

做一个服务端程序，想从2000端口通过异步接收数据，客户端每隔25秒就会向服务端的2000端口发送数据，但是执行完BeginReceiveFrom之后，OnReceiveComplete却不会被执行，不知道怎么回事，希望各位能帮个忙，多多指教，非常感谢！  
   
   
  Private   Sub   ReceiveFromAny()  
                  Try  
                          RemoteEP.Address   =   IPAddress.Any  
                          RemoteEP.Port   =   0  
                          sock.BeginReceiveFrom(Buf,   0,   527,   SocketFlags.None,   RemoteEP,   AddressOf   OnReceiveComplete,   sock)  
                          'RemoteEP   =   Nothing  
                  Catch   ex   As   Exception  
                          RaiseEvent   OnMessage(ex.ToString)  
                  End   Try  
          End   Sub  
   
   
  Private   Sub   OnReceiveComplete(ByVal   ar   As   IAsyncResult)  
                  Try  
                          RemoteEP.Address   =   IPAddress.Any  
                          RemoteEP.Port   =   0  
                          Dim   bytes   As   Integer  
                          bytes   =   sock.EndReceiveFrom(ar,   RemoteEP)  
                          Dim   Data(bytes   -   1)   As   Byte  
                          Data.Copy(Buf,   0,   Data,   0,   bytes)  
                          RaiseEvent   OnReceive(RemoteEP,   Data)  
                          'RemoteEP   =   Nothing  
                          ListenTimer.Enabled   =   True  
                  Catch   ex   As   Exception  
                          RaiseEvent   OnMessage(ex.ToString)  
                  End   Try  
          End   Sub 问题点数：0、回复次数：0Top

相关问题

• remoteep
• onreceivecomplete
• raiseevent
• sock
• try
• sub
• bytes
• ex
• data

• 帖主：sundy29

• CSDN .NET频道
• .NET类图书
• C#类图书
• .NET类源码下载