allowed to ramble then

1 view
Skip to first unread message

Nicholas Randall Forystek

unread,
May 8, 2016, 7:11:15 AM5/8/16
to
ReadBuffer = String(BytesReceived, Chr(0))

bytesBound = SocketRecv(mSocket, ReadBuffer,
BytesReceived, MSG_PEEK)
If ReadBuffer <> "" And (bytesBound > 0) Then
RaiseEvent DataArrival(Replace(ReadBuffer, vbLf +
vbCr, vbCrLf))
mReadCompleted = True
ReadBuffer = Replace(String(bytesBound, Chr(0)),
vbLf, vbLf + vbCr)
SocketRecv mSocket, ReadBuffer, bytesBound, 0
ReadBuffer = Replace(Replace(ReadBuffer, vbCrLf,
vbLf), Chr(0), "")
End If


Reply all
Reply to author
Forward
0 new messages