on("CBReceive--" & ex.tostring)
End If
Catch ex As Exception
Throw New Exception("CBReceive--" & ex.ToString)
End Try
Try
Dim obj1 As New sckStructure
obj1.worksocket = Me.m_sckClient
Me.m_sckClient.BeginReceive(obj1.buffer, 0, obj1.buffersize - 1, SocketFlags.None, AddressOf Me.CBReceive, obj1)
Me.m_ReceiveDone.WaitOne()
Dim obj As sckStructure = CType(ar.AsyncState, sckStructure)
Dim strReceive As String = Encoding.Default.GetString(obj.buffer, 0, bytesread)
If CleanString(strReceive) <> "" Then
RaiseEvent DataArrival(strReceive)
End If
Catch ex As SocketException
If ex.ErrorCode = 10054 Then
RaiseEvent DisConnect(Me, New EventArgs)
Else
Throw New Exception("CBReceive--" & ex.tostring)
End If
Catch ex As Exception
Throw New Exception("CBReceive--" & ex.ToString)
End Try
End Sub
#End Region
End Class
Friend Class sckStructure
Public worksocket As Socket = Nothing
Public Const buffersize As Integer = 1024
Public buffer(buffersize) As Byte
End Class
Public Delegate Sub DataArrivalHandler(ByVal strReceive As String)
上一页 [1] [2] |
