Socket mit Controll-Array (addHandler)

  • VB.NET

Es gibt 53 Antworten in diesem Thema. Der letzte Beitrag () ist von jvbsl.

    Socket mit Controll-Array (addHandler)

    Guten Abend Community,

    ich hab da ein Problem...

    Mein Programm lässt mehrere socket-verbindungen zu, bloß ich kann sie nicht einzeln schließen, da ich sie nicht einzeln ansprechen kann... :(
    Ich hab damals auch schon hier in einem anderen thread danach gefragt...da kam als antwort, ich sollte es mit einem controll-array (addHandler etc.) versuchen

    hier der link von microsoft msdn.microsoft.com/de-de/library/bb979199.aspx

    jetzt ist mein problem, dass ich das irgendwie nicht gebacken bekommen

    Das ist mein einfacher Quelltext für die verbindungen:


    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Net
    3. Imports System.IO
    4. Imports System.Threading
    7. Public Class Form1
    9. Dim anzahl As Integer = 5
    11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    13. Dim server As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.IP)
    14. Dim ipAddress As IPAddress = ipAddress.Parse("192.168.120.1")
    15. Dim localEP As New IPEndPoint(ipAddress, 10000)
    16. server.Bind(localEP)
    17. server.Listen(anzahl)
    19. End Sub
    21. End Class


    Jetzt weiß ich halt nicht wie ich diesen sogenannten addhandler darin einbinde, hab mir zwar das beispiel von microsoft angeschaut, aber irgendwie den durchblick dabei verloren.... ?(

    Man kann so etwas auch mit tcpclient / tcplistener realisieren soweit ich weiß....


    Für Tipps, Vorschläge und Hilfevorstellungen wäre ich sehr dankbar

    AddHandler sind für dynamisch erzeugete Klassen/Controls, bei denen man die Events in einer bestimmten Prozedur abfangen will.

    Insofern muss da erstmal ein Event vorhanden oder deklariert werden. Das sehe ich bei Deinem Code nicht.

    Ja, aber wie mache ich denn sowas??
    Kann mir da nicht jemand mal eine kleine Hilfestellung geben...

    Ich hab da jetzt einen Event drin, aber wie gehts jetzt weiter??



    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Net
    3. Imports System.IO
    4. Imports System.Threading
    7. Public Class Form1
    9. Dim anzahl As Integer = 5
    11. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    13. Dim server As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.IP)
    14. Dim ipAddress As IPAddress = ipAddress.Parse("192.168.120.1")
    15. Dim localEP As New IPEndPoint(ipAddress, 10000)
    16. server.Bind(localEP)
    17. server.Listen(anzahl)
    19. End Sub
    21. Private Sub btnstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstart.Click
    23. 'und jetzt???
    25. End Sub
    26. End Class

    Ich denke Du hast hier mehr ein Problem mit Deinem Gesamtkonzept als mit Detailfragen. Insofern wäre es vielleicht ganz gut wenn Du uns mit Pseudo-Code beschreiben würdest was Dein Programm so ungefähr macht und wo Dein Problem liegt.

    Was normalerweise immer vorliegt ist
    - ein serverSocket der async oder auf einem eigenen Thread auf neue Connections wartet
    - bei neuem Connect wird ein neuer receiveSocket instanziert, wird in eine receiveListe eingetragen und bekommt einen eigenen receiveThread
    - bei receiveSocket.connection close trägt er sich aus der Liste aus und beendet sich
    - bei closen des Hauptprogramms beendet es sauber alle sockets in der receiveListe und aborted die threads

    Du hast also im Gegensatz zu Deiner Anfangsaussage schon eine Liste (List (of socket)), wo Deine vermutlich aktiven Verbindungen drinliegen.

    Wie kommunizieren die aber mit Deinem Hauptprogramm wenn nötig ?
    - über events ?
    - über callback ?

    Falls Du eine receiveSocket Klasse mit Events hast, dann erst kommen die eventHandler ins Spiel.

    Hi, erstmal vielen Dank für die vielen Tipps :) Werde sie gleich mal ausprobieren

    Mein Programm soll einfach Socket-verbindungen auf einer bestimmten ip-adresse & port zulassen und diese dann in einer liste jeweils anzeigen. Dazu soll man halt noch sehen welcher Socket sich verbunden hat / bzw. man soll entscheiden können, welcher socket man wieder schließen möchte...(grob gesagt man soll die Sockets identifizieren können, um damit arbeiten zu können)

    Bsp:

    Socket1 verbunden
    Socket2 verbunden
    Socket3 verbunden

    Jetzt möchte man Socket2 wieder schließen, ohne dass die anderen Sockets auch geschlossen werden


    Ja, das wäre halt mein Problem.... ?(

    einen Socket "akzeptierst" du mit BeginAccept(und einem Callback)...im Callback erhälst du dann einen Socket(durch die EndAccept Funktion), welchen du in einem Array speichern kannst, über Shutdown und Close kannst du diese dann auch wieder schließen ;)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Ein Beispiel für den serverSocket findest Du zum Beispiel hier. Allerdings kein Async Accept, sondern er pollt auf einem eigenen Thread nach Accept.Requests . Dafür ist das Beispiel aber relativ übersichtlich. Ein (unübersichtliches) Beispiel für einen Async Server findest Du im Link unten auf der gleichen Seite.

    Überleg Dir ob Du für die clientSockets eine eigene Klasse anlegst, die in einer shared Liste die eigenen Instanzen beinhaltet. Hier passt dann auch das Threading, Exceptions, Events usw. rein.

    Hi Community,

    ich hab ein Problem mit dem Socket, die ich in einem Array speichern möchte...
    Mit den Threads und so klappt alles wunderbar, bloß das speichern klappt nicht, weil ich irgendwie nicht verstehe wie ich die sockets in einem array speichern kann....(ich weiß was ein array ist und wie man es anlegt), bloß wie gesagt nicht mit Sockets...

    Hier ist mein Quelltext:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    4. Imports System.Threading
    6. Public Class Form1
    8. Dim servsocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    9. Dim servIP As IPAddress = IPAddress.Parse("192.168.120.1")
    10. Dim port As Integer = 12345
    11. Dim anzahl As Integer = 5
    13. Dim servhost As New IPEndPoint(servIP, port)
    15. Dim clientnr() As Socket
    18. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    20. servsocket.Bind(servhost)
    21. servsocket.Listen(anzahl)
    23. Dim lclient As New Listen2Client(servsocket)
    25. Dim servthread As Thread
    26. servthread = New Thread(New ThreadStart(AddressOf lclient.Servthreadprog))
    28. servthread.Start()
    30. End Sub
    31. End Class
    33. Public Class Listen2Client
    35. Public index As Integer = 1
    36. Public beschr As String = "Client-Nr. "
    37. Private servsocket As Socket
    38. Private clientSocket As Socket
    41. Public Sub New(ByVal servsocket As Socket)
    43. Me.servsocket = servsocket
    45. End Sub
    47. Public Sub Servthreadprog()
    48. Do While True
    49. Dim clientSocket As Socket = servsocket.Accept()
    50. Call getIndex()
    53. Loop
    55. 'index = index + 1
    57. End Sub
    59. Public Sub getIndex()
    61. MsgBox(beschr & index & " angemeldet")
    62. '.....
    64. End Sub
    66. End Class



    Kann da jemand bitte helfen?

    Vielen vielen Dank schon mal im Voraus

    VB.NET-Quellcode

    1. Dim clientSocket As Socket = servsocket.Accept()
    2. Call getIndex()

    clientSocket zu dem Array hinzufügen, dann vergiss das mit dem AsyncAccept, auch wenns wesentlich geschickter und performanter wäre...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Erstmal ein dickes dankeschön für eure Hilfe ;)

    Ein kurze frage habe ich noch:
    wie kann ich im hauptformular (also form1), auf die clientlist zugreifen?
    gibts da eine einfache methode oder muss ich es mit besonderen befehlen arbeiten?

    ok, ich habs mit public deklariert, aber klappt nicht so richtig....

    wie kann ich denn die einzeln sockets der liste in einer listbox anzeigen lassen?

    hier ist der quelltext:

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    4. Imports System.Threading
    6. Public Class Form1
    8. Dim servsocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
    9. Dim servIP As IPAddress = IPAddress.Parse("127.0.0.1")
    10. Dim port As Integer = 12345
    11. Dim anzahl As Integer = 5
    12. Dim servhost As New IPEndPoint(servIP, port)
    14. Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    16. servsocket.Bind(servhost)
    17. servsocket.Listen(anzahl)
    19. Dim lclient As New Listen2Client(servsocket)
    21. Dim servthread As Thread
    22. servthread = New Thread(New ThreadStart(AddressOf lclient.Servthreadprog))
    24. servthread.Start()
    26. End Sub
    28. Private Sub btnstart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstart.Click
    30. 'ListBox1.Items.Add()
    32. End Sub
    33. End Class
    36. Public Class Listen2Client
    38. Public index As Integer = 1
    39. Public beschr As String = "Client-Nr. "
    40. Private servsocket As Socket
    41. Private clientSocket As Socket
    43. Public clientliste As New List(Of Socket)
    46. Public Sub New(ByVal servsocket As Socket)
    47. Me.servsocket = servsocket
    48. End Sub
    50. Public Sub Servthreadprog()
    51. Do While True
    52. Dim clientSocket As Socket = servsocket.Accept()
    53. Call getIndex()
    54. index = index + 1
    56. Loop
    57. End Sub
    59. Public Sub getIndex()
    60. MsgBox(beschr & index & " angemeldet")
    61. clientliste.Add(clientSocket)
    62. End Sub
    64. End Class

    das deklarierst du außerhalb von Form_Load als Private/Public:

    Dim lclient As New Listen2Client(servsocket)


    nun kannst du überall mit lclient.clientliste auf die Liste zugreifen...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Alles klar danke für die Info! Hat super geklappt :)

    Mal eine andere Frage, wie kann ich denn hierbei mit dem "ConnectEvent" arbeiten bzw. wie würde dazu der Quelltext aussehen, dass sich zum Beispiel, bei einer Verbindung irgendetwas passiert (meldung, eintrag in einer tabelle oder so, etc.)?

    VB.NET-Quellcode

    1. Private Sub clientSocket_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs)
    3. End Sub


    oder wie genau? ?(

    Welches ConnectEvent ? Das gibt es ja noch garnicht, da die Klasse Socket das nicht zur Verfügung stellt. Wenn Du also gerne beim Accept ein Event hättest, dann musst Du das Event erst einmal selber definieren, inclusive der Argumente die Du übergeben möchtest. Wie das geht steht hier. Bitte genau lesen.

    Beachten: ein Event läuft im gleichen Thread wie die Prozedur die es auslöst, hier also Dein Servthreadprog()