Stream von Server in TextBox leiten

  • VB.NET
  • .NET (FX) 4.0

Es gibt 30 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    OK Chef ganz ruhig ;)

    Hab ich gemacht und dabei kam folgende Fehlermeldung: "Der Zugriff auf das Steuerelement RichTextBox1 erfolgte von einem anderen Thread als dem Thread, für den es erstell wurde."

    Das heißt aber doch genau das was fichz gesagt hat oder nicht?


    Edit: Ich habe es selber lösen können mit einem Delegate und Invoke.

    VB.NET-Quellcode

    1. Delegate Sub mainserverCallback(ByVal Args As Object)
    3. Sub mainserver()
    4. Try
    5. Server = New TcpListener(ipendpoint)
    6. Server.Start()
    7. client = Server.AcceptTcpClient
    8. stream = client.GetStream
    9. streamr = New StreamReader(stream)
    10. streamw = New StreamWriter(stream)
    12. Dim i As Boolean
    13. i = True
    14. While (i = True)
    15. Dim SendObject As Object
    16. SendObject = streamr.ReadLine
    18. Me.Invoke(New mainserverCallback(AddressOf ApplyValues), SendObject)
    19. End While
    20. Catch ex As Exception
    21. End Try
    22. End Sub
    24. Private Sub ApplyValues(ByVal Args As Object)
    25. Try
    26. RichTextBox1.AppendText(Args.ToString)
    27. Catch ex As Exception
    28. End Try
    29. End Sub

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Lt.Winters“ ()

    Lt.Winters schrieb:

    Ich habe es selber lösen können
    Schmeiß das Try / Catch ersatzlos raus :!:
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Na klar, gerne doch ;) Viel Spaß beim Optimieren.

    EDIT: So nun nochmal die Version OHNE TryCatch...damit hier nicht wieder Missverständnisse entstehen.

    VB.NET-Quellcode

    1. 'Version 1.1
    3. Public Class Form2
    5. Dim stream As NetworkStream
    6. Dim streamw As StreamWriter
    7. Dim streamr As StreamReader
    8. Dim Server As TcpListener
    9. Dim client As New TcpClient
    10. Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4713)
    11. Dim mainthread As Threading.Thread
    12. Delegate Sub mainserverCallback(ByVal Args As Object)
    14. Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    15. mainthread = New Threading.Thread(AddressOf mainserver)
    16. mainthread.Start()
    17. End Sub
    19. Sub mainserver()
    20. Server = New TcpListener(ipendpoint)
    21. Server.Start()
    22. client = Server.AcceptTcpClient
    23. stream = client.GetStream
    24. streamr = New StreamReader(stream)
    25. streamw = New StreamWriter(stream)
    27. Do
    28. SendObject = streamr.ReadLine
    29. Me.Invoke(New mainserverCallback(AddressOf ApplyValues), SendObject)
    30. Loop
    31. End Sub
    33. Private Sub ApplyValues(ByVal Args As Object)
    34. RichTextBox1.AppendText(Args.ToString & vbCrLf) 'Empfängt Daten vom Endgerät und lädt diese in eine RTB (Delegate und Invoke!)
    35. End Sub
    37. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    38. streamw = New StreamWriter(stream)
    39. Dim Befehl As String = TextBox1.Text
    41. streamw.WriteLine(Befehl) 'Sendet einen Befehl an das Endgerät per StreamWriter
    42. streamw.Flush()
    44. TextBox1.Clear()
    45. End Sub
    47. Private Sub Form2__close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
    48. Server.Stop()
    49. mainthread.Abort()
    50. End Sub
    51. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Lt.Winters“ ()

    Bitte kopier den Code genau so rein, wie der bei in der IDE ist.
    Weil das hier kann gar nicht kompilieren.
    Was mir auffällt:
    1. Zusätzlich entferne ALLE Try-Catch Konstrukte, wo keine Ausnahme behandelt wird. Du wirst NIE einen Fehler finden.
    Try Catch verwendet man nur dann wenn etwas unerwartetes passieren kann. Und da catcht man auch nur die Exceptions die man einfach nicht verhindern kann. Zb beim Durchlaufen einer Verzeichnisstruktur auf eine UnauthorizedAccessException.

    2. mainthread.Abort kannst du dir schenken wenn du dem Thread die Property IsBackgroud auf True setzt. Somit wird der Thread beim Beenden der Anwendung mitbeendet.

    3.

    VB.NET-Quellcode

    1. Me.Invoke(New mainserverCallback(AddressOf ApplyValues), SendObject)

    Mach daraus

    VB.NET-Quellcode

    1. Me.Invoke(Sub()
    2. RichTextBox1.AppendText(streamr.ReadToEnd)
    3. End Sub)

    Somit brauchst du keinen Callback und keine ApplyValues Methode.

    4. Steuerelementen anständige Namen geben.

    lg
    ScheduleLib 0.0.1.0
    Kleine Lib zum Anlaufen von Code zu bestimmten Zeiten

    @EDR: Eigentlich habe ich größten Respekt vor dir und deiner Kompetenz, aber den Kommentar finde ich reichlich mies von dir. Das ist nix weiter als ein billiger CopyPaste-Fehler. Ich musste schließlich Code entfernen, da ich ja hier nicht alles offen legen muss was ich da programmiere. So viel Verständnis hätte ich gerade von DIR schon erwartet. Im Übrigen geht es ja nicht nur um mich, sondern auch darum das hier andere eine Lösung haben.

    Aber um nicht ab zu schweifen und konstruktiv zu bleiben, ich werde den Fehler oben beseitigen.

    ich hätte zu fichz noch zuzufügen:

    VB.NET-Quellcode

    1. 'ersetze
    2. Dim i As Boolean
    3. i = True
    4. While (i = True)
    5. '...
    6. End While
    8. 'durch
    9. Do
    10. '...
    11. Loop


    Bitte einen Boolean nicht ausgerechnet i nennen, und auch einen Boolean nicht mit True vergleichen.
    Denn der Vergleich auch nix anneres als True oder False, und True oder False ist der Boolean ja selber.
    Also einfach

    VB.NET-Quellcode

    1. While i
    2. '...
    wäre angemessener, aber in diesem Falle ja eh nicht.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    also aus deim Code sollten die Zeilen #11, 12, 33-35, 49 gelöscht sein

    Edit - jetzt nochmal durchgeflöht:

    VB.NET-Quellcode

    1. Public Class Form2
    3. Dim streamw As IO.StreamWriter
    4. Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4713)
    6. Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. Dim mainthread = New Threading.Thread(AddressOf mainserver) With {.IsBackground = True}
    8. mainthread.Start()
    9. End Sub
    11. Sub mainserver()
    12. Dim Server = New TcpListener(ipendpoint)
    13. Server.Start()
    14. Dim client = Server.AcceptTcpClient
    15. Dim stream = client.GetStream
    16. Dim streamr = New StreamReader(stream)
    17. streamw = New StreamWriter(stream)
    18. Do
    19. Dim line = streamr.ReadLine
    20. Me.BeginInvoke(Sub() RichTextBox1.AppendText(line & Lf))
    21. Loop
    22. End Sub
    24. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    25. Dim Befehl As String = TextBox1.Text
    26. streamw.WriteLine(Befehl) 'Sendet einen Befehl an das Endgerät per StreamWriter
    27. streamw.Flush()
    28. TextBox1.Clear()
    29. End Sub
    31. Private Sub Form2__close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
    32. Server.Stop()
    33. End Sub
    34. End Class
    Immer weitestmöglich kapseln: Variablen, die du nur lokal brauchst, auch konsequent nur lokal deklarieren.
    Beachte das mit dem LF - das ist ein LineFeed, wenn man die ControlChars eingebunden hat.
    Dringend empfohlen, die Deppen-Einstellungen rauszuwerfen: Visual Studio - Empfohlene Einstellungen

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