Über TCP/IP Daten Senden

  • VB.NET

Es gibt 21 Antworten in diesem Thema. Der letzte Beitrag () ist von n1nja.

    Über TCP/IP Daten Senden

    Hallo,

    hab vom Tutorial "Ausführliches TCP und UDP Turorial" Den Code verwendet.

    Ein Projekt mit dem Client und ein Projekt mit dem Server. Nur empfange ich nichts. Kann mir bitte jemand helfen

    hier mein Code für den Server

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    7. Public Class Form1
    11. 'Variablen:
    12. Dim stream As NetworkStream
    13. Dim streamw As StreamWriter
    14. Dim streamr As StreamReader
    15. Dim Server As TcpListener
    16. Dim client As New TcpClient
    17. Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000)
    19. Dim mainthread As Threading.Thread
    20. '______________
    27. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    29. mainthread = New Threading.Thread(AddressOf mainserver)
    30. mainthread.Start()
    32. End Sub
    37. Sub mainserver()
    38. ' Try
    40. Server = New TcpListener(ipendpoint)
    41. Server.Start()
    43. client = Server.AcceptTcpClient
    45. stream = client.GetStream
    46. streamr = New StreamReader(stream)
    47. streamw = New StreamWriter(stream) ' Müsste eigentlich alles Klar sein.
    50. While True
    52. Select Case streamr.ReadLine
    54. Case "onl" ' und so weiter eigentlich müsste es heißen select case mid(streamr.readline,1,3) Aber da des ja vielen zu Kompiziert ist lass ich das mal weg^^
    55. streamw.WriteLine("ok") ' Achtung! ist nicht Vollständig!
    56. streamw.Flush() ' Code muss angepasst werden.....
    59. Case "...." ' ......
    63. Case "logoff" '........
    67. End Select
    69. End While
    71. ' Catch
    72. ' Hier wieder eine Fehler behandlung und ein neuen Versuch den Server zu starten...
    73. ' End Try
    75. End Sub
    81. Private Sub Form1__close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosing
    82. Server.Stop()
    83. Try
    84. mainthread.Abort()
    85. Catch
    86. End Try
    87. End Sub
    93. End Class


    und hier der Code für den Client

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    6. Public Class Form1
    7. 'Variablen:
    8. Dim stream As NetworkStream
    9. Dim streamw As StreamWriter
    10. Dim streamr As StreamReader
    11. Dim Client As New TcpClient
    12. Dim IP As String = "127.0.0.1"
    13. Dim Port As Integer = 4000
    14. Dim loginname As String = "abc" ' Diese Variable ist nicht Pflicht! Aber nützlich für ein Chatprogram...
    16. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    18. 'Button1 wird geclickt
    20. Client.Connect(IP, Port) 'Client verbindet sich mit IP: 192.168.111.17 und Port 4000
    22. If Client.Connected Then
    24. stream = Client.GetStream ' Stream wird auf Client verwiesen
    25. streamw = New StreamWriter(stream) ' Stream zum Senden wird deklariert
    26. streamr = New StreamReader(stream) ' Stream zum Empfangen wird deklariert
    28. login() ' Sub Login
    29. Else
    30. MsgBox("Verbidnung konnte nicht mit " & IP & " aufgebaut werden!")
    31. End If
    32. End Sub
    34. Sub client_send(ByVal text As String)
    35. streamw.WriteLine(text)
    36. streamw.Flush()
    37. End Sub
    39. Function client_recieve() As String
    40. client_recieve = streamr.ReadLine
    41. End Function
    43. ' Nach der erfolgreichen verbindung mit der IP und dem Port wird dieser Sub aufgerufen:
    44. Sub login()
    45. 'Try
    46. client_send("onl " & loginname)
    48. If client_recieve() = "ok" Then 'Oder sonst irgend was. Ist nur ein Beispiel für einen Login
    50. Send_irgendwas() ' Hier kann gehts zum nächsten sub um irgend welche Daten zu versenden...
    52. Else
    54. Exit Sub
    55. End If
    56. ' Catch
    58. ' End Try
    60. End Sub
    62. Sub Send_irgendwas()
    64. client_send("Irgendwas")
    65. If client_recieve() = "Auch wieder irgendwas..." Then
    66. '.....
    67. Else
    68. '....
    69. End If
    71. Client.Close()
    73. End Sub
    75. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    77. End Sub
    78. End Class


    auf Client Seite bleibt das Programm bei

    VB.NET-Quellcode

    1. Function client_recieve() As String
    2. client_recieve = streamr.ReadLine
    3. End Function


    hängen

    vbneuling88 schrieb:

    VB.NET-Quellcode

    1. client_recieve = streamr.ReadLine
    wartet auf eine Zeile, und eine Zeile wird mit einem <CR>, ggf. <CR><LF> beendet.
    Häng an den Text ein Environment.NewLine hinten dran.
    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!

    VB.NET-Quellcode

    1. client_send("Irgendwas" & Environment.NewLine)


    Funktioniert auch nicht

    Folgende Funktion schreibt ja eine Zeile

    VB.NET-Quellcode

    1. Sub client_send(ByVal text As String)
    2. streamw.WriteLine(text)
    3. streamw.Flush()
    4. End Sub


    Ist dann das nötig Environment.NewLinenötig?


    Fehler wurde gefunden. Der Client sendet an den Server

    VB.NET-Quellcode

    1. client_send("onl " & loginname)


    der Server wartet aber auf

    VB.NET-Quellcode

    1. Select Case streamr.ReadLine
    3. Case "onl" ' und so weiter eigentlich müsste es heißen select case mid(streamr.readline,1,3) Aber da des ja vielen zu Kompiziert ist lass ich das mal weg^^
    4. streamw.WriteLine("ok") ' Achtung! ist nicht Vollständig!
    5. streamw.Flush()

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

    vbneuling88 schrieb:

    Ist dann das nötig Environment.NewLine nötig?
    Was genau erwartet der Empfänger?
    Kann das auch ein <EOT> sein (End Of Transmission = 4)?
    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!

    Hi, warum wird mir die Variable a, b, c, d nicht beschrieben,
    Zeigt immer 0 an

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net.Sockets
    2. Imports System.IO
    3. Imports System.Net
    5. Module tcp_server
    7. 'Variablen:
    8. Dim stream As NetworkStream
    9. Dim streamw As StreamWriter
    10. Dim streamr As StreamReader
    11. Dim Server As TcpListener
    12. Dim client As New TcpClient
    13. Dim ipendpoint As IPEndPoint = New IPEndPoint(IPAddress.Any, 4000)
    14. Dim eingang As String
    15. Public mainthread As Threading.Thread
    17. Public Sub start_tcp_server()
    18. mainthread = New Threading.Thread(AddressOf mainserver)
    19. mainthread.Start()
    20. End Sub
    22. Public Sub stop_tcp_server()
    23. Server.Stop()
    24. mainthread.Abort()
    25. End Sub
    27. Sub mainserver()
    28. Try
    29. Dim verbindung As Boolean = True
    30. Server = New TcpListener(ipendpoint)
    31. Server.Start()
    33. client = Server.AcceptTcpClient
    35. stream = client.GetStream
    36. streamr = New StreamReader(stream)
    37. streamw = New StreamWriter(stream) ' Müsste eigentlich alles Klar sein.
    40. While verbindung
    41. eingang = streamr.ReadLine
    42. Select Case eingang
    45. Case "verbinden" ' befehl zum Verbinden von Client
    46. streamw.WriteLine("ok")
    47. streamw.Flush()
    49. Case "trennen"
    50. verbindung = False
    51. Server.Stop()
    52. mainthread.Abort()
    53. Case Else
    54. Dim pruefplatz As String = eingang.Substring(0, 3)
    56. Select Case pruefplatz
    57. Case "PP1"
    58. Dim a As Single = frmMain.MODUL_A12_FERTIG(0)
    59. Dim b As Single = frmMain.MODUL_A12_FERTIG(1)
    60. Dim c As Single = frmMain.MODUL_A12_FERTIG(2)
    61. Dim d As Single = frmMain.MODUL_A12_FERTIG(3)
    62. streamw.WriteLine("PP1" & ";" & 5.5 & ";" & frmMain.MODUL_A12_FERTIG(1) & ";" & frmMain.MODUL_A12_FERTIG(2).ToString & ";" & frmMain.MODUL_A12_FERTIG(3).ToString)
    63. streamw.Flush()
    64. ...
    66. End Select
    68. End While
    70. Catch
    71. frmMain.fehler_tcp = True
    72. End Try
    74. End Sub
    77. End Module

    Gib Deinem Programm zunächst Option Strict On.
    Wo wird was / nix angezeigt?
    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!

    Wo ist MUDIL_A12_FERTIG deklariert?
    Meine Kristallkugel is grade zur Reparatur.
    "Life isn't about winning the race. Life is about finishing the race and how many people we can help finish the race." ~Marc Mero

    Nun bin ich also auch soweit: Keine VB-Fragen per PM! Es gibt hier ein Forum, verdammt!

    Wo erstellst du das "MODUL_A12_FERTIG"-Etwas??
    Wo füllst du es??


    Wird überhaupt eine Verbindung zwischen Server und Client aufgebaut??
    Hab deinen unübersichtlichen Code jetzt nur überflogen, aber wenn keine Verbindung aufgebaut werden kann, kann auch nix iwo ausgelesen werden ...

    also MODUL_A12_FERTIG() ist global als Public deklariert in der Haupt WindowsForms.
    Werte werden für RS232 eingelesen, Berechnet und auf MODUL_A12_FERTIG() geschrieben.

    Die Kommunikation mit dem Client funktioniert auch wunderbar, allerdings wird bei

    Dim a As Single = frmMain.MODUL_A12_FERTIG(0), nichts an a Übergeben, Obwohl MODUL_A12_FERTIG(0) mit einem Wert > 0 hinterlegt ist.

    Zeig bitte mal den dies machenden Code:

    vbneuling88 schrieb:

    Werte werden für RS232 eingelesen, Berechnet und auf MODUL_A12_FERTIG() geschrieben.
    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!

    VB.NET-Quellcode

    1. Public Sub lese_Modul_A12()
    2. m_Adam4000Type = Adam4000Type.Adam4017P
    3. Dim values() As Single
    4. Dim status() As Adam4000_ChannelStatus
    6. 'Modul_A12 0-20 mA Eingänge
    7. If frmMain.simulation_aktiv = False Then
    8. For i As Byte = 0 To 5
    9. If adamCom.AnalogInput(12).GetValues(8, values, status) = True Then
    10. frmMain.MODUL_A12(i) = values(i)
    11. End If
    12. Next
    13. End If
    14. End Sub

    wird jede Sekunde aufgerufen


    VB.NET-Quellcode

    1. Public Function BerechnungTemp(ByRef wert As Single, ByRef text As String)
    2. Dim min As Single = 0
    3. Dim max As Single = 100
    4. If wert < 3.5 Then
    5. frmMain.fehler_erkannt = True
    6. frmERROR.showme("Analogwert von " & text & " zu niedgrig")
    7. Return 0
    8. End If
    9. Return (CSng((max - min) / 16 * wert - (max - min) / 16 * 4))
    10. End Function


    VB.NET-Quellcode

    1. Private Sub Timer_lese_fuehler_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer_lese_fuehler.Tick
    2. lese_MODUL_A12()
    3. MODUL_A12_FERTIG(0) = BerechnungTemp(MODUL_A12(0), "Vorlauf PP1")
    4. ...
    5. End Sub



    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. einstellungen_laden()
    3. tcp_server.start_tcp_server()
    4. ...

    vbneuling88 schrieb:

    VB.NET-Quellcode

    1. For i As Byte = 0 To 5
    2. If adamCom.AnalogInput(12).GetValues(8, values, status) = True Then
    3. frmMain.MODUL_A12(i) = values(i)
    4. End If
    5. Next
    Es sieht aus, dass GetValues() hier False zurückgibt.
    Setze einen Haltepunkt drauf und überzeuge Dich davon, dass hier das richtige passiert.
    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!

    vbneuling88 schrieb:

    also MODUL_A12_FERTIG() ist global als Public deklariert in der Haupt WindowsForms.
    Werte werden für RS232 eingelesen, Berechnet und auf MODUL_A12_FERTIG() geschrieben.

    Die Kommunikation mit dem Client funktioniert auch wunderbar, allerdings wird bei

    Dim a As Single = frmMain.MODUL_A12_FERTIG(0), nichts an a Übergeben, Obwohl MODUL_A12_FERTIG(0) mit einem Wert > 0 hinterlegt ist.

    Das hab ich ja schon gemacht, beim Letzten mal stand 67,5 drinnen.

    Hat das irgendwas mit

    VB.NET-Quellcode

    1. mainthread = New Threading.Thread(AddressOf mainserver)
    2. mainthread.Start()

    zu tun?


    Der Server wird bei Programmstart einmal gestartet und bei Programmende gestoppt...

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

    kann ich mit diesem Server/Client System vom Server variable Zeichen an den Client senden?

    zu Erklärung.
    Der Client Verbindet sich
    Sendet einen Befehl an den Server mit der Aufforderung, dass der Server Werte an den Client zurücksenden soll (als Werte können z.B. Temperaturwerte der CPU, oder irgendwelche werte, welche zuvor vom Programm berechnet wurden)
    Client erhält die Werte und Sendet neuen Befehl an den Server


    Oder Muss Dazu ein Multiserver eingerichtet werden?

    *Vollzitat entfernt*

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Marcus Gräfe“ ()

    vbneuling88 schrieb:

    kann ich mit diesem Server/Client System vom Server variable Zeichen an den Client senden?
    Ja.
    Wozu zitierst Du Deinen eigenen riesigen Post? Das überspringen zu müssen nervt etwas.
    1. Lass die riesigen Zitate
    2. Nutze den Expander [+] neben dem [VB]-Tag. Nutze außerdem den Vorschau-Button.
    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!

    Moin,

    @vbneuling88::
    hab nicht alles gelesen, aber hast du dran gedacht den StreamWriter zu flushen? Also mit .Flush() (jedes Mal) bzw. .AutoFlush = True (einmalig).
    msdn.microsoft.com/de-de/libra…o.streamwriter.flush.aspx
    msdn.microsoft.com/de-de/libra…reamwriter.autoflush.aspx
    Mit freundlichen Grüßen,
    Thunderbolt

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

    Ja hab ich. Nach jedem Write kommt ein Flush.

    das komische ist ja, dass der Server Festwerte (egal ob String oder Single oder int16) zum Client sendet, aber sobald ich auf eine Variable aus einem Anderen modul zugreifen will, um diese zu senden, Wird nur eine 0 übertragen

    vbneuling88 schrieb:

    aber sobald ich auf eine Variable aus einem Anderen modul zugreifen will,
    Mit welchem Code machst Du das?
    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!

    Auf Zeile 29 wird eine Variable von frmMain abgefragt. diese wird alle 500 ms mit now.second beschrieben (um mal einen wert zu haben), allerdings empfange ich beim Client nur "0".
    Jedoch auf Zeile 20 und 24 werden die Strings genauso an den Client gesendet wie gewünscht


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Sub mainserver()
    3. Dim verbindung As Boolean = True
    4. Server = New TcpListener(ipendpoint)
    5. Server.Start()
    7. client = Server.AcceptTcpClient
    9. stream = client.GetStream
    10. streamr = New StreamReader(stream)
    11. streamw = New StreamWriter(stream)
    14. While verbindung
    15. eingang = streamr.ReadLine
    16. Select Case eingang
    19. Case "verbinden"
    20. streamw.WriteLine("verbunden")
    21. streamw.Flush()
    23. Case "trennen"
    24. verbindung = False
    25. Server.Stop()
    26. mainthread.Abort()
    27. Case Else
    29. streamw.WriteLine(frmMain.testa)
    30. streamw.Flush()
    33. End Select
    35. End While
    37. End Sub

Facebook