Problem mit Windows Form

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von doci.

    Problem mit Windows Form

    hi

    ich habe mir eine programm in vb.net geschrieben das mir status infos zu meinem root liefert und noch andere funktionen kann.
    jetzt hatte ich die idee, eine socketverbindung zu meinem tool aufzubauen, ich kann mich auch verbinden aber die form reagiert nicht mehr.

    so wie ich den server starte, bleibt die form stehen und wartet auf die verbindung, ich möchte aber denoch an meinem programm lokal arbeiten und trozdem den server im hintergrund laufen lassen.

    was mache ich falsch?

    mein code für den server

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.Text
    3. Module server
    6. Sub Main()
    7. ' Must listen on correct port- must be same as port client wants to connect on.
    8. Const portNumber As Integer = 8000
    9. Dim tcpListener As New TcpListener(portNumber)
    10. tcpListener.Start()
    11. label1.text = "Waiting for connection"
    13. 'Accept the pending client connection and return
    14. 'a TcpClient initialized for communication.
    15. Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient()
    16. label1.text ="Connection accepted."
    17. ' Get the stream
    18. Dim networkStream As NetworkStream = tcpClient.GetStream()
    19. ' Read the stream into a byte array
    20. Dim bytes(tcpClient.ReceiveBufferSize) As Byte
    21. networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
    22. ' Return the data received from the client to the console.
    23. Dim clientdata As String = Encoding.ASCII.GetString(bytes)
    24. 'Console.WriteLine(("Client sent: " + clientdata))
    25. Dim responseString As String = "Connected to server."
    26. Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(responseString)
    27. networkStream.Write(sendBytes, 0, sendBytes.Length)
    29. tcpClient.Close()
    30. tcpListener.Stop()
    34. End Sub
    36. End Module


    danke
    ähh? wasn das :)

    dein problem liegt hier an der zeile

    VB.NET-Quellcode

    1. Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient()


    was ist, wenn kein client anfragt? dann hängt man halt

    mach ne abfrage

    VB.NET-Quellcode

    1. If TCPListener.Pending = True Then
    2. Dim tcpClient As TcpClient = tcpListener.AcceptTcpClient()
    3. der restliche code, der nur ablaufen soll, wenn ein client verbunden ist
    4. end if


    ps is ausm kopf geschrieben, also kann sein, das pending = true so nicht ganz richtig ist, aber so gehts aufjedenfall, musst etwas suchen vllt

Facebook
Telefonspende