Winsock Doesn't Send Data
Posted on 2003-03-10
Following is my Code used to send the Data from Server to Client.
Private Sub wsSocket_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim sItemData As String
Dim strData As String
Dim strConnect As String
Dim mRecordCount As Double
' get data from client
Me.wsSocket(Index).GetData sItemData, vbString
mRequestNo = Val(sItemData)
sServerMsg = "Received: " & mRequestNo & " from " & Me.wsSocket(Index).RemoteHostIP & "(" & sRequestID & ")"
Me.Text1 = " "
Me.Text1 = sItemData 'This is the SQL Query send by Client
Call subExecuteQuery 'It executes the Query and creates recordset(mRSTemp)
mRep = Split(mRSTemp.GetString, Chr(13))
mData = ""
For i = LBound(mRep) To UBound(mRep)
mRecordCount = mRecordCount + 1
Here the query is received by server and it is executed, even the loop is also executed but the client is not able to receive the data from the statement for sending data in For Loop. Kindly guide why SendData command is not being executed within loop.
If i am sending the whole recordset as one buffer say of 60000 bytes the client is receiving only 1800 bytes. why?