VB.NET编写的TCP异步通讯类(目前测试中)_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

VB.NET编写的TCP异步通讯类(目前测试中)

作者：闵涛文章来源：闵涛的学习笔记点击数：2570 更新时间：2009/4/23 19:00:38

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]