none
使用winsock实现多站点向服务器发送数据的问题 RRS feed

  • 问题

  • 我需要从各站点(约700个)定时将一些数据上送到服务器,服务器接收后拆包并写入数据库;但,无论怎样,现在站点发送来的数据(myclient.senddata)都不能激活服务器的data_arrive事件。请各位XDJM帮忙看看代码,感谢。
    服务器端:

    Private
    Sub Form_Load()

      intMax = 0
      myServer(0).LocalPort = "8888"
     
    myServer(0).Listen
    End Sub

    Private Sub
    myserver_ConnectionRequest(Index As Integer, ByVal requestID As Long)
       

      If Index = 0 Then
      intMax = intMax + 1
      Load myServer(intMax)
     
    myServer(intMax).LocalPort = "8888"
      myServer(intMax).Close
     
    myServer(intMax).Accept requestID
       
      'Load myServer(intMax)
      End
    If
    End Sub

    Private Sub myServer_DataArrival(Index As Integer, ByVal
    bytesTotal As Long)
       
      Dim strGet As String
    '接收字符串并写入strGet
     
    myServer(Index).GetData strGet
    '解包字符串

    end
    sub

    客户端:

    Private Sub Form_Load()
      myclient.RemoteHost =
    "192.168.1.111"
      myclient.RemotePort = "8888"
      myclient.Connect
    End
    Sub
    Private Sub myclient_connect()
      Dim strDay As String
      Dim
    strMonth As String
       
      strDay = Getday
      strMonth = getMonth
     
    myclient.senddata strDay 
      myclient.senddata strMonth 
       
     
    myclient.close
    End Sub

    请问到底是什么问题啊???

    2012年3月2日 7:26

答案