(Managed Multi) -TCP Server

    • VB.NET

    Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Krissel095.

      (Managed Multi) -TCP Server

      Also ich habe mir einen kleinen TCP Server geschrieben..:)
      Vielleicht kann ihn einer brauchen.

      Server.vb
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Server(Of Client As VirtualClient)
      3. Private _BannedIPs As Net.IPAddress()
      4. Public ReadOnly Property BannedIPs As Net.IPAddress()
      5. Get
      6. Return Me._BannedIPs
      7. End Get
      8. End Property
      9. Public Sub AddBan(ByVal IPAddress As String)
      10. If Array.IndexOf(Me._BannedIPs, Net.IPAddress.Parse(IPAddress)) = -1 Then
      11. Array.Resize(Me._BannedIPs, Me._BannedIPs.Length + 1)
      12. Me._BannedIPs(Me._BannedIPs.Length - 1) = Net.IPAddress.Parse(IPAddress)
      13. End If
      14. End Sub
      15. Public Sub RemoveBan(ByVal IPAddress As String)
      16. If Array.IndexOf(Me._BannedIPs, Net.IPAddress.Parse(IPAddress)) = -1 Then
      17. Array.Resize(Me._BannedIPs, Me._BannedIPs.Length + 1)
      18. Me._BannedIPs(Me._BannedIPs.Length - 1) = Net.IPAddress.Parse(IPAddress)
      19. End If
      20. End Sub
      21. Public Sub ClearBans()
      22. Array.Resize(Me._BannedIPs, 0)
      23. End Sub
      25. Private _Clients As List(Of Client)
      26. Public ReadOnly Property Clients As Client()
      27. Get
      28. Return Me._Clients.ToArray()
      29. End Get
      30. End Property
      32. Private _Socket As Net.Sockets.Socket
      33. Public ReadOnly Property Socket As Net.Sockets.Socket
      34. Get
      35. Return Me._Socket
      36. End Get
      37. End Property
      39. Private _LocalEndPoint As Net.IPEndPoint
      40. Public ReadOnly Property LocalEndPoint As Net.IPEndPoint
      41. Get
      42. Return Me._LocalEndPoint
      43. End Get
      44. End Property
      46. Private _Backlog As Integer
      47. Public ReadOnly Property Backlog As Integer
      48. Get
      49. Return Me._Backlog
      50. End Get
      51. End Property
      53. Sub New(ByVal _Port As UShort, Optional ByVal _Backlog As Integer = 32)
      54. Me._LocalEndPoint = New Net.IPEndPoint(Net.IPAddress.Any, _Port)
      55. Me._Backlog = _Backlog
      56. Me._BannedIPs = New Net.IPAddress() {}
      57. Me._Clients = New List(Of Client)
      58. End Sub
      59. Public Sub Start()
      60. If Me._Socket Is Nothing Then
      61. Me._Socket = New Net.Sockets.Socket(Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.Tcp)
      62. Me._Socket.Bind(Me._LocalEndPoint)
      63. Me._Socket.Listen(Me._Backlog)
      64. Me._Socket.BeginAccept(AddressOf OnAccept, Me._Socket)
      65. End If
      66. End Sub
      67. Public Sub [Stop]()
      68. If Not Me._Socket Is Nothing Then
      69. Me._Socket.Shutdown(Net.Sockets.SocketShutdown.Both)
      70. Me._Socket.Close()
      71. End If
      72. End Sub
      74. Protected Sub OnAccept(ByVal ar As IAsyncResult)
      75. Dim myServer As Net.Sockets.Socket = ar.AsyncState
      76. Dim client As Net.Sockets.Socket = myServer.EndAccept(ar)
      77. If Array.IndexOf(Me._BannedIPs, DirectCast(client.RemoteEndPoint, Net.IPEndPoint).Address) <> -1 Then
      78. client.Disconnect(False) 'Client is banned
      79. RaiseEvent OnIpBlocked(Me, client.RemoteEndPoint)
      80. Else
      81. Dim myClient As Client = GetType(Client).GetConstructor(New System.Type() {GetType(Net.Sockets.Socket)}).Invoke(New Object() {client})
      82. Me._Clients.Add(myClient)
      83. RaiseEvent ClientAccepted(Me, New ClientConnectedEventArgs(Of Client)(myClient))
      85. AddHandler myClient.OnDisconnected, Sub(sender As VirtualClient, ErrorCode As Net.Sockets.SocketError)
      86. RaiseEvent ClientDisconnected(Me, New ClientDisconnectedEventArgs(Of Client)(sender, ErrorCode))
      87. Me._Clients.Remove(sender)
      88. End Sub
      89. AddHandler myClient.OnDataReceived, Sub(sender As VirtualClient, data As Byte())
      90. RaiseEvent DataReceived(Me, New ClientDataReceivedEventArgs(Of Client)(sender, data))
      91. End Sub
      93. myClient.BeginListen()
      94. End If
      95. myServer.BeginAccept(AddressOf OnAccept, myServer)
      96. End Sub
      98. Public Event OnIpBlocked(ByVal sender As Server(Of Client), ByVal e As Net.IPEndPoint)
      99. Public Event ClientAccepted(ByVal sender As Server(Of Client), ByVal e As ClientConnectedEventArgs(Of Client))
      100. Public Event ClientDisconnected(ByVal sender As Server(Of Client), ByVal e As ClientDisconnectedEventArgs(Of Client))
      101. Public Event DataReceived(ByVal sender As Server(Of Client), ByVal e As ClientDataReceivedEventArgs(Of Client))
      102. End Class


      VirtualClient.vb
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class VirtualClient
      3. Private _Socket As Net.Sockets.Socket
      4. Public ReadOnly Property Socket As Net.Sockets.Socket
      5. Get
      6. Return Me._Socket
      7. End Get
      8. End Property
      10. Private _ReceiveBuffer As Byte()
      11. Private _ReceiveError As Net.Sockets.SocketError
      13. Sub New(ByVal _Socket As Net.Sockets.Socket)
      14. Me._Socket = _Socket
      15. Me._ReceiveBuffer = New Byte(2047) {}
      16. End Sub
      18. Friend Sub BeginListen()
      19. If Me._Socket.Connected Then
      20. Me._Socket.BeginReceive(Me._ReceiveBuffer, 0, 2047, Net.Sockets.SocketFlags.None, Me._ReceiveError, AddressOf OnReceive, Me._Socket)
      21. End If
      22. End Sub
      23. Protected Sub OnReceive(ByVal ar As IAsyncResult)
      24. Dim myClient As Net.Sockets.Socket = ar.AsyncState
      25. If myClient.Connected() Then
      26. Dim Received As Integer = myClient.EndReceive(ar)
      27. If Received > 0 Then
      28. Dim myBytes As Byte() = New Byte(Received) {}
      29. Array.Copy(Me._ReceiveBuffer, myBytes, Received)
      30. Array.Clear(Me._ReceiveBuffer, 0, Me._ReceiveBuffer.Length)
      31. RaiseEvent OnDataReceived(Me, myBytes)
      32. Me._Socket.BeginReceive(Me._ReceiveBuffer, 0, 2047, Net.Sockets.SocketFlags.None, Me._ReceiveError, AddressOf OnReceive, myClient)
      33. Exit Sub
      34. End If
      35. End If
      36. RaiseEvent OnDisconnected(Me, Me._ReceiveError)
      37. End Sub
      39. Public Event OnDisconnected(ByVal sender As VirtualClient, ByVal ErrorCode As Net.Sockets.SocketError)
      40. Public Event OnDataReceived(ByVal sender As VirtualClient, ByVal data As Byte())
      41. End Class


      ClientDisconnectedEventArgs.vb
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class ClientDisconnectedEventArgs
      2. Inherits EventArgs
      4. Private _Client As VirtualClient
      5. Public ReadOnly Property Client As VirtualClient
      6. Get
      7. Return Me._Client
      8. End Get
      9. End Property
      11. Private _ErrorCode As Net.Sockets.SocketError
      12. Public ReadOnly Property ErrorCode As Net.Sockets.SocketError
      13. Get
      14. Return Me._ErrorCode
      15. End Get
      16. End Property
      18. Sub New(ByVal _Client As VirtualClient, ByVal _ErrorCode As Net.Sockets.SocketError)
      19. Me._Client = _Client
      20. Me._ErrorCode = _ErrorCode
      21. End Sub
      22. End Class


      ClientDataReceivedEventArgs.vb
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class ClientDataReceivedEventArgs
      2. Inherits EventArgs
      4. Private _Client As VirtualClient
      5. Public ReadOnly Property Client As VirtualClient
      6. Get
      7. Return Me._Client
      8. End Get
      9. End Property
      11. Private _Data As Byte()
      12. Public ReadOnly Property Data As Byte()
      13. Get
      14. Return Me._Data
      15. End Get
      16. End Property
      18. Sub New(ByVal _Client As VirtualClient, ByVal _Data As Byte())
      19. Me._Client = _Client
      20. Me._Data = _Data
      21. End Sub
      22. End Class


      ClientConnectedEventArgs.vb
      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class ClientConnectedEventArgs
      2. Inherits EventArgs
      4. Private _Client As VirtualClient
      5. Public ReadOnly Property Client As VirtualClient
      6. Get
      7. Return Me._Client
      8. End Get
      9. End Property
      11. Sub New(ByVal _Client As VirtualClient)
      12. Me._Client = _Client
      13. End Sub
      14. End Class


      Viel Spaß damit (alles selbst geschrieben ;p)

      Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „BeefyX“ ()



      Warum keine List? So wie du es implementiert hast ist es doch wesentlich umständlicher und unperformanter, als die von Haus aus im Framework enthaltene List(Of T).

      MfG

      Die Performance wird wohl kaum beeinträchtigt, schließlich arbeitet eine List intern auch nur mit nem Array. Aber es wäre einfacher zu benutzen.

      Das stimmt nicht ganz. Die List arbeitet zwar intern mit einem Array, allerdings wird das Resizing wesentlich intelligenter gelöst und ist damit schneller, als seine Implementierung. ;) In dem Anwendungsfall wird es ihm wahrscheinlich auch weniger um die Performance gehen, unschön ist die Implementierung trotzdem.

      MfG

      Naja, er nutzt Array.Resize, und im Framework wird ein neues Array erstellt, und dann mit Array.Copy gefüllt. Wobei ich auch nicht genau weiß, warum sie nicht die Resize Funktion nutzen... Denn das Ergebnis ist das gleiche. Und wenn der Ansatz mit Copy schneller sein sollte, dann wäre die Array.Resize Funktion ein Fail, und sehr schlecht implementiert. Naja, aber es stimmt: die Implementierung ist wirklich unschön. Warum Dinge selber implementieren, die es schon fertig im Framework gibt?

      Es ging mir eher um den Fakt, dass im Framework die Größe jeweils verdoppelt wird, wenn das Array droht überzulaufen und daher der Performanceverlust wesentlich geringer ist, als das Array bei jedem neuen Eintrag zu vergrößern ;)

      MfG

    Facebook