Private Sub cmdSend_Click()
   Winsock1.SendData txtSend.Text
End SubPrivate Sub Form_Load()
Dim my As String
Winsock1.Protocol = sckUDPProtocol '设置为UDP协义
Winsock1.LocalPort = 5678    
Winsock1.RemotePort = 1234Winsock1.RemoteHost = "192.168.0.244"  
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生
  Dim Tmp As String
  Winsock1.GetData Tmp, vbString '取得数据
  Tmp = "对方位址:" + Winsock1.RemoteHostIP + "发言内容为-->" + Tmp
  txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text
End Sub
只要一按cmdSend就会出现:
Run-time error '10054': The Connection is reset by remote side

解决方案 »

  1.   

    对方主机有监听端口吗?如果有,试试这样改动。Winsock1.Protocol = sckUDPProtocol '设置为UDP协义
    Winsock1.bind 5678    '改为绑定试试
    Winsock1.RemotePort = 1234Winsock1.RemoteHost = "192.168.0.244"  
      

  2.   

    WSAECONNRESET
    10054
    Connection reset by peer. 
    An existing connection was forcibly closed by the remote host. This normally results if the peer application on the remote host is suddenly stopped, the host is rebooted, the host or remote network interface is disabled, or the remote host uses a hard close (see setsockopt for more information on the SO_LINGER option on the remote socket). This error may also result if a connection was broken due to keep-alive activity detecting a failure while one or more operations are in progress. Operations that were in progress fail with WSAENETRESET. Subsequent operations fail with WSAECONNRESET.
      

  3.   

    不能使用Winsock.OCX,因为Winsock北封装了,所以不能实现大型网站的Close
    所以只收到一半就被关掉了,Winsock的端口一旦打开,如果不合理关闭还是要占用端口。
    用Delphi就知道为什么不能用了,解释起来比较麻烦,推荐使用INet,Inet比较好用str=inet1.openurl("www.google.com")
    print str
      

  4.   

    用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP用TCP不要UDP
      

  5.   

    TCP 跟 UDP 是一样的
    说来惭愧,已开始我只会用TCP,后来才知道有UDP,不过我很少用
      

  6.   

    程序是没有错误的,原因是你应该先启动"192.168.0.244"的接收程序,然后在点击cmdSend
      

  7.   

    ludgee(ludgee) ,他用的是UDP,不是TCP!
      

  8.   

    使用UDP时必须使用绑定的方法才能正常发送及接收信息的。
    你改用
    winsock1.bind 5678
    试试!
      

  9.   

    发送前得判断winsock的状态。