游戏大厅从基础开始（3.5）——客户端与服务器的连接

可能要犯大忌讳　本次只有代码　所以补充两句

正在实现策略模式的constructor　　所以最 近没有时间整理注释

大家凑合看　随后补说明

Code

Namespace Communicate.TCP    Class TCPLinkListener        Inherits Global.WayneGameSolution.Communicate.LinkListener        Public Shared ReadOnly propertyKeys As String() = {"Port", "TimeoutSecond", "LinkProveString"}        Public TCPListener As System.Net.Sockets.TcpListener        Private ClientLinkProvePool As New LinkedList(Of IClientLink)        Sub New(ByVal Parms As XElement)            MyBase.new(Parms)            Dim p As Int32            'todo: 各种本地化资源            Dim NotAvailableProperties As IEnumerable(Of String) = From key As String In propertyKeys Select key Where Not _ParmsDic.ContainsKey(key)            If NotAvailableProperties.Count > 0 Then                Throw New CommunicateException(String.Format(My.Resources.Communicate_TCPLinkListener_Parms_Error_Message, String.Join(",", propertyKeys), propertyKeys.Length, String.Join(",", NotAvailableProperties.ToArray())))            End If            If Port = -1 Then                Throw New CommunicateException((My.Resources.Communicate_TCPLinkListener_Parms_Port_Error_Message))            End If            If Not Int32.TryParse(Port, p) Then                Throw New CommunicateException("no int port")            End If            TCPListener = New System.Net.Sockets.TcpListener(Net.IPAddress.Any, p)            TCPListener.Start()            TCPListener.BeginAcceptSocket(AddressOf TCPListener_AcceptSocket, TCPListener)        End Sub        Sub TCPListener_AcceptSocket(ByVal o As IAsyncResult)            CheckTimeoutedLinks()            Dim socket As System.Net.Sockets.Socket = TCPListener.EndAcceptSocket(o)            Dim clk As New TCPClientLink(socket, TimeoutSecond, LinkProveString)            ClientLinkProvePool.AddLast(clk)            TCPListener.BeginAcceptSocket(AddressOf TCPListener_AcceptSocket, TCPListener)        End Sub        Private Sub CheckTimeoutedLinks()            Dim lk As TCPClientLink            Do While ClientLinkProvePool.Count > 0                lk = ClientLinkProvePool.First().Value                If lk.LastDataTime.AddSeconds(TimeoutSecond) < Now Then                    ClientLinkProvePool.RemoveFirst()                    If Not lk.IsLinkProved Then                        lk.Close()                    End If                Else                    Exit Do                End If            Loop        End Sub        ReadOnly Property Port() As Int32            Get                Dim p As Int32                If Int32.TryParse(ParmsDic("Port"), p) Then                    Return p                Else                    Return -1                End If            End Get        End Property        ReadOnly Property TimeoutSecond() As Int32            Get                Dim t As Int32                If Int32.TryParse(ParmsDic("TimeoutSecond"), t) Then                    Return t                Else                    Return -1                End If            End Get        End Property        ReadOnly Property LinkProveString() As String            Get                Return ParmsDic("LinkProveString")            End Get        End Property    End ClassEnd Namespace

以上是小编为您精心准备的的内容，在的博客、问答、公众号、人物、课程等栏目也有的相关内容，欢迎继续使用右上角搜索按钮进行搜索string
， as
， if
， lk
， end
， property
， 游戏 服务器 socket
AS基础教程整理
tcp客户端和服务器端、我的世界服务器客户端、服务器和客户端的区别、客户端与服务器通信、易语言服务器与客户端，以便于您获取更多的相关知识。