Verbindung herstellen zwischen 2 Programme über TCP und senden und empfangen auf beide Seiten

  • VB.NET

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

    Verbindung herstellen zwischen 2 Programme über TCP und senden und empfangen auf beide Seiten

    Liebe Forumler,

    Ich versuche derzeit eine Verbindung zwischen 2 Programme herzustellen und das senden uns empfangen auf beide Seiten aber es tut nicht richtig.
    Ich möchte zum beispiel sätze senden und empfängen und anzeigen lassen auf beide seiten. Ich habe versucht aber ich weiss nicht wie ich es mache um das Senden und empfangen zu bekommen und zum anzeigen.

    Brainfuck-Quellcode

    1. __________________Deklarationen-----------------------------------
    2. Imports System.Net.Sockets
    3. Imports System.Text
    4. Imports System.IO
    5. Imports System.Threading
    6. Imports System.Net
    7. Dim stream As NetworkStream
    8. Dim streamw As StreamWriter
    9. Dim streamr As StreamReader
    10. Dim client As New TcpClient
    11. Dim thread As New Threading.Thread(AddressOf Listen)
    12. Dim KommunikationGestartet As Boolean
    13. Dim TCP_AntwortHauptprogramm As String
    14. Dim TCP_IP As String = "127.0.0.1"
    15. Dim Portverbindung As Integer = 8000
    16. Dim KommunikationLaueft As Boolean
    17. Dim TCP_Antwort As String
    18. ---------------------------- Funktion listen ()--------------------------------------------
    19. Sub Listen()
    20. While client.Connected
    21. Dim SendeString As String = Receive()
    22. End While
    23. End Sub
    24. --------------------------Funktion senden ()------------------------------------------
    25. Sub Senden(ByVal stext As String)
    26. streamw.WriteLine(stext)
    27. streamw.Flush()
    28. End Sub
    29. -------------------------------Funktion kommunikation---------------------------
    30. Private Sub kommunikation()
    31. Try
    32. client = New TcpClient(TCP_IP, Portverbindung)
    33. stream = client.GetStream
    34. streamw = New StreamWriter(stream)
    35. streamr = New StreamReader(stream)
    36. thread.Start()
    37. KommunikationLaueft = True
    38. Exit Sub
    39. Catch
    40. MessageBox.Show("Socket-Fehler ")
    41. End Try
    42. End Sub
    43. ----------------------------------------------------
    In dem Code den Fehler zu finden, ist ziemlich blöd, da die Formatierung so komisch ist. Es gibt aber mehrere funktionierende TCP Tutorials hier. Probier es mal hiermit: Multiserver (TCP)

    Grüße
    Vainamo
    @lieuthnant vielleicht als "philosophisches" Verständnis:
    Ein Client meldet sich bei einem Server an und kann daraufhin senden was er will, der Server sendet das, was er daraufhin senden soll, der Client empfängt das.
    Ein Server wartet einfach nur ab, bis ein Client etwas von ihm will.
    Im www gibt es beliebig viele Beispiele, die genau das machen. Fragst Du Frau Google nach vb.net tcp/ip client server.
    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).
    VB-Fragen über PN / Konversation werden ignoriert!