问个关于winsock的简单问题

Question

Private Sub Form_Load()
INTMAX = 0
tcpserver(0).ListenEnd SubPrivate Sub tcpserver_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If INTMAX = 0 Then
INTMAX = INTMAX + 1
Load tcpserver(INTMAX)
tcpserver(INTMAX).Accept requestID
End If
End SubPrivate Sub tcpserver_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim STR As String
tcpserver(Index).GetData STR
Text1 = STRDebug.Print INTMAX
Text2 = Chr(INTMAX)If (tcpserver(i).State = sckConnected) Then
tcpserver(i).SendData STR
End IfEnd Sub
这是以vb做服务器,flash做客户端的程序,其中:text1有得到值,但是tcpserver(i).SendData STR这句发送到客户端收不到任何消息,请问哪里有错吗?
Debug.Print INTMAX
Text2 = Chr(INTMAX)这两句得到的为什么都是空白啊?

Answer 1

Private Sub tcpserver_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim STR As String
tcpserver(Index).GetData STR
Text1 = STRDebug.Print INTMAX
Text2 = INTMAXIf (tcpserver(Index).State = sckConnected) Then
tcpserver(Index).SendData STR
End IfEnd Sub

Answer 2

谢谢啊,能接到信息了,不过
Debug.Print INTMAX
Text2 = INTMAX
这两个还是空白,为什么?

Answer 3

Private Sub tcpserver_Close(Index As Integer)
  Unload tcpserver(Index)
End SubPrivate Sub tcpserver_SendComplete(Index As Integer)
  tcpserver(Index).Close
End Sub

Answer 4

Debug.Print INTMAX
Text2.text =cstr(INTMAX)我试了
不会是空的，你单步调试一下看看